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

VBA（Visual Basic for Applications）是一种用于编写宏和自定义功能的编程语言，广泛应用于Microsoft Office套件中的各种应用程序，包括Excel。

在Excel中，使用VBA可以实现将多个工作表中的数据提取到一个工作表的操作。以下是实现这一功能的一种方法：

打开Excel，按下ALT+F11组合键，进入VBA编辑器界面。
在VBA编辑器中，选择要操作的工作簿，双击打开。
在左侧的“项目窗口”中，双击打开工作表，然后双击打开“Sheet1”（或其他工作表的名称）。
在右侧的“代码窗口”中，输入以下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