请教，在Excel中A列为序号。在使用VBA语句删除中间一行后，如何使得该列自动进行重新排序？谢谢。

Question

对。是要重新编号。编号还是连续的。可是，我需要用VBA自动实现。

Answer 1

你应该是想删除后,下面的行自动编号吧.其实这个用公式就可以解决.
例如: A2单元格为第1行,那么你在其中输入=row()-1,然后向下拉填充,即可得到所有的编号,以后,删除后编号就会自动调整的.

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, i As Integer
a = Sheets("sheet2").[a65536].End(xlUp).Row
For i = 1 To a
Cells(i, 1).Value = i
Next
End Sub
重新排序了，序号是1234....，你删除一行就会重新排下序，不知道有没满足要求

Answer 3

假设删除了第n行
则在删除语句后，添加以下代码：

n=删除的行号
for r = n to range("A65535").end(xlup).row
range("A" & r) = range("A" & (r-1)) + 1

next r