如何在相鄰單元格非空時自動編號行？

在 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 列中添加或刪除條目而上下移動。