VBA将行复制到其他工作表中的空行

Sub CopyRowToEmptyRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim targetRow As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制每一行到目标工作表的空行
    For i = 1 To lastRow
        ' 判断目标工作表的当前行是否为空行
        If WorksheetFunction.CountA(targetSheet.Rows(i)) = 0 Then
            ' 复制源工作表的当前行到目标工作表的空行
            sourceSheet.Rows(i).Copy targetSheet.Rows(i)
        End If
    Next i
End Sub