使用vba将多个工作表中的数据提取到一个工作表

Sub CombineWorksheets()
    Dim ws As Worksheet
    Dim combinedSheet As Worksheet
    Dim lastRow As Long
    Dim copyRange As Range
    
    '创建一个新的工作表来合并数据
    Set combinedSheet = ThisWorkbook.Sheets.Add(After:= _
         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    combinedSheet.Name = "合并数据"
    
    '循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '排除目标工作表，只合并其他工作表的数据
        If ws.Name <> combinedSheet.Name Then
            '确定源工作表中的最后一行
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            
            '定义要复制的范围（这里以A1到最后一行的所有列为例）
            Set copyRange = ws.Range("A1:" & ws.Cells(lastRow, ws.Columns.Count).Address)
            
            '将复制的数据粘贴到目标工作表的下一行
            With combinedSheet
                .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues
            End With
        End If
    Next ws
    
    '自动调整目标工作表的列宽
    combinedSheet.UsedRange.Columns.AutoFit
    
    '释放剪贴板中的数据
    Application.CutCopyMode = False
End Sub