插入新行后，重新确定序号

武松打鼓 · 发表于 2023-7-26 11:31

原表有序号，想实现插入新行后重新确定序号

插入多行并带公式-重新确定序号.rar (50.66 KB, 下载次数: 14)

武松打鼓 · 发表于 2023-7-26 11:37

本帖最后由武松打鼓于 2023-7-26 14:46 编辑

加入这句成功了，还有其他方法吗
n = Cells(Rows.Count, 1).End(3).Row
For i = 2 To n
Cells(i, "a") = i - 1
Next

盼盼198310 · 发表于 2023-7-26 11:37

...............

limonet · 发表于 2023-7-26 13:15

用公式，A列=row()-1

武松打鼓 · 发表于 2023-7-26 14:42

limonet 发表于 2023-7-26 13:15
用公式，A列=row()-1

谢谢答复，不要公式要代码的

micch · 发表于 2023-7-26 15:11

limonet 发表于 2023-7-26 13:15
用公式，A列=row()-1

coderange.formula= "=row()-1"

复制代码

WANT-T · 发表于 2023-7-26 15:59

本帖最后由 WANT-T 于 2023-7-26 16:12 编辑

自动填充序列的代码：
Range("A2:A30").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=29, Trend:=False
前面的Range("A2:A30")改成插入新行后实际的区域，参数stop后面的数字改成实际的行数；就可以了！思路就是这样！
如果不会改，就调用我这个现成的代码：参数Target就是需要编号的区域

Sub 重新编号(Target As Range)
Application.EnableEvents = False
With Target
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=.Rows.Count, Trend:=False
End With
Application.EnableEvents = True
End Sub

复制代码

调用方法像这样：

		自动登录	找回密码
密码			免费注册

[求助] 插入新行后，重新确定序号

评分

评分

评分