Excel VBA在复制到其他工作表时跳过空白

Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet

Set sourceSheet = Worksheets("Sheet1")
Set targetSheet = Worksheets("Sheet2")

Dim sourceRange As Range
Dim targetRange As Range

Set sourceRange = sourceSheet.UsedRange
Set targetRange = targetSheet.Cells(1, 1) ' 设置目标工作表的起始单元格

For Each row In sourceRange.Rows
    If WorksheetFunction.CountA(row) <> 0 Then ' 检查行是否为空
        row.Copy targetRange ' 复制非空行到目标工作表
        Set targetRange = targetRange.Offset(1) ' 移动目标工作表的目标范围到下一行
    End If
Next row