Question

求vba代码，按所缺序号插入空行并编号

比如我有这个一个表格：

表格上半部是有数据的，然后我想做个宏，在表格下方我鼠标选定的那一列序号里，按照所缺序号插入空行，并且编号，让表格变成下面的样子：

注意，第一，我只在我鼠标选定的那些行中间插入空行编号，不对其他行进行修改，对表格上部的数据也不会有任何影响。第二，鼠标选定的区域不是固定的，可能某个文件我选定第5行到第9行，可能另一个是第7行到第20行。总之以我鼠标选定的区域为准。第三，序号虽然一定是从小到大排序的，但是不一定是从1开始，比如图中就是从5开始。实际完成后，像图中那样变成56789....也可以，或者在5前面插入1234变成123456789也可以，这个随意。
求帮写一段vba代码~~~





Answer 1

代码如下：

Option Explicit
Sub YgB()
    Dim arr, i, i2, j, k, m, n, c As Range
    arr = Selection
    i = Selection.Cells(1, 1).Row
    j = Selection.Cells(1, 1).Column
    n = 0
    For k = 1 To UBound(arr)
        If n <> 0 Then
            If arr(k, 1) > n + 1 Then
                Cells(i2, 1).Resize(arr(k, 1) - n - 1, 1).EntireRow.Insert
                For Each c In Cells(i2, 1).Resize(arr(k, 1) - n - 1, 1).Cells
                    n = n + 1
                    c.Value = n
                    i2 = i2 + 1
                Next c
            End If
            i2 = i2 + 1
        Else
        i2 = i + k
        End If
        n = arr(k, 1)
    Next k
End Sub

 执行的拷屏如下：

Answer 2

你看看是不是这种效果~

追问

恩，代码呢？