Уважаемые коллеги, помогите решить задачку..
Нужно написать макрос для копирования каждой 14-й ячейки в колонке А листа "List" и вставить на лист "Worksheet"
Путем редактирования записаного макроса удалось получить такой результат
Оно то работает , но мне нужно скопировать гораздо больше ячеек, а писать в ручную долго . Может быть есть другой подход ?
Нужно написать макрос для копирования каждой 14-й ячейки в колонке А листа "List" и вставить на лист "Worksheet"
Путем редактирования записаного макроса удалось получить такой результат
Код |
---|
Sheets("List").Select Range("A2,A16,A30,A44,A58,A72,A86,A100,A114,A128,A142,A156,A170,A184,A198,A212,A226,A240,A254,A268,A282,A296,A310,A324, A338,A352,A366,A380,A394,A408,A422,A436,A450,A464,A478,A492,A506,A520,A534,A548,A562,A576").Select Range("A576").Activate Selection.Copy Sheets("Worksheet").Select Range("A2").Select ActiveSheet.Paste |