如何在 Excel 中自動插入或刪除行後對行進行編號？

假設，我已經在一列中將行從 1 編號到 20，現在，當我從資料區域中插入或刪除一行時，我希望編號列表能夠自動重新編號。這個任務可以在 Excel 中完成嗎？

使用公式在插入或刪除行後自動編號行

使用 VBA 程式碼在插入或刪除行後自動編號行

使用公式在插入或刪除行後自動編號行

事實上，Excel 中的 Row 函數可以幫助您在插入或刪除行後自動重新編號行，請按照以下步驟操作：

1. 在單元格 A2 中輸入此公式：=ROW()-1，然後將填充柄向下拖動到您想要編號的行的單元格，參見截圖：

注意：如果您的編號列表從第一個單元格開始，您可以將公式更改為 =ROW()，如果您的數字與實際行不匹配，您可以從公式中添加或減去，例如，=ROW()-3，=ROW()+10…

2. 然後為此資料區域創建一個表格，選擇資料區域，並點擊 插入 > 對照表，然後在 創建表格 對話框中，如果您範圍內有頁首，請勾選 我的表格有頁首，參見截圖：

3. 然後點擊 完成，表格立即創建完成，現在，當您插入或刪除表格範圍中的行時，行號總是會自動更新，參見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼在插入或刪除行後自動編號行

除了上述公式方法外，您還可以使用 VBA 程式碼來完成此操作。

1. 轉到您希望自動插入序列號的工作表。

2. 右鍵單擊工作表標籤，並從上下文菜單中選擇 檢視程式碼，在彈出的 Microsoft Visual Basic for Applications 窗口中，請複製並將以下程式碼粘貼到空白的模組窗口中。

VBA 程式碼：在插入或刪除行後自動編號行：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

3. 然後保存並關閉此程式碼，當您在單元格 A1 中輸入第一個數字 1 時，從 1 到 20 的序列號將自動填滿。如果您從範圍中插入或刪除行，系列號將立即自動重新編號。

注意：在上述程式碼中，字母 A 表示您要填寫序列號的列字母，1 To 20 是您要編號的行，A21 是您最後一個編號單元格旁邊的單元格引用。您可以根據需要更改它們。

演示：在 Excel 工作表中插入或刪除行後自動編號行