Копирование шаблона Excel и динамическое именование

Question

У меня есть рабочий лист, который действует как мастер.Я хочу иметь возможность запускать макрос, который создаст копию листа и переименует его, он должен называться CQ X, где X представляет следующее число - так что CQ5, CQ6 и т. Д. Я, очевидно, могу скопировать лист и переименовать его довольнолегко, но я не знаю, как лучше составить следующий номер, а затем добавить его в?

Answer 1

Вы можете подсчитать, сколько листов имя имеет «CQ», а затем скопировать и назвать скопированный лист для следующих чисел

Sub CountAndCopy()
    Dim WS As Worksheet, sh As Worksheet, iCnt As Long, x

    Set WS = Worksheets("Template")

    For Each sh In Sheets
        If InStr(1, sh.Name, "CQ", vbTextCompare) = 1 Then iCnt = iCnt + 1
    Next sh

    x = CStr(iCnt)

    WS.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "CQ " & x + 1
    WS.Select

End Sub