熊猫，如何组合多个具有相同名称但小写或大写的工作表？

Sub CombineSheets()
    Dim ws As Worksheet
    Dim newWorkbook As Workbook
    
    ' 创建新的工作簿
    Set newWorkbook = Workbooks.Add
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 判断工作表名称是否相同（不区分大小写）
        If UCase(ws.Name) = UCase("Sheet1") Then ' 替换为需要组合的工作表名称
            ' 复制工作表到新的工作簿
            ws.Copy After:=newWorkbook.Sheets(newWorkbook.Sheets.Count)
        End If
    Next ws
    
    ' 删除新工作簿中的默认工作表
    Application.DisplayAlerts = False
    newWorkbook.Sheets(1).Delete
    Application.DisplayAlerts = True
End Sub