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

假設我在一列中從1到20為行編號，現在，當我從數據范圍插入或刪除行時，我希望編號列表可以自動重新編號。 可以在Excel中完成此任務嗎？

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

使用VBA代碼自動插入或刪除行後對行進行編號

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

實際上，Excel中的“行”功能可以幫助您在插入或刪除行後自動對行進行重新編號，請執行以下操作：

1。 輸入以下公式： = ROW（）-1 到單元格A2中，然後將填充手柄向下拖動到要對行編號的單元格，請參見屏幕截圖：

備註：如果您的號碼列表從第一個單元格開始，則可以將公式更改為 = ROW（），如果您的數字與實際行不匹配，則可以從公式中添加或減去，例如， = ROW（）-3, = ROW（）+ 10...

2。 然後為此數據范圍創建一個表，選擇數據范圍，然後單擊 插入 > 枱燈，然後在 創建表格 對話框，檢查 我的桌子有標題 如果您的範圍內有標題，請參見屏幕截圖：

3。 然後點擊 OK，該表將立即創建，現在，當您在表範圍內插入或刪除行時，行號始終會自動更新，請參見屏幕截圖：

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 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 到20 是要編號的行，並且 A21 是最後一個編號的單元格旁邊的單元格引用。 您可以根據需要更改它們。

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