对插入的最新行进行编号答案

【问题标题】：Numbering the latest row inserted对插入的最新行进行编号
【发布时间】：2021-11-07 07:23:14
【问题描述】：

如何自动为插入工作表的最新行编号？例如，我有 100 行编号，现在当我在第 56 行插入新行时，它应该编号为 101。请您帮我解决这个问题吗？

【问题讨论】：

这将需要 vba。公式不会这样做，并且没有内置方法可以这样做。

【解决方案1】：

假设数字存储在 A 列中。将以下事件宏放在工作表代码区：

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Rows.Count = 1 And .Columns.Count = Columns.Count Then
                Application.EnableEvents = False
                    Target(1) = Application.WorksheetFunction.Max(Range("A:A")) + 1
                Application.EnableEvents = True
            Else
                Exit Sub
        End If
    End With
End Sub

当插入一整行时，生成的Target 将有一行和 16384 列。

请注意，您可以通过Selecting 整行并在所有单元格中输入值来欺骗宏。所以不要那样做。

因为是工作表代码，所以安装非常容易，自动使用：

右键单击 Excel 窗口底部附近的选项卡名称
选择查看代码 - 这将打开一个 VBE 窗口
粘贴内容并关闭 VBE 窗口

如果您有任何疑虑，请先在试用工作表上进行尝试。

如果您保存工作簿，宏将与它一起保存。如果您使用的是 2003 年以后的 Excel 版本，则必须保存文件为 .xlsm 而不是 .xlsx

要删除宏：

如上所示打开 VBE 窗口
清除代码
关闭 VBE 窗口

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能正常工作！

【讨论】：