複数シートを通して連番を振るマクロ

質問

マクロ初心者です

エクセルワークシートが6枚あります。
シート1枚目のA列にB列データがある行まで連番を振ります（可変）1-100

シート2枚目のA列にはB列データがある101-195
シート3枚目のA列には196-305など
......
となるようにしたいです。
1枚目の最終行を取得して連番を振ることは出来たのですが、2枚目の始まりをどのように書いたらよいのか分かりません。

宜しくお願いします。

回答No.1

SI299792 · ベストアンサー

何行目から連番を振るのか書いてありませんが、以下のプログラムでいいと思います。１行目からでない場合、変更して下さい。
'
Option Explicit
'
Sub Macro1()
'
　　Dim ISheet As Integer
　　Dim Row As Long
'
　　For ISheet = 1 To 6
　　　　Sheets(ISheet).Select
'　 １行目からではない場合、ここの数字を変える
　　　　For Row = 1 To Cells(Rows.Count, "B").End(xlUp).Row
　　　　　　Count = Count + 1
　　　　　　Cells(Row, "A") = Count
　　　　Next Row
　　Next ISheet
End Sub