在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应用程序 窗口，请将以下代码复制并粘贴到空白的“模块”窗口中。

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 是最后一个编号的单元格旁边的单元格引用。您可以根据需要更改它们。

将项目符号或编号列表插入单元格列

Kutools for Excel's 插入项目符号 和我nsert编号 功能可以帮助您快速将项目符号和编号列表插入到一列单元格中。 点击下载Kutools for Excel！

Kutools for Excel：具有300多个方便的Excel加载项，可以在30天内免费试用，没有任何限制。 立即下载并免费试用！

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

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。