如何在 Excel 中創建帶有或嵌入文字的遞增數字？

在 Excel 中，生成遞增數字序列是一項基本任務，特別是在整理數據或創建唯一標識符時。雖然自動填充手柄功能可以輕鬆填寫連續的獨立數字，但它不支持將遞增數字直接與文本字符串結合，例如一步生成「User001」、「User002」等。這種限制可能會使創建需要靜態文本和順序數字組件的自定義用戶名、電子郵件地址、產品代碼或發票號碼等任務變得複雜。在本教程中，我們將介紹幾種在 Excel 中創建與文本字符串集成或嵌入其中的遞增數字的方法，從經典公式到使用 VBA 和用戶友好的專業工具進行高級自動化。

常見場景包括：生成一批具有獨特標籤的項目、創建系統化命名的電子郵件列表或生成用於產品追蹤的序列號。每種解決方案都有其自身的優勢——無論是易用性、自動化、數字位置的靈活性還是適用於大數據集的能力。

使用公式在 Excel 中創建帶有文本的遞增數字
使用 Kutools for Excel 創建帶有文本的遞增數字
VBA 宏：在文本內或內部創建遞增數字

使用公式在 Excel 中創建帶有文本的遞增數字

Excel 內置的公式提供了一種簡單的方法來結合文本和遞增數字。如果您的序列結構包含固定位置的數字和文本，並且您需要完全透明地了解標識符是如何組成的，這個解決方案尤其有用。

1. 按照下圖準備您的工作表：

2. 在單元格 D2 中輸入以下公式，然後按 Enter 鍵應用：

=$A$2&TEXT(B2,"000")&$C$2

公式返回結果後，從 D2 向下拖動填充手柄以填充 D 列中的其餘單元格。每個單元格將顯示組合的文本和遞增數字，如「User001@localdomain.com」、「User002@localdomain.com」等，如下所示：

注意和提示：

此方法高度透明且非常適合結構良好的數據，但通常需要為每個組件手動設置輔助列。此外，如果您的文本和數字位置在每一行中有所不同，則此方法可能需要額外修改。

使用 Kutools for Excel 創建帶有文本的遞增數字

如果您經常需要生成遞增的文本標識符，並且喜歡圖形界面或想要更多動態選項（例如靈活的前綴、後綴、自定義增量或記住您的設置以便重複使用），Kutools for Excel 提供了一個名為「插入序列號」的專用功能。使用此工具，您只需點擊幾下即可創建複雜的編號方案——無需設置公式。

1. 在 Excel 功能區上，轉到 Kutools > 插入 > 插入序列號… 如下所示：

2. 在「插入序列號」對話框中，單擊「新建」以展開附加設置選項。以下是配置方法：

3. 選擇要插入帶有文本的遞增數字的單元格範圍，然後單擊「填充範圍」。自定義的數字將立即填充所選區域，產生如「User001@localdomain.com」、「User002@localdomain.com」等結果。

附加說明：一旦您在 Kutools 中組裝並保存了編號模板，即使跨多個工作簿也可以快速重用。如果最後生成的數字是 30，下次使用此序列時，編號將自動從 31 開始。這對於避免重複數字或在大型數據集中進行追蹤特別有幫助。

此方法推薦給定期處理順序數據並希望在點擊式界面中獲得效率和靈活性的用戶，以及為重複批量任務保存模板的用戶。如果您需要超出前綴/後綴的高級、基於位置的自定義，自動化腳本可能更適合（見下文）。

使用 Kutools for Excel 創建帶有文本的遞增數字

VBA 宏：在文本內或內部創建遞增數字

如果您需要最大程度的控制——例如將遞增數字插入文本字符串的任何部分、即時生成複雜標識符或一次性將此操作應用於多行——VBA 宏提供了公式或插件無法匹敵的自動化和自定義能力。VBA 非常適合批量操作、自定義模式或需要將數字嵌入字符串中的任何位置（不僅僅是在開始或結束處）。

在開始之前，務必將您的工作簿保存為啟用宏的文件（.xlsm），以防丟失 VBA 代碼。此外，考慮先在數據副本上測試任何宏，以避免意外更改。

如何使用宏：

1. 打開您的工作簿，然後在 Excel 功能區上單擊「開發工具」>「Visual Basic」。（如果「開發工具」選項卡不可見，請通過「文件」>「選項」>「自定義功能區」啟用它。）

2. 在 Microsoft Visual Basic for Applications 編輯器窗口中，單擊「插入」>「模塊」。將以下代碼複製並粘貼到空白模塊中：

Sub InsertIncrementNumberIntoText()
    Dim cell As Range
    Dim rng As Range
    Dim startNum As Long
    Dim increment As Long
    Dim pattern As String
    Dim position As Variant
    Dim currentNum As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range to apply incremented text.", xTitleId, rng.Address, Type:=8)
    
    startNum = Application.InputBox("Enter the starting number:", xTitleId, 1, Type:=1)
    
    increment = Application.InputBox("Enter the increment between numbers:", xTitleId, 1, Type:=1)
    
    pattern = Application.InputBox("Enter the pattern (use {n} to mark the insertion point, e.g. 'User{n}@local.com'):", xTitleId, "User{n}@local.com", Type:=2)
    
    currentNum = startNum
    
    If rng Is Nothing Then Exit Sub
    
    For Each cell In rng
        cell.Value = Replace(pattern, "{n}", currentNum)
        currentNum = currentNum + increment
    Next
End Sub

3. 要執行宏，請單擊 按鈕或按 F5。一個對話框將引導您選擇目標範圍、設置起始數字、選擇增量並定義所需的文本模式（例如，使用 ID-{n}-LIST 在自定義文本段之間嵌入遞增數字）。

• 您可以在模式中的任何位置插入「{n}」——之前、之後或內部——以自定義遞增數字的位置。
• 確認後，每個選中的單元格將根據您選擇的模式和間隔填充適當的遞增標識符。
• 要將宏應用於新區域，只需重新運行它並根據需要指定新參數。
• 如果您犯了錯誤，使用撤銷功能（Ctrl+Z）或再次運行宏。

故障排除和提示：

此解決方案特別適用於高級場景，例如在文件名中嵌入數字、一次跨多行創建模式化的 ID 以及自動化複雜的順序命名方案。