VBA Excel: добавить лист с шаблоном уже в Workbook

Question

Быстрый вопрос:

У меня есть лист TEMPLATE в моей книге. Я хочу добавить несколько похожих листов в эту книгу, используя TEMPLATE в качестве шаблона.

Как это сделать в VBA Excel?

Answer 1

Для 5 дополнительных TEMPLATES вам необходимо скопировать его 5 раз в цикле:

Dim i as byte 
for i=1 to 5 
    Sheets("TEMPLATE").Copy after:=sheets("TEMPLATE") 
Next i 

Answer 2

Вот пример, который составляет 13 копий:

Sub qwerty() 
    For i = 1 To 13 
     Sheets("TEMPLATE").Copy before:=Sheets(1) 
    Next i 
End Sub 

модифицируют это, чтобы удовлетворить ваши потребности.

Answer 3

Просто зарегистрируйтесь здесь, если кто-либо наткнется на этот ответ, как и я, вы также можете сделать это с диапазоном, если вы не хотите копировать весь лист, например, если ваш «Шаблон» - это всего лишь диапазон из другого листа

ThisWorkbook.Sheets("Master").Range("A2:L65536").Copy Destination:=ThisWorkbook.Sheets.Add(, Sheets("Data")).Range("A1") 

Что важно здесь:

назначения требует диапазон

Sheet.add возвращает объект рабочего листа.

так вместо передачи sheetX.range в качестве целевого аргумента мы проходим CreateNewSheetFunction.Range

не может быть хорошим примером кода redability, но все же, это вариант