Копирование пустого шаблона в следующий доступный столбец в той же электронной таблице

Question

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

У меня есть диапазон ячеек * A1: M36 ". Это пустой шаблон. Я создал кнопку, но не знаю, как завершить макрос sh. Мне бы хотелось, чтобы при нажатии кнопки новый пустой шаблон помещался в следующий пустой столбец. Я думаю, что я хотел бы иметь здесь функцию смещения [(0,1)?], чтобы она выглядела более эстетично, что позволило бы создать второй шаблон в столбце «O». В настоящее время я читаю учебные пособия, чтобы попытаться понять Сам, но надеялся, что смогу получить более прямую обратную связь.

Любая помощь будет принята с благодарностью!

С уважением,

Бендер

Answer 1

Чтобы скопировать весь шаблон, без того, что заполнили ваши пользователи, вам нужен еще один лист (названный «Шаблон» в моем следующем коде):

Sub testCopyTemplate()
 Dim sh As Worksheet, shT As Worksheet, rng As Range, lastCol As Long
   Set shT = Worksheets("Template")
   Set sh = ActiveSheet 'use here the sheet where you fill the data
   Set rng = shT.Range("A1:M36")
   lastCol = sh.Cells(1, Columns.count).End(xlToLeft).Column
   rng.Copy sh.Cells(1, lastCol + IIf(lastCol = 1, 0, 1))'here it deals with the case of an empty (active) sheet, when column A:A must be used...
End Sub