У меня есть рабочая книга со следующими листами. Список действий - 1 столбец, содержащий переменный список действий (строковые данные). Шаблон - этот лист содержит группу ячеек из 7 столбцов X 22 строк, которые составляют шаблон, используемый на следующем листе. Этапы действия - этот лист содержит заполненные шаблоны, перечисленные ниже по экрану с 1 пустой строкой между ними.
Моя цель - автоматически создать лист шагов действия. Для этого я сначала нахожу количество строк в листе списка действий. Затем скопируйте действие (строку в первой ячейке списка действий) в первую ячейку шаблона. Я также скопирую ту же строку в другую ячейку шаблона. Затем я хочу скопировать диапазон, содержащий завершенный шаблон, на лист «Действия». Оставляя пустую строку между предыдущими.
Я пробовал большую часть приведенного ниже кода в виде отдельных разделов, но когда я пытаюсь объединить его в одну процедуру, я получаю сообщение «Ошибка выполнения 1004 - определяется приложением или объектно-определяемая ошибка "Мне нужна помощь, чтобы разобраться, как заставить это работать.
Спасибо
Sub Create_Activity()
Dim ws As Worksheet: Set ws = Sheets("Activity Steps") 'declare and set your worksheet
With Worksheets("Activity List") 'Count the number of rows in Activity List NbrOfActivities = Application.Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count End With
For i = 1 To NbrOfActivities
Activity = ActiveWorkbook.Worksheets("Activity List").Cells(i, 1).Value 'Get First Activity From List
ActiveWorkbook.Worksheets("Template").Cells(A, 1).Value = Activity 'Put Activity into Cell A1 on Template
ActiveWorkbook.Worksheets("Template").Cells(D, 4).Value = Activity 'Put Activity into Cell D4 on Template
ActiveWorkbook.Worksheets("Template").Range("A1:G23").Copy 'Copy Complet Template Range
NextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 2 'Get next Row in Activity Steps workSheet
ws.Range("A" & NextRow).PasteSpecial xlPasteAll 'paste completed template in Activity Steps worksheet
Next i ' Get next Activity From List
End Sub