如何在 Excel 中填入跳過隱藏列的序列號碼？

假設您有一個篩選過的資料範圍，您希望將序列號碼填入篩選後的空白儲存格中，如下方截圖所示。在此情況下，通常拖動填滿控制點無法正確填滿儲存格。本文將介紹一些解決此問題的好方法。

使用公式填入跳過隱藏列的序列號碼

使用 VBA 程式碼填入跳過隱藏列的序列號碼

使用 Kutools for Excel 填入跳過隱藏列的序列號碼

使用公式填入跳過隱藏列的序列號碼

要僅在可見儲存格中填入序列號碼，一個簡單的公式可能會對您有所幫助，請按照以下步驟操作：

1. 在您想填入序列號碼的第一個儲存格（本例為 A3）中輸入這個公式：=SUBTOTAL(103,$B$3:$B3)（B3 是與您想開始填入序列號碼的儲存格相對應的可見儲存格），然後按下 Enter 鍵，您會得到數字 1，請參閱截圖：

2. 接著選擇 A3 儲存格，並向下拖動填滿控制點到您想填入序列號碼的儲存格，請參閱截圖：

使用 VBA 程式碼填入跳過隱藏列的序列號碼

以下 VBA 程式碼也可以幫助您僅在可見儲存格中填入序列號碼，請按照以下步驟操作：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼貼到模組視窗中。

VBA 程式碼：填入跳過隱藏列的序列號碼：

Sub FillValue()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xVal As Long
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = xRg.SpecialCells(xlVisible)
    Debug.Print xRg.Address
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xVal + 1
        xCell = xVal
    Next
End Sub

3. 然後按下 F5 鍵執行此程式碼，會彈出一個提示框提醒您選擇想要填入的資料範圍，請參閱截圖：

4. 接著點擊 確定 按鈕，序列號碼便只會填入可見的儲存格中。

使用 Kutools for Excel 填入跳過隱藏列的序列號碼

上述兩種方法只能幫助您將序列號碼填入可見的儲存格中，如果您想填入如 AA-0001-BB、AA-0002-BB、AA-0003-BB… 的序列，則上述方法將不起作用。但請不要擔心，Kutools for Excel 的 插入序列號 功能可以幫助您快速且輕鬆地完成此任務。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 選擇您想填入序列字串的儲存格。

2. 點擊 Kutools > 插入 > 插入序列號，在 插入序列號 對話框中，點擊 新建 按鈕，請參閱截圖：

3. 在展開的對話框中，請根據需要指定左下角部分的設定，同時，您可以在右下角的面板中預覽序列，請參閱截圖：

4. 完成設定後，點擊 添加 按鈕將此新項目保存到上方的列表框中，請參閱截圖：

6. 然後選擇您創建的項目並點擊 填充範圍 按鈕，序列字串便只會填入可見的儲存格中，請參閱截圖：

立即下載並免費試用 Kutools for Excel！

示範：使用 Kutools for Excel 填入跳過隱藏列的序列號碼