excel - 根据现有工作表名称创建新工作表

Question

使用我当前的代码集，我只能让它根据以下现有工作表（001、002 和 003）创建新工作表，如屏幕截图 1所示；而表格（010、011 和 012 被省略）。

我如何调整我的代码以使其能够获取现有工作表的名称并创建新工作表。例如，在屏幕截图 2 中。

Dim x As Long
Dim wkshtCount As Long

For x = 1 To ActiveWorkbook.Sheets.Count
If InStr(1, Sheets(x).Name, "00") > 0 Then wkshtCount = wkshtCount + 1
Next

Dim i As Long

For i = 1 To wkshtCount
ActiveWorkbook.Sheets("Main Sheet").Copy _
Before:=ActiveWorkbook.Sheets("Main Sheet")
ActiveSheet.Name = "Testing" & " " & "00" & i
Next i

截图一：

截图二：

标签： excelvba

Answer 1

Dim x As Long
Dim wkshtCount As Long

For x = 1 To ActiveWorkbook.Sheets.Count
If InStr(1, Sheets(x).Name, "0") > 0 Then wkshtCount = wkshtCount + 1
Next

Dim i As Long

For i = 1 To wkshtCount
ActiveWorkbook.Sheets("Main Sheet").Copy _
Before:=ActiveWorkbook.Sheets("Main Sheet")
ActiveSheet.Name = "Testing" & " " & Sheets(i).Name 
Next i