Для того, щоб повністю перенести дані з поточного діапазону комірок до нової таблиці, вам потрібно знати, наскільки великий діапазон використовуваних комірок навколо активної комірки. Або ви можете дозволити програмі Excel зробити це за вас і скопіювати файл g
Ви хотіли б автоматично скопіювати всі клітинки з суміжного діапазону клітинок у макросі? Це особливо корисно, якщо ви хочете гнучко реагувати на введення даних від користувачів і не знаєте, наскільки великі введені області даних.
Для виконання цієї роботи можна використовувати макрос. Макрос визначає всі комірки навколо активної комірки та копіює саме ці клітинки в нову книгу.
Наступний малюнок показує таблицю з трьома різними областями даних. Вони мають кольорове позначення, щоб їх було легше побачити.
Вважається, що всі клітини, які з'єднуються з сусідніми клітинами без порожніх клітин, належать разом.
За допомогою відповідного макросу можна переконатися, що після натискання на клітинку в діапазоні комірок усі комірки, що належать їй, будуть скопійовані в нову таблицю. Ось відповідний код програми:
Поточна область підкопіювання ()
Приглушена область джерела як діапазон
Затемнити новий аркуш як робочий аркуш
Встановити вихідну область = ActiveCell.CurrentRegion
Встановити NeuesBlatt = Робочі книги. Додати робочі аркуші (1)
Область джерела. Копія призначення: = NeuesBlatt.Range ("A1")
End Sub
Перш ніж викликати макрос, клацніть будь -яку клітинку в таблиці. Макрос визначає всі клітинки, які разом із вибраною коміркою належать до діапазону, і копіює цей діапазон даних у нову порожню книгу. Наступний малюнок показує, як виглядає результат після виклику макросу, якщо клітинка E9 у таблиці з першого малюнка вибрана до запуску макросу.
Щоб ввести макрос, натисніть клавішу ALT F11 в Excel, щоб відкрити редактор VBA. Виберіть команду INSERT - MODULE у редакторі VBA та введіть макрос. Щоб запустити макрос, активуйте комбінацію клавіш ALT F8 в Excel. Дві комбінації клавіш для запуску редактора VBA та макросу працюють у всіх версіях Excel.
