セルの値を転記
下記のコードで
sub main()
Dim i As Long
Dim rowToWrite As Long
Dim 最終行 As Long
Dim result As Variant
Dim tmp As Variant
Dim j As Long
最終行 = Range("B1").End(xlDown).Row
result = Cells(1, 1).Resize(最終行, 2).Value
For rowToWrite = 1 To 最終行
If tmp <> result(rowToWrite, 2) Then
i = i + 1
j = 1
result(rowToWrite, 1) = i & "-" & j
tmp = result(rowToWrite, 2)
Else
j = j + 1
result(rowToWrite, 1) = i & "-" & j
End If
Next rowToWrite
Cells(1, 1).Resize(最終行, 2).Value = result
End Sub
Bセルの値が
aaaaa
aaaaa
aaaaa
bbbbb
bbbbb
bbbbb
bbbbb
bbbbb
bbbbb
ccccc
ccccc
だった場合
↓
Aセル,Bセル
1-1,aaaaa
1-2,aaaaa
1-3,aaaaa
2-1,bbbbb
2-2,bbbbb
2-3,bbbbb
2-4,bbbbb
2-5,bbbbb
2-6,bbbbb
3-1,ccccc
3-2,ccccc
とBセルの値が
変わったタイミングで
Aセルに管理番号が増えていくのですが
Cells(1, 1).Resize(lastRow, 2).Value = resultの値を
表示せずに
2次元配列として
resultの値を
result = 結果(debug.print 結果)
としてAセルの値を
1-1
1-2
1-3
2-1
2-2
2-3
2-4
2-5
2-6
3-1
3-2
と転記したいのですがアドバイスいただけたら助かります。
よろしくお願いいたします。
お礼
素晴らしい回答ありがとうございました。 お陰で１０００以上の表を短時間で変更することが できました。こんな簡単に並べ替えが出来たんですね。 目から鱗でした。