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

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

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

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

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

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

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

doc自動編號行1

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

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

doc自動編號行2

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

doc自動編號行3

使用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的Kutools's 插入項目符號 和我nsert編號 功能可以幫助您快速將項目符號和編號列表插入到一列單元格中。 點擊下載Kutools for Excel！

Excel的Kutools：具有300多個方便的Excel加載項，可以在30天內免費試用，沒有任何限制。 立即下載並免費試用！

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

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。