将数据行复制到Excel中的另一个工作表并添加列VBA

Sub CopyDataToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为源工作表的名称
    Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为目标工作表的名称
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制数据到目标工作表
    For i = 1 To lastRow
        ' 复制数据行到目标工作表
        sourceSheet.Rows(i).Copy targetSheet.Rows(i)
        
        ' 在目标工作表的列V中添加数据
        targetSheet.Cells(i, "V").Value = "添加的数据" ' 修改为要添加的数据
        
        ' 可以根据需要在此处添加其他列的数据
        ' targetSheet.Cells(i, "W").Value = "其他数据"
    Next i
End Sub