Excel VBA -将行复制到不同列中的新工作表

Sub CopyRowsToNewWorksheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    targetSheet.Name = "目标工作表名称"
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 复制行到目标工作表中的不同列
    For i = 1 To lastRow
        sourceSheet.Rows(i).Copy targetSheet.Cells(i, 1)
        sourceSheet.Rows(i).Copy targetSheet.Cells(i, 2)
        ' 在这里可以继续复制到其他列
    Next i
End Sub