EXCEL表格如何在一个工作簿中筛选出有相同关键字的工作表，进行批量编辑？

Sub test()
Dim sh As Worksheet
Dim wb1, wb2 As Workbook
Application.DisplayAlerts = False
Set wb1 = ThisWorkbook
Workbooks.Add
Set wb2 = ActiveWorkbook
For Each sh In wb1.Worksheets
    If sh.Name Like "北京市*" Then
        sh.Copy after:=wb2.Worksheets(wb2.Worksheets.Count)
    End If
Next
wb2.Sheets(1).Delete
Application.DisplayAlerts = True
End Sub