Ви можете використовувати макрос для копіювання даних з одного аркуша Excel на інший аркуш тієї самої книги
Хочете перенести вміст області з одного аркуша на інший? Це легко зробити за допомогою інтерактивного використання Excel. Але як ви виконуєте роботу з макросом? Створіть цикл, який повторює всі клітинки, які потрібно скопіювати. Ось так виглядає макрос:
Область підкопіювання ()
Dim Quelltab як робочий аркуш
Затемнити цільову вкладку як аркуш
Dim Cell As Range
Затемнений лічильник як довго
Лічильник = 1
Діапазон = "A1: A10"
Встановити джерело = вкладка ActiveWorkbook.Worksheets ("Таблиця1")
Встановити цільову вкладку = ActiveWorkbook.Worksheets ("Таблиця2")
Для кожної клітинки у SourceTab.Range ("A1: A10")
Цільова таблиця Клітинки (лічильник, 1) = комірка
Лічильник = лічильник + 1
Наступна клітина
End Sub
У визначенні змінної "Вкладка Джерело" ви вказуєте ім'я вихідної таблиці у книзі. Це аркуш, з якого потрібно скопіювати дані. У макросі це аркуш "Таблиця1".
Використовуйте тег "Вкладка ціль", щоб визначити назву робочого аркуша, в який потрібно скопіювати дані.
Область A1: A10 копіюється в макрос. Якщо ви хочете використовувати іншу область, відповідно відрегулюйте макрос.
Ви використовуєте тег "Лічильник" для керування рядком у цільовій таблиці, у якій має розпочатися вставка клітинок. Дані копіюються один під одним у клітинки
Щоб ввести макрос, натисніть клавішу ALT F11 в Excel, щоб відкрити редактор VBA. Використовуйте команду INSERT - MODULE, щоб вставити порожній аркуш модуля. Щоб запустити макрос безпосередньо з Excel, використовуйте комбінацію клавіш ALT F8.
Скопіюйте весь робочий аркуш у робочу книгу
У вас також є можливість скопіювати весь аркуш у книзі за допомогою макросу. Щоб скопіювати активний аркуш поточної книги до кінця книги, скористайтеся таким макросом:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Робочі листи (Worksheets.Count)
End Sub
Після запуску макросу до активної книги додається робочий аркуш. Це копія робочого аркуша, який був активним під час виклику макросу. Щоб відрізнити два аркуші один від одного, Excel створює послідовний номер за скопійованим аркушем. Наступний малюнок показує, як це виглядає в табличному реєстрі після копіювання аркуша "Продажі":
