excel vba将多个工作簿中的多个工作表合并到一个工作簿中

Sub MergeWorksheets()
    Dim masterWorkbook As Workbook
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastRow As Long
    
    ' 创建一个新的工作簿作为合并后的目标工作簿
    Set masterWorkbook = Workbooks.Add
    
    ' 循环遍历每个源工作簿
    For Each sourceWorkbook In Workbooks
        ' 排除目标工作簿和当前工作簿
        If sourceWorkbook.Name <> masterWorkbook.Name And sourceWorkbook.Name <> ThisWorkbook.Name Then
            ' 循环遍历每个源工作簿中的每个工作表
            For Each sourceWorksheet In sourceWorkbook.Worksheets
                ' 在目标工作簿中创建一个新的工作表
                Set destinationWorksheet = masterWorkbook.Worksheets.Add(After:=masterWorkbook.Worksheets(masterWorkbook.Worksheets.Count))
                
                ' 将源工作表的内容复制到目标工作表
                sourceWorksheet.UsedRange.Copy destinationWorksheet.Range("A1")
                
                ' 获取目标工作表的最后一行
                lastRow = destinationWorksheet.Cells(destinationWorksheet.Rows.Count, 1).End(xlUp).Row
                
                ' 删除目标工作表中的空行
                destinationWorksheet.Rows(lastRow + 1 & ":" & destinationWorksheet.Rows.Count).Delete
            Next sourceWorksheet
        End If
    Next sourceWorkbook
    
    ' 保存目标工作簿
    masterWorkbook.SaveAs "合并后的工作簿路径和文件名.xlsx"
    
    ' 关闭目标工作簿
    masterWorkbook.Close
End Sub