Excel VBA - диапазон копирования / вставки от одного листа ко всем последующим листам

Question

Впервые задаю вопрос, поэтому, пожалуйста, дайте мне знать, если я что-то упустил.

Я нашел этот код из другого SO сообщения. Я пытаюсь скопировать весь рабочий лист из «DNU» в каждый следующий рабочий лист. У меня проблема в том, что это будет вставлять значения, но я пытаюсь сделать обычную вставку, чтобы сохранить форматирование и формулы. Я попытался изменить «Значение» на «Копировать и вставить», но это привело к ошибке. Любая помощь приветствуется. Спасибо.

Вот код: ~

Dim wsVar As Worksheet

Dim i as Integer
For i = 6 to ThisWorkbook.Worksheets.Count
    ThisWorkbook.Worksheets(i).Range("A1:y200").Value = ThisWorkbook.Worksheets("DNU").Range("A1:Y200").Value
Next i

End Sub

Answer 1

Использовать метод Copy () объекта Range

Dim wsVar As Worksheet
Dim i as Integer
With ThisWorkbook
    For i = 6 to .Worksheets.Count
        .Worksheets("DNU").Range("A1:Y200").Copy destination:=.Worksheets(i).Range("A1:Y200")
    Next 
End With