Question

求帮写一段vba代码，在excel文件中自动插入缺序号的空行，补全序号

如图的数据，A列为序号，缺了2、6、10等等。希望能写个宏代码，能自动在缺号的位置插入空行，把序号补全，变成下面这样：





Answer 1

Sub 插入行()
    For i = [a65536].End(3).Row To 2 Step -1
        If Cells(i, 1) - 1 <> Cells(i - 1, 1) Then
            Rows(i & ":" & i).Insert Shift:=xlDown
            Cells(i, 1) = Cells(i + 1, 1) - 1
        End If
    Next
End Sub

追问

这个虽然可以插入但是每次只能插一行啊，如果缺的行都是单行还好，如果缺了连着的好几行就不行了。比如如果序号是1、5、8，就会变成1、2、5、6、8，而不是12345678。需要多次才能达成填满啊。有没有办法一次就补齐的。

追答

Sub 插入行()
    For i = [a65536].End(3).Row To 2 Step -1
        Do While Cells(i, 1) - 1 <> Cells(i - 1, 1)
            Rows(i & ":" & i).Insert Shift:=xlDown
            Cells(i, 1) = Cells(i + 1, 1) - 1
        Loop
    Next
End Sub

追问

谢谢！这样就好用多了！话说，如果需要补全空行的数据不是从excel表格第一行开始的，而是从中间某行开始的，而我只想往下插入行的话怎么办？现在这个宏的话，会无限向上编负数。。。
例如，我的表格从第10行开始序号是1、5、8，而我只想从第十行开始变成12345678，前面9行有别的数据我不想变动。

追答

试试将代码中的【2】改为【11】。

追问

to 2 step -1改成to 11 step -1？
好像不行。改了之后就完全不反应了。。。

追答

你是不是搞错了？我试了下，完全可用。

粘贴以下代码吧：

Sub 插入行()
    For i = [a65536].End(3).Row To 11 Step -1
        Do While Cells(i, 1) - 1 <> Cells(i - 1, 1)
            Rows(i & ":" & i).Insert Shift:=xlDown
            Cells(i, 1) = Cells(i + 1, 1) - 1
        Loop
    Next
End Sub

追问

不不不 ，我不是那个意思，从第十行开始是我打的一个比方，就是说数据可能是从第十行开始的，也可能是第二十行或者第二十六行。这个是随机的。我需要处理的每个表格都不一样。
你这个代码只能是从第十行开始。。。所以我一开始随便在第五行输了几个数试了下不行，换到第十行可以了，换到第二十行又负数了。。。
能否有个代码不管是第几行开始，总之当我用鼠标选定了一段序号后，就把我选定的这一段补齐。其他行都不动它。

追答

好的，我试试，不过要等下班后才有时间。若有意，请追问。

追问

好的，麻烦啦

Answer 2

如果不用VBA没关系的话其实可以通过在A列最下面填充一列从1到所有数中最大值的数据，然后通过删除重复值，再进行排序来完成。

追问

这个我知道，但是很麻烦啊，首先要在下面拖出一大串数字，然后再删除重复值，然后再排序。vba的话会快很多，如果能写出合适的代码，只需要按一个快捷键就解决了。