[程序设计]excel VBA  不同标识行之间插入一个空行 [复制链接]

Sub aaa()

    aa = 0
    For i = 1 To 1900

        bb = Sheet1.Cells(i, 1)

        If bb <> aa Then
           aa = bb
            Rows(i).Insert
             i = i + 1
        End If

    Next

End Sub

excel 还是很友好的