用vba合并一个excel工作薄下面多个工作表

要合并一个Excel工作薄下的多个工作表，你可以使用VBA编写一个宏来实现。以下是一个示例代码：

Sub MergeWorksheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim mergedSheet As Worksheet
    Dim lastRow As Long
    
    ' 获取当前活动的工作薄
    Set wb = ActiveWorkbook
    
    ' 创建一个新的工作表，用于合并数据
    Set mergedSheet = wb.Worksheets.Add(After:=wb.Sheets(wb.Sheets.Count))
    mergedSheet.Name = "合并后"
    
    ' 循环遍历所有工作表
    For Each ws In wb.Worksheets
        ' 排除合并后的工作表
        If ws.Name <> mergedSheet.Name Then
            ' 在合并后的工作表中复制数据
            lastRow = mergedSheet.Cells(mergedSheet.Rows.Count, 1).End(xlUp).Row
            ws.UsedRange.Copy Destination:=mergedSheet.Cells(lastRow + 1, 1)
        End If
    Next ws
    
    MsgBox "工作表已成功合并到 " & mergedSheet.Name & "。"
End Sub

你可以将上述代码复制到Excel VBA编辑器中，然后运行宏来合并一个Excel工作薄下的多个工作表。这段代码会在当前活动的工作薄中创建一个名为"合并后"的新工作表，并将其他所有工作表的数据复制到该工作表中。最后会弹出一个消息框显示合并完成。你可以根据需要进行修改。