我的Excel表格第一列是序号，如我从中删除一行纪录，那么序号如何自动调整？使用VBA!

我的Excel表格第一列是序号，如我从中删除一行纪录，那么序号如何自动调整？使用VBA!
急！

4 个解决方案

#1

你只要运行如下程序即可：
Option Explicit
Sub ModiLineNum()
'假设第一行为标题行，数据从第2行开始
Dim iLineNum As Integer
iLineNum = 2

'更新各行行号
Do While Not IsEmpty(Cells(iLineNum, 1))
Cells(iLineNum, 1).Value = iLineNum - 1
iLineNum = iLineNum + 1
Loop
MsgBox "行号已经修改完成!"

End Sub
不知能否解决你的问题？

#2

up

#3

不用VBA也行，用公式就可以
=Row()

#4

'假设第一行为标题行，数据从第2行开始
=ROW()-1