表中的不同部分(多个空行)。创建一个条件循环，将空行输入到正确的节- VBA

Sub InsertEmptyLinesToSections()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = lastRow To 2 Step -1
        ' 判断当前行是否为空行
        If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ' 在当前行的上方插入一个空行
            ws.Rows(i).Insert Shift:=xlDown
        End If
    Next i
End Sub