VBA -查找列中的值，并在这些单元格前面插入空行

Sub InsertBlankRows()
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    '设置要查找的列范围
    Set rng = Range("A1:A100") '将范围修改为你需要的列范围
    
    '获取最后一行的行号
    lastRow = rng.Cells(rng.Cells.Count).Row
    
    '从最后一行开始向上遍历
    For Each cell In rng.Cells(lastRow, 1).Resize(-lastRow + 1, 1).Reverse
        '如果单元格的值不为空，则在该单元格前插入一行空行
        If Not IsEmpty(cell.Value) Then
            cell.EntireRow.Insert
        End If
    Next cell
End Sub