复制工作表的最后一行并粘贴到不同工作表的最后一行VBA

Sub CopyLastRowToDifferentWorksheets()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim i As Long
    
    ' 设置源工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    
    ' 获取源工作表的最后一行和最后一列
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    lastColumn = sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column
    
    ' 循环遍历目标工作表
    For i = 2 To ThisWorkbook.Sheets.Count ' 从第二个工作表开始，跳过源工作表
        ' 设置目标工作表
        Set destinationSheet = ThisWorkbook.Sheets(i)
        
        ' 将源工作表的最后一行复制到目标工作表的最后一行
        sourceSheet.Rows(lastRow).Copy destinationSheet.Rows(destinationSheet.Cells(destinationSheet.Rows.Count, 1).End(xlUp).Row + 1)
        
        ' 调整目标工作表的列宽，使其与源工作表相同
        destinationSheet.Columns.AutoFit
    Next i
End Sub