如何在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 到 20 是您要编号的行，而A21是紧接您最后一个编号单元格的单元格引用。您可以根据需要更改它们。

演示：在Excel工作表中插入或删除行后自动对行进行编号