Question

如何在excel中序号不连接时自动插入空行

我的数据在A至F列，想在序号不连接时自动插入空行。





Answer 1

这个确实用VBA才好解决，并且不会繁琐，具体方法和步骤如下：

按ALT+F11键，在右边输入如下代码(建议复制粘贴，防止手误)：

Sub x()
    Dim i As Integer, j As Integer, k As Integer
    For i = 2 To 10000
        j = Cells(i, 1) - Cells(i - 1, 1)
        If j > 1 Then
            For k = 1 To j - 1
                Rows(i).Insert
                i = i + 1
            Next k
        End If
    Next i
End Sub

然后点击绿色的运行按钮(下图中红圈处)，截图如下：

Answer 2

请上传带行号列标的表格截图，并说明你的要求。

追问

我的表格是下面那个图，600多条数据，中间的序号是不连的，想在序号空的地方插入空白行。空几个序号插入几行。

Answer 3

用vba
if((cells(i,1)+1)<>cells(i+1,1))then
插一行

追问

• 非常谢谢您的回答，但是我不会VBA。