За да прехвърлите напълно данните от текущия диапазон от клетки в нова таблица, трябва да знаете колко голям е обхватът на използваните клетки около активната клетка. Или можете да оставите Excel да направи това вместо вас и да копира g
Искате ли автоматично да копирате всички клетки от съседен диапазон от клетки в макрос? Това е особено полезно, ако искате да реагирате гъвкаво на въвеждане от потребители и не знаете колко големи са въведените области с данни.
Можете да използвате макрос за тази работа. Макросът определя всички клетки около активната клетка и копира точно тези клетки в нова работна книга.
Следващата фигура показва таблица с три различни области с данни. Те са цветно кодирани, за да ги виждате по-лесно.
Счита се, че всички клетки, които се свързват със съседни клетки без празни клетки, принадлежат заедно.
С подходящ макрос можете да гарантирате, че след щракване върху клетка в диапазон от клетки, всички клетки, принадлежащи към нея, се копират в нова таблица. Ето подходящия код на програмата:
Текуща област на подкопиране ()
Затъмняване на източника като диапазон
Затъмнете новия лист като работен лист
Задайте източник област = ActiveCell.CurrentRegion
Задайте NeuesBlatt = Работни книги. Добавяне на работни листове (1)
Източна област. Дестинация за копиране: = NeuesBlatt.Range ("A1")
End Sub
Преди да извикате макроса, щракнете върху която и да е клетка в таблица. Макросът определя всички клетки, които заедно с избраната клетка принадлежат към диапазон и копират този диапазон от данни в нова, празна работна книга. Следващата фигура показва как изглежда резултатът след извикване на макроса, ако клетка E9 в таблицата от първата фигура е избрана преди стартирането на макроса.
За да въведете макроса, натиснете ALT F11 в Excel, за да изведете редактора на VBA. Изберете командата INSERT - MODULE в редактора на VBA и въведете макроса. За да стартирате макроса, активирайте комбинацията от клавиши ALT F8 в Excel. Двете клавишни комбинации за стартиране на VBA редактора и макроса работят във всички версии на Excel.
