数字の突合 数字揃える

Question

B列に特定数字123とC列にある５桁の受付番号を合わせた数字を入力したいです。
例えば、
B2には123とC2の５桁の数字を入力
B3には123とC3の５桁の数字を入力したいです。
C列の数字は本来は５桁ですが
入力ミスで2桁や３桁になっている場合があります。
入力ミスには黄色で色付けしたいです。
最後に123&C列の５桁の数字の前から6番目に0を加えて９桁の番号にしたいです。
例えば
123450678(真ん中の６桁目に0を加えたいです)
よろしくお願いします。

Comments

[y_waiwai]

で、しつもんはなんでしょうか

[yum28]

B列に９桁の番号を作りたいです。

[dodox86]

それは質問者さんの単なる「要望」であって、質問ではないです。

[1T2R3M4]

メンターを雇ってはいかがでしょうか。
または外注するとか。

Answer 1

Sub sample()
    Dim ws As Worksheet, c As Range
    Set ws = ActiveSheet
    For Each c In Intersect(ws.Range("C:C"), ws.UsedRange).Cells
        If Len(c.Text) = 5 Then
            c.Offset(, -1).Value = "123" & Left(c.Text, 2) & "0" & Right(c.Text, 3)
        Else
            c.Interior.Color = rgbYellow
        End If
    Next
End Sub

Comments

[yum28]

C列に色がついてB列に９桁の数字が付番されません。

[jinoji]

色がついたセルの値は何ですか？

[yum28]

C列の受付番号全てに色がついてしまいました。
B列に123&受付番号が反映されませんでした。

[jinoji]

C列の数字は本来は５桁だと聞きましたので、５桁でない場合は色を付ける処理にしています。
色がついたセルの値の桁数は、実際には何桁でしたか。

[yum28]

すみません。もう一回入力したらできていました！！
初心者すぎてすみません。
とても助かりました。
本当にありがとうございました！