VBA:在循环中复制范围(逐行)，并将其(逐行)插入到新工作表(loop + if语句)中

Sub CopyRangeAndInsert()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim row As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围的起始位置
    Set sourceRange = sourceSheet.Range("A1:A10") ' 设置源范围的起始位置和结束位置
    Set targetRange = targetSheet.Range("A1")
    
    ' 循环复制和插入
    For Each row In sourceRange.Rows
        If row.Value <> "" Then ' 判断是否需要复制插入
            row.Copy Destination:=targetRange ' 复制源行到目标范围
            Set targetRange = targetRange.Offset(1) ' 目标范围下移一行
        End If
    Next row
End Sub