表中的自动序列号

Question

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

我在Sheet1 ("Table1")& ("Table2")中创建了两个表格，我希望将这些代码单独应用于它们。

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来获取表格的＃。

表具有一项特殊功能，即如果单元格中填充了公式，则它将使用初始公式自动填充该列的其余单元格。

因此，在表格的第二行中，＃Column（第一行用于表格列标题）只需复制粘贴以下公式。

<强> = ROWS（$ 1：1）