如何在每次打印后自动递增单元格的值？

假设我有一个工作表页面需要打印100份，单元格A1是支票编号Company-001，现在我希望每打印一次后，该编号会自动增加1。也就是说，当我打印第二份时，编号将自动变为Company-002，第三份时变为Company-003……第一百份时变为Company-100。有没有什么方法可以在Excel中快速解决这个问题呢？

使用VBA代码在每次打印后自动递增单元格的值

使用VBA代码在每次打印后自动递增单元格的值

通常，在Excel中没有直接的方法来完成此任务，但在这里，我将创建一个VBA代码来处理它。

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：每次打印后自动递增单元格的值：

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. 然后按F5键运行此代码，会弹出一个提示框，提醒您输入要打印当前工作表的份数，请参见截图：

4. 单击确定按钮，您的当前工作表正在打印，同时，已打印的工作表会在单元格A1中按需编号为Company-001、Company-002、Company-003…

注意：在上述代码中，单元格A1将插入您指定的序列号，并清除A1中的原始单元格值。“Company-00”是序列号，您可以根据需要进行更改。