如果a列中有值，则VBA将范围复制/粘贴到下面的行中

Sub CopyPasteRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取a列的最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历a列
    For i = 2 To lastRow
        ' 检查a列是否有值
        If Cells(i, "A").Value <> "" Then
            ' 复制a列所在行的数据
            Rows(i).Copy
            ' 将复制的数据粘贴到下一行
            Rows(i + 1).Insert Shift:=xlDown
            ' 跳过下一行，因为已经复制了数据
            i = i + 1
        End If
    Next i
    
    ' 清除剪贴板中的数据
    Application.CutCopyMode = False
End Sub