☰

如何編寫巨集來更改數字列表，使其在每張紙上增加？

tag-icon • tag-icon microsoft-excel macros
如何編寫巨集來更改數字列表，使其在每張紙上增加？

我有一個電子表格，其中第 2 列中有一個數字列表。即sheet 1以2834開始，以2848結束；下一頁從 2849 開始，到 2863 結束，依此類推。如何編寫巨集以及將巨集放在哪裡？我不知所措。

我從未編寫或使用過巨集，但我確信這將是解決方案，而不是單獨列印每一頁並每次更改數字。

答案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和。selectedColumnfirstValue

相關內容