エクセルＶＢＡで住所録の分類コードを自動で作成

エクセルで作成した住所録があります。

数が増えてきたのでコードで分類したいと考えています。

現在の住所録には「大分類」のＣ列まで入力されています。

ここからＶＢＡによって、

「中分類」と「小分類」を入力したいと思います。

＊中分類は末尾に２ケタの数字を追加（２０ごとに　01、02、03　とする。）

＊小分類は末尾に１ケタの英字を追加（１つごとに　A、B、C　とする）

どうかよろしくお願いいたします。

No.1 ベストアンサー 回答者： watabe007 回答日時： 2014/10/13 10:08

参考に

Sub Test()
　　Dim c As Range, Bunnrui As String
　　Dim i As Long, j As Long
　　For Each c In Range("C2", Cells(Rows.Count, "C").End(xlUp))
　　　　If c.Value <> Bunnrui Then
　　　　　　Bunnrui = c.Value
　　　　　　i = 1: j = 1
　　　　ElseIf i >= 20 Then
　　　　　　i = 1: j = j + 1
　　　　Else
　　　　　　i = i + 1
　　　　End If
　　　　c.Offset(, 1).Value = c.Value & Format(j, "00")
　　　　c.Offset(, 2).Value = c.Value & Chr(64 + i)
　　Next
End Sub

この回答への補足

解決しました。
ありがとうございました。

補足日時：2014/10/13 11:44

この回答へのお礼

回答ありがとうございます。
早速ためさせていただきました。

中分類　hokkaido01　小分類　hokkaidoA　と表記されていました。

たとえば小分類の英字（１ケタ）の前に中分類の数字（２ケタ）を
入れることは可能でしょうか。

中分類　hokkaido01　の場合　→　小分類　hokkaido01A
中分類　hokkaido02　の場合　→　小分類　hokkaido02A

よろしくお願いします。　

お礼日時：2014/10/13 11:33