|
項目1 項目2・・・・
A
A
A
B
C
C
C
:
項目1において同じものに対して連番を振りたいのですが…
この例ではA1・A2・A3
次はB1
その次はC1・C2・C3
と内容が異なれば連番を1から順次付けたいのですが
良い方法があれば教えてください。
:
項目内容が異なれば
変数kを1に戻したいのですが、うまくいきません。よろしくお願いします。
Sub test()
Dim i As Long, k As Long, LstRow As Long
LstRow = Cells(Rows.Count, 1).End(xlUp).Row
k = 1
For i = 1 To LstRow - 1
If Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i, 1).AutoFilter Field:=1, Criteria1:=Cells(i + 1, 1).Value
Cells(i + 1, 1) = Cells(i + 1, 1) & k
k = k + 1
Else
k = 1
End If
Next
Cells(i, 1).AutoFilter
End Sub
|
|