表中的自动序列号
表中的自动序列号
提问于 2016-02-29 05:38:11
我正在使用下面的代码来执行自动序列号，但我想做的是：
我已经在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回答 1
Stack Overflow用户
发布于 2016-02-29 05:47:22
为什么不使用公式而不是VBA来获取表的Sl.#。
表具有一种特殊的功能，如果单元格中填充了公式，那么它将自动用初始公式填充该列的其余单元格。
因此，在表Sl.#列的第二行(表列标题的第一行)中，只需复制粘贴下面的公式即可。
=行($1:1)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35692655
复制相关文章
相似问题
腾讯云开发者
