エクセルで通し番号を入れてチケット作成

イベントで配布するチケットをエクセルで作成しています。
現在１シートのみできています、１シートに12枚分です、これを500枚分作ります。

シートを増やしかつ、通し番号で001～500まで入力したいです。
通し番号を入力するセルは
X5・X18・X31・X44・X57・X70と、AX5・AX18・AX31・AX44・AX57・AX70　です。

VBAで作成可能でしょうか？お詳しい方宜しくお願い致します。

質問者からの補足コメント

• ご回答ありがとうございます。
  番号は前に0が付きます。001～500までです。
  シートの割り振りもその通りで大丈夫です。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/07/18 14:01

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/07/18 14:48

以下のマクロを標準モジュールに登録してください。

シートは４２枚必要です。
最後のシートは４９３~５００まで通番が割り振られます。

Option Explicit
Public Sub 通番設定()
Dim sno As Long
Dim rgs As Variant
Dim tuban As Long
Dim moji_tuban As String
Dim i As Long
rgs = Array("X5", "X18", "X31", "X44", "X57", "X70", "AX5", "AX18", "AX31", "AX44", "AX57", "AX70")
For sno = 1 To 42
For i = 0 To 11
tuban = (sno - 1) * 12 + i + 1
moji_tuban = "'" & Format(tuban, "000")
Worksheets(sno).Range(rgs(i)).Value = moji_tuban
If tuban >= 500 Then Exit For
Next
Next
MsgBox ("完了")
End Sub

この回答へのお礼

おかげさまで理想通りの結果になりました！
ありがとうございました！

お礼日時：2021/07/18 15:47

No.1 回答者： tatsumaru77 回答日時： 2021/07/18 13:20

通し番号は、例えば１の場合、「１」ではなく「００１」で間違いないでしょうか。

（前０がつく）

どのシート割り振るかですが
１番目の左側のシートのへ001~012
２番目の左側のシートのへ013~024
・・以下同様・・
1２番目の左側のシートのへ589~500
と500まで割り振れば良いでしょうか。
１２個のシートが作成済みである前提です。