表中的自动序列号

我正在使用下面的代码做一个自动序列号，但我想要做的是：

我已经在Sheet1 ("Table1")& ("Table2")创build了两个表格，我想单独应用这些代码。

 Private Sub Worksheet_Activate() lrow = Cells(Rows.Count, 2).End(xlUp).Row Set myrange = Range(Cells(2, 2), Cells(lrow, 2)) For Each cell In myrange cell.Offset(0, -1).Value = i + 1 i = i + 1 Next cell End Sub 

Answer 1

为什么不使用公式而不是VBA来获取表格的Sl＃。

表格有一个特殊的function，如果一个单元格填充一个公式，那么它会自动填充该列的单元格的其余部分与初始公式。

所以在你的表的第二行Sl。＃Column（第一行代表Table Column Headers）只需复制粘贴下面的公式即可。

ROWS =（$ 1：1）