请问一下

Dim wk As Workbook, sh As Worksheet
str2 = "ee"
Set wk = ThisWorkbook
For Each sh In Worksheets
If InStr(sh.Name, str2) <> 0 Then
'///////////////////////////////'
End If
Next
大概类似这样吧

Sub aaa()
Dim Wk As Workbook
Dim Mwk As Workbook
Dim I%
Set Mwk = ThisWorkbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wk = Workbooks.Add
For I = 1 To Mwk.Sheets.Count
If InStr(1, Mwk.Sheets(I).Name, ".c") Or InStr(1, Mwk.Sheets(I).Name, ".C") Then
Mwk.Sheets(I).Copy after:=Wk.Sheets(Sheets.Count)
End If
Next
If Wk.Sheets.Count > 1 Then
Wk.Sheets(1).Delete
Wk.SaveAs "d:\12360.xlsx" '存盘路径
End If
Wk.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub