Можете да използвате макрос, за да копирате данни от един работен лист на Excel в друг лист в същата работна книга
Искате ли да прехвърлите съдържанието на област от един работен лист в друг? Лесно е да се направи с интерактивното използване на Excel. Но как да свършите работата с макрос? Изградете цикъл, който повтаря всички клетки, които искате да копирате. Ето как изглежда макросът:
Област на подкопиране ()
Dim Quelltab като работен лист
Затъмнете целевия раздел като работен лист
Dim Cell As Range
Dim Counter As Long
Брояч = 1
Диапазон = "A1: A10"
Задайте раздел източник = ActiveWorkbook.Worksheets ("Таблица1")
Задаване на целевия раздел = ActiveWorkbook.Worksheets ("Таблица2")
За всяка клетка в SourceTab.Range ("A1: A10")
Целева таблица Клетки (брояч, 1) = клетка
Брояч = брояч + 1
Следващата клетка
End Sub
В дефиницията на променливата "Раздел източник" посочвате името на таблицата източник в работната книга. Това е работният лист, от който искате да копирате данните. В макроса това е листът "Таблица1".
Използвайте етикета „Target tab“, за да определите името на работния лист, в който искате да копирате данните.
Областта A1: A10 се копира в макроса. Ако искате да използвате различна област, коригирайте макроса съответно.
Използвате маркера „Counter“, за да контролирате реда в целевата таблица, в който трябва да започне вмъкването на клетките. Данните се копират един под друг в клетки
За да въведете макроса, натиснете ALT F11 в Excel, за да изведете редактора на VBA. Използвайте командата INSERT - MODULE, за да вмъкнете празен модулен лист. За да стартирате макроса директно от Excel, използвайте комбинацията от клавиши ALT F8.
Копирайте цял работен лист в работна книга
Също така имате възможност да копирате целия работен лист в работна книга с помощта на макрос. За да копирате активния лист на текущата работна книга в края на работната книга, използвайте следния макрос:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Работни листове (Worksheets.Count)
End Sub
След като макросът стартира, към активната работна книга се добавя работен лист. Това е копието на работния лист, който е бил активен при извикването на макроса. За да разграничи двата работни листа един от друг, Excel създава пореден номер зад копирания работен лист. Следващата фигура показва как изглежда това в регистъра на таблицата след копиране на работния лист "Продажби":
