VBA:从所有工作表复制单元格并粘贴到列中

Sub CopyCellsToColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim pasteColumn As Range
    
    ' 设置粘贴的目标列
    Set pasteColumn = ThisWorkbook.Sheets("目标工作表").Range("A1")
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取每个工作表的最后一行
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        ' 复制单元格并粘贴到目标列
        ws.Range("A1:A" & lastRow).Copy Destination:=pasteColumn
        
        ' 更新粘贴的目标列
        Set pasteColumn = pasteColumn.Offset(lastRow, 0)
    Next ws
End Sub