宏Excel合并多个具有相同工作表名称的工作簿

Sub MergeWorksheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetWS As Worksheet
    
    ' 设置目标工作表
    Set targetWS = ThisWorkbook.Sheets(1)
    
    ' 循环遍历所有打开的工作簿
    For Each wb In Application.Workbooks
        ' 排除目标工作簿
        If Not wb Is ThisWorkbook Then
            ' 循环遍历工作簿中的所有工作表
            For Each ws In wb.Worksheets
                ' 检查工作表名称是否与目标工作表名称相同
                If ws.Name = targetWS.Name Then
                    ' 将工作表的数据复制到目标工作表
                    ws.UsedRange.Copy targetWS.Cells(targetWS.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                End If
            Next ws
        End If
    Next wb
    
    ' 关闭所有打开的工作簿，保存更改
    For Each wb In Application.Workbooks
        If Not wb Is ThisWorkbook Then
            wb.Close SaveChanges:=True
        End If
    Next wb
End Sub