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

作者Xiaoyang修改日期2025-07-24

在許多商業與行政工作流程中，經常需要列印多份文件、發票或支票，每份皆標有唯一的序號或識別碼，以便於歸檔與追蹤。舉例來說，假設您有一張 Excel 工作表已設定為支票或憑證範本，其中儲存格 A1 包含支票編號，例如「Company-001」。當您需要列印 100 份時，若每次都得手動更新編號，不僅耗時，還容易出錯。理想情況下，您會希望 Excel 在每次執行列印動作時，自動將儲存格 A1 中的數字遞增——第一份列印顯示「Company-001」，第二份顯示「Company-002」，依此類推，直到「Company-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）包含正確的基底文字（例如「Company-001」）。按下 F5 鍵，或在 VBA 編輯器中點選執行以啟動巨集。此時將彈出提示方塊，詢問您要列印多少份；請輸入所需數量（例如 100）並確認。詳情請參閱下方介面截圖：

顯示提示框的截圖，詢問要列印的份數並附帶遞增編號

若您輸入非數值內容或點選「取消」，該流程將立即終止且不執行任何動作。請務必僅輸入數字，並在繼續操作前再次確認儲存格 A1 中的起始值。

4. 點選確定按鈕後，巨集將自動依照您指定的次數列印工作表，並在每次列印時調整儲存格 A1 中的序號，讓每份列印頁面依序編號（例如 Company-001、Company-002、Company-003……依您的輸入與巨集中的格式設定，直至 Company-100）。

其他注意事項與技巧：程式碼使用儲存格 A1 存放序號。執行時，A1 中的既有內容將被第一個新序列號覆寫，因此若您需保留原有資料，請務必在執行程式碼前先行備份該儲存格。預設的數值前綴（「）Company-00」）可於 VBA 程式碼中調整，以符合您偏好的序號格式；請依需求同步修改文字內容與數值位數的補零設定。在共用或受保護的工作簿中使用此巨集時請格外謹慎，因執行巨集需具備適當權限。若您的印表機速度較慢，建議避免一次列印過多份數，以免造成列印佇列負載過重。

若您遇到列印作業無法啟動、編號未正確遞增，或出現與儲存格參照相關的錯誤，請再次確認巨集是否已啟用，且工作表未受保護。執行前務必正確設定參考儲存格（本例為 A1），並在執行批次作業前儲存工作簿，以防資料意外遺失。若需進一步自訂（例如改用其他儲存格、數字格式或工作表），請適度調整 VBA 程式碼中的儲存格參照與格式設定行。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多