☰

我如何编写宏来更改数字列表，使其在每张表上增加？

tag-icon • tag-icon microsoft-excel macros
我如何编写宏来更改数字列表，使其在每张表上增加？

我有一个电子表格，其中第 2 列有一串数字。我需要一次打印 50 张纸，每张纸上的数字都在增加。例如，第 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

相关内容