用于复制和粘贴工作簿中多个工作表上的最后一列数据的VBA脚本

Sub CopyLastColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim i As Long
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取当前工作表的最后一行和最后一列
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
        
        ' 复制最后一列的数据
        ws.Cells(1, lastColumn + 1).EntireColumn.Insert
        ws.Cells(1, lastColumn + 1).Value = "Copied Column"
        ws.Range(ws.Cells(2, lastColumn), ws.Cells(lastRow, lastColumn)).Copy ws.Cells(2, lastColumn + 1)
    Next ws
End Sub