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

2024-10-30 13:37:27
有3个网友回答
网友(1):

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

网友(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....,你删除一行就会重新排下序,不知道有没满足要求

网友(3):

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

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

next r