excel vba 汇总俩个excel到一个

可以使用 VBA 代码将两个 Excel 文件中的数据汇总到一个文件中。以下是一个简单的示例代码：

Sub CombineWorkbooks()
    Dim MasterWorkbook As Workbook
    Dim SourceWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim DestinationWorksheet As Worksheet
    Dim LastRow As Long
    
    '打开主工作簿
    Set MasterWorkbook = ThisWorkbook
    
    '打开源工作簿
    Set SourceWorkbook = Workbooks.Open("C:\Path\To\SourceWorkbook.xlsx")
    
    '复制源工作簿中的数据到主工作簿中
    For Each SourceWorksheet In SourceWorkbook.Worksheets
        Set DestinationWorksheet = MasterWorkbook.Worksheets.Add(After:=MasterWorkbook.Worksheets(MasterWorkbook.Worksheets.Count))
        DestinationWorksheet.Name = SourceWorksheet.Name
        LastRow = SourceWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
        SourceWorksheet.Range("A1:Z" & LastRow).Copy DestinationWorksheet.Range("A1")
    Next
    
    '关闭源工作簿
    SourceWorkbook.Close SaveChanges:=False
    
End Sub

这段代码会将源工作簿中的所有工作表复制到主工作簿中，并将它们命名为源工作簿中的工作表名称。你可以根据需要修改代码以满足你的具体需求。