Excel怎么用VBA合并工作簿

Excel的VBA可以通过编程实现合并多个工作簿的数据。下面是一个合并多个工作簿的示例代码：

Sub MergeWorkbooks()
    Dim masterWorkbook As Workbook
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim lastRow As Long
    Dim nextRow As Long
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim sourceFile As Variant

    '设置主工作簿
    Set masterWorkbook = ActiveWorkbook

    '打开源工作簿
    sourceFile = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
    If sourceFile = False Then Exit Sub '如果没有选择文件，则退出

    '遍历源工作簿中的所有工作表
    Set sourceWorkbook = Workbooks.Open(sourceFile)
    For Each sourceWorksheet In sourceWorkbook.Worksheets
        '找到最后一行
        lastRow = masterWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        nextRow = lastRow + 1

        '复制源工作表
        Set sourceRange = sourceWorksheet.UsedRange
        Set destinationRange = masterWorkbook.Worksheets(1).Range("A" & nextRow)
        sourceRange.Copy destinationRange
    Next sourceWorksheet

    '关闭源工作簿
    sourceWorkbook.Close False

    '完成
    MsgBox "工作簿合并完成！"
End Sub

这个代码将遍历所有选择的工作簿中的所有工作表，并将它们复制到主工作簿的第一个工作表中，从主工作簿的下一行开始。你可以根据需要修改代码以适应你的需求。