如何在Excel中，若相鄰儲存格非空白則自動編號列？

在 Excel 中，使用填充手柄手動創建一系列數字是生成列表序列號或索引的常見方法。然而，經常會遇到這樣的情況：只有當特定的相鄰儲存格包含數據時，您才希望對行進行編號。例如，您可能希望在列表中自動生成行號，但跳過相鄰數據儲存格為空的地方。更重要的是，您可能希望這些數字在輸入或刪除數據時即時更新——始終提供最新的序列，而無需手動干預。

若相鄰儲存格非空白則使用公式自動編號行

若相鄰儲存格非空白則使用VBA程式碼自動編號行

若相鄰儲存格非空白則使用公式自動編號行

實現基於相鄰儲存格值動態行編號的一種有效方法是使用 Excel 公式。通過這種方法，只有當相鄰儲存格包含值時，行號才會顯示。當您在此類儲存格中添加或刪除數據時，編號會自動更新以匹配。以下是一個您可以使用的實用方法：

1. 選擇要開始編號的儲存格（例如，如果您的數據從 B2 開始，則選擇 A2）。輸入以下公式：

=IF(B2<>"",COUNTA($B$2:B2),"")

2. 接下來，拖動填充手柄沿著您的數據向下應用此公式到其他行。編號將自動調整，僅在 B 列中有數據的行顯示數字。

如果您遇到數字未按預期更新的情況，請確認公式已複製到所有相關行，並且沒有合併的儲存格或數據驗證干擾您的區域。記住，公式依賴於準確的引用，並可能因工作表結構的更改而中斷。

若相鄰儲存格非空白則使用VBA程式碼自動編號行

對於更高級的用戶，或者在您不希望在整個工作表中應用公式的情況下——或者您需要即使在粘貼數據、刪除塊或進行頻繁更改時也能更新編號——VBA 宏提供了一個引人注目的替代方案。使用 VBA，您可以隨時自動更新一列中的行號，當相鄰儲存格被編輯時，無需使用公式。這對於數據輸入表單、導入日誌或佈局頻繁更改的任務列表來說非常理想。

1. 按 Alt + F11 打開 Visual Basic for Applications 編輯器窗口。在項目資源管理器中，找到您的工作簿，然後雙擊“Microsoft Excel 對象”下的相關工作表（例如，“Sheet1”）。

2. 在出現的代碼窗口中，粘貼以下代碼。此示例假設您希望根據 B 列是否非空白來編號 A 列中的行；如有必要，您可以調整特定範圍的引用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chk As Range
    Set chk = Intersect(Target, Me.Columns("B"))
    If chk Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Call RenumberNonBlank(Me, "B", "A", 2)
    Application.EnableEvents = True
End Sub
Sub RenumberNonBlank(ws As Worksheet, _
                    keyCol As String, _
                    numCol As String, _
                    firstDataRow As Long)
    Dim lastRow As Long
    Dim r As Long
    Dim seq As Long
    lastRow = ws.Cells(ws.Rows.Count, keyCol).End(xlUp).Row
    seq = 1
    For r = firstDataRow To lastRow
        With ws
            If Trim(.Cells(r, keyCol).Value) <> "" Then
                .Cells(r, numCol).Value = seq
                seq = seq + 1
            Else
                .Cells(r, numCol).ClearContents
            End If
        End With
    Next r
End Sub

3. 保存並關閉 VBA 編輯器。現在，每當您添加、編輯或清除 B 列中的內容時，A 列將立即重新編號，反映數據的存在（或缺失）。當您添加或刪除 B 列中的條目時，序列將上下移動。