各シートで数値が増加するように数値リストを変更するマクロを作成するにはどうすればよいでしょうか?

Question

2 列目に数字のリストがあるスプレッドシートがあります。シートごとに数字を増やしながら、一度に 50 シートを印刷する必要があります。つまり、シート 1 は 2834 で始まり 2848 で終わり、次のページは 2849 で始まり 2863 で終わり、というように続きます。マクロをどのように記述し、どこにマクロを配置すればよいのでしょうか。わかりません。

マクロを書いたことも使ったこともありませんが、各ページを個別に印刷してそのたびに番号を変更する以外では、これが解決策になると確信しています。

Answer 1

これは良い出発点になるかもしれない

Public Sub LotOfNumbers()
    lastSheet = 50
    numbersPerPage = 10
    selectedColumn = 2
    firstValue = 3000
    Dim wkb As New Workbook
    Dim wks As New Worksheet
    Set wkb = ThisWorkbook
    totalwks = Application.Sheets.Count
    i = 1
    actualValue = firstValue
    While i <= lastSheet
        If i <= totalwks Then
            Set wks = wkb.Sheets(i)
        Else
            wkb.Sheets.Add After:=Worksheets(Worksheets.Count)
        End If
        For j = 1 To numbersPerPage
            Cells(j, selectedColumn) = actualValue
            actualValue = actualValue + 1
        Next j

        i = i + 1
    Wend

End Sub

ALT+で VBA /マクロを開きますF11。

左側でワークシートをダブルクリックし、右側にコードを貼り付けます。

変数lastsheet、numbersPerPage、selectedColumnをfirstValue好みに合わせて調整します。