使用VBA for Excel，如果列包含任何文本，则复制行

Sub CopyRowsWithText()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设要检查的文本在"A"列
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 检查当前行的文本是否为空
        If ws.Cells(i, "A").Value <> "" Then ' 假设要检查的文本在"A"列
            ' 复制当前行到下一行
            ws.Rows(i).Copy Destination:=ws.Rows(i + 1)
        End If
    Next i
End Sub