VBA合并多个sheet

在VBA中，可以使用Worksheet对象的Copy和Paste方法来实现合并多个sheet。具体步骤如下：

1. 打开需要进行合并的Excel文件，按下Alt + F11打开VBA编辑器。

2. 在VBA编辑器中，插入一个新的模块，并在模块中编写下面的代码：

Sub MergeSheets()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim lRow As Long
    Dim lCol As Long
    Dim sht As Worksheet
    
    '获取第一个sheet的行数和列数
    Sheets(1).Select
    lRow = ActiveSheet.UsedRange.Rows.Count
    lCol = ActiveSheet.UsedRange.Columns.Count
    
    '循环遍历所有的sheet
    For i = 2 To Sheets.Count
        '获取当前sheet的行数和列数
        Sheets(i).Select
        lRow = ActiveSheet.UsedRange.Rows.Count
        lCol = ActiveSheet.UsedRange.Columns.Count
        
        '复制当前sheet的数据到第一个sheet的下一行
        For j = 1 To lCol
            Sheets(i).Cells(1, j).Copy Destination:=Sheets(1).Cells(lRow + 1, j)
        Next j
    Next i
End Sub

3. 在代码中，首先获取第一个sheet的行数和列数，然后循环遍历所有的sheet，并将每个sheet的数据复制到第一个sheet的下一行。最终得到的就是合并后的数据。

4. 在VBA编辑器中点击运行按钮或按下F5键来执行代码。

注意：在执行代码前，请确保要合并的多个sheet的数据结构是相同的，否则可能会导致数据合并错误。