将集值从主工作表复制到多个工作表的最后一行的VBA代码

Sub CopyDataToLastRow()
    Dim mainSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Integer
    
    ' 设置主工作表
    Set mainSheet = ThisWorkbook.Sheets("主工作表")
    
    ' 循环复制数据到目标工作表
    For i = 2 To ThisWorkbook.Sheets.Count ' 从第二个工作表开始，跳过主工作表
        Set targetSheet = ThisWorkbook.Sheets(i)
        
        ' 获取目标工作表最后一行的行号
        lastRow = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1
        
        ' 复制主工作表的值到目标工作表的最后一行
        targetSheet.Cells(lastRow, 1).Value = mainSheet.Cells(1, 1).Value
        targetSheet.Cells(lastRow, 2).Value = mainSheet.Cells(1, 2).Value
        ' 继续复制其他列的值...
    Next i
End Sub