如何在每次列印後自動遞增儲存格值？

Author: Xiaoyang Last Modified: 2025-08-23

在許多商業和行政工作流程中，可能需要列印多份文件、發票或支票，每份都標有唯一的序號或識別碼，以便於記錄和追蹤。例如，假設你有一個格式化為支票或憑證模板的Excel工作表，而儲存格A1包含一個支票號碼，例如「公司-001」。當你列印此頁面的100份副本時，手動更新每個單獨列印的數字將是乏味且容易出錯的。理想情況下，你希望Excel在每次列印操作時自動遞增儲存格A1中的值，因此第一次列印顯示「公司-001」，第二次顯示「公司-002」，依此類推，直到「公司-100」。

預設情況下，Excel不提供在每次列印作業後自動增加儲存格值的內建功能。然而，你可以借助VBA宏來實現這種自動化。使用VBA是一種實用的解決方案，特別是在你需要有效生成連續編號的硬拷貝時，尤其是處理序列表格、票據、支票或任何需要為列印頁面提供唯一識別碼的情況。這種方法有助於避免手動錯誤、節省時間並保證每份副本獲得所需的唯一數字。

下面，我們介紹一種VBA方法來自動遞增每次列印副本的儲存格值。此外，本文還提供了關於有效使用、潛在警告和優化Excel工作流程中批量列印任務的實用技巧。

使用VBA代碼在每次列印後自動遞增儲存格值

使用VBA代碼在每次列印後自動遞增儲存格值

Excel沒有直接的原生選項可以每次列印時自動遞增儲存格值。為了自動化這個過程，你可以使用VBA宏來高效地列印指定數量的副本，每個副本在儲存格A1中都有遞增的識別碼。這種方法特別適合生成具有序列編號的個人化硬拷貝（如支票、標籤、表格等）。請注意，使用宏可能需要在你的Excel環境中啟用宏，並且運行VBA代碼可能會影響文件的安全設置。在運行任何代碼之前，務必保存你的工作。

1. 同時按下ALT + F11鍵以打開Microsoft Visual Basic for Applications窗口。如果這是您第一次使用VBA，您可能需要在Excel功能區中啟用開發者選項卡。

2. 在VBA編輯器中，點擊插入 > 模組以打開新的模組窗口。在新模組中，複製並粘貼以下提供的VBA代碼。此腳本將幫助您在每次從活動工作表列印副本時遞增列印編號。

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

此代碼會提示您輸入要列印的總副本數，處理每次列印周期時更新儲存格A1，並自動列印每個版本。

3. 粘貼代碼後，確保您的工作表已準備就緒，並且活動儲存格（通常是A1）包含正確的基本文字（如「公司-001」）。按F5鍵或在VBA編輯器中點擊運行以啟動宏。將出現一個提示框詢問您希望列印多少份；輸入所需的數量（例如100）並確認輸入。請參閱下面的界面截圖作為參考：

A screenshot of a prompt box asking for the number of copies to print with incremented numbers

如果您輸入非數字值或點擊取消，該過程將停止並無任何動作。請確保僅輸入數字並在繼續之前雙重檢查儲存格A1中的起始值。

4. 點擊確定按鈕。現在，宏將自動列印工作表指定的次數，每次調整儲存格A1中的序列，以便每張列印頁面都按順序編號（例如公司-001、公司-002、公司-003，...一直到公司-100，具體取決於您的輸入和宏中的格式設定）。

附加說明和提示：在代碼中，儲存格A1用於序號。A1中的任何現有內容將被第一個新序列號覆蓋，因此如果您有希望保留的信息，請在運行代碼前備份該儲存格。默認數字前綴（「公司-00」）可以在VBA代碼中調整以匹配您偏好的序列格式；根據需要更改文本和數字填充。在共享或受保護的工作簿中使用宏時要小心，因為宏執行需要適當的權限。如果您的打印機速度較慢，避免使用非常大的副本數運行腳本以防止打印隊列過載。

如果您遇到列印作業未開始、數字未正確遞增或有關儲存格引用的錯誤等問題，請仔細檢查是否已啟用宏以及您的工作表是否受保護。確保在運行前正確設置了引用儲存格（在此例中為A1），並考慮在進行批量操作前保存您的工作簿以避免意外數據丟失。如果需要進一步自定義（例如使用不同的儲存格、數字格式或工作表），請根據需要調整VBA代碼中的儲存格引用和格式行。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多