Excel VBA для виділення використаного діапазону в стовпці (8 прикладів)

Hugh West

02-06-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

Цей навчальний посібник продемонструє 8 приклади використання VBA для того, щоб вибрати Діапазон використання в стовпчик в ексель. загалом, на сьогоднішній день UsedRange Властивість в Excel представляє частину робочого аркуша, на якому знаходяться дані. Для наочної ілюстрації прикладів застосуємо властивість UsedRange у конкретному наборі даних для всіх прикладів.

Завантажити Практичний посібник

Робочий зошит з практики можна завантажити тут.

VBA для вибору використаного діапазону в файлі Column.xlsm

8 простих прикладів VBA для вибору використаного діапазону в стовпці

На наступному зображенні ми бачимо набір даних, який ми будемо використовувати для всіх прикладів. Набір даних містить імена Продавці їхні Місцезнаходження , Регіон, і Загальна сума У цьому наборі даних використаний діапазон буде розглядатися разом із заголовком. Таким чином, використаний діапазон у наступному наборі даних має вигляд ( B2:E15 ).

1. виберіть UsedRange у стовпці за допомогою VBA в Excel

Перш за все, ми виділимо всі стовпці з нашого набору даних. Для цього ми скористаємося командою VBA вибрати UsedRange Розглянемо покрокове виконання цього методу.

КРОКИ:

  • Почнемо з того, клацніть правою кнопкою миші на активному аркуші з ім'ям ' Select_Columns '.
  • Крім того, виберіть опцію ' Переглянути код '.

  • Далі, вищевказана дія відкриває порожній бланк VBA вікно коду для цього аркуша. Ми також можемо отримати це вікно коду, натиснувши клавішу Alt + F11 .
  • Далі введіть наступний код у цьому вікні коду: 
 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub
  • Після цього натисніть на кнопку Біжи або натисніть кнопку F5 ключ для запуску коду.

  • Нарешті, ми отримуємо результат, як на наступному зображенні. Ми бачимо, що використаний діапазон у стовпчиках з нашого набору даних тепер вибрано.

2. використання VBA для копіювання всього використаного діапазону в стовпці

У другому прикладі ми будемо використовувати VBA для копіювання всього використаного діапазону в стовпчиках з нашого набору даних. Як правило, ми використовуємо цей метод для копіювання певного регіону з нашого набору даних. Для виконання цього методу нам потрібно виконати наступні кроки.

КРОКИ:

  • Спочатку переходимо на вкладку активного робочого аркуша з назвою ' Прийом. '.
  • Наступний, клацніть правою кнопкою миші на цій вкладці і виберіть опцію ' Переглянути код '.

  • Відкриє порожній бланк VBA вікно коду для поточного аркуша. Інший спосіб отримати це вікно - натиснути клавішу Alt + F11 з клавіатури.
  • Потім вставте наведений нижче код у це вікно коду: 
 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub
  • Тепер, щоб запустити код, натисніть на кнопку Біжи або натисніть кнопку F5 ключ.

  • В результаті ми бачимо результат, який виглядає наступним чином. Також ми бачимо рамку навколо використаного діапазону, що свідчить про те, що код скопіював дані в межах цієї рамки.

Читати далі: Excel VBA: копіювання динамічного діапазону в іншу книгу

3. підрахунок кількості стовпців у використаному діапазоні за допомогою VBA

У третьому прикладі ми порахуємо кількість стовпців у нашому наборі даних за допомогою програми excel VBA вибрати Діапазон використання Цей приклад поверне у вікні повідомлення загальну кількість стовпців всередині використаного діапазону в нашому наборі даних. Виконайте наведені нижче кроки для виконання цього методу.

КРОКИ:

  • По-перше, виберіть активний аркуш з ім'ям ' Count_Columns '.
  • По-друге, клацніть правою кнопкою миші на назві активного аркуша і натисніть на опцію ' Переглянути код '.

  • Вищевказана команда відкриває порожній бланк VBA вікно коду для активного аркуша. Ми також можемо отримати вікно коду, натиснувши клавішу Alt + F11 з клавіатури.
  • По-третє, введіть наступний код у цьому порожньому вікні коду: 
 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub
  • Далі необхідно натиснути на кнопку Біжи або натисніть кнопку F5 ключ для запуску коду.

  • Нарешті, отримуємо результат у вікні повідомлення. Кількість стовпців у використаному діапазоні становить 4 .

Докладніше: Як за допомогою VBA підрахувати рядки в діапазоні з даними в Excel (5 макросів)

4. Excel VBA для підрахунку номера останнього стовпця у використаному діапазоні

У попередньому способі ми витягували номер останнього стовпця у використовуваному діапазоні. Однак у цьому прикладі ми визначимо номер останнього стовпця у використовуваному діапазоні по всьому робочому листу за допомогою функції VBA вибрати UsedRange Розглянемо кроки, які потрібно виконати, щоб здійснити цю дію.

КРОКИ:

  • Почнемо з того, клацніть правою кнопкою миші на активному аркуші з ім'ям ' Остання колонка '.
  • Далі обираємо опцію ' Переглянути код '.

  • Отже, наведена вище команда відкриває порожню сторінку VBA Альтернативний спосіб відкрити вікно коду для цього аркуша - натиснути клавішу Alt + F11 .
  • Після цього вставити в це вікно наступний код: 
 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub
  • Тепер натисніть на кнопку Біжи або натисніть кнопку F5 ключ для запуску коду.

  • В результаті отримуємо результат у вікні повідомлення. Останній стовпець у використаному діапазоні - це 5-й стовпчик робочого аркуша.

Схожі читання

  • Як використовувати VBA для кожного рядка в діапазоні в Excel
  • Використання VBA для виділення діапазону з активної комірки в Excel (3 способи)
  • Макрос Excel: сортування декількох стовпців за допомогою динамічного діапазону (4 способи)

5. виділити останню комірку останнього стовпця з UsedRange за допомогою VBA

У п'ятому прикладі ми використаємо VBA вибрати Діапазон використання для виділення останньої комірки останнього стовпця на аркуші Excel. Для ілюстрації цього прикладу ми продовжимо з нашим попереднім набором даних. Тепер подивимося на кроки для виконання цього методу.

КРОКИ:

  • Спочатку виберіть активний аркуш з ім'ям ' Остання_комірка '.
  • Наступний, клацніть правою кнопкою миші на цьому аркуші. Виберіть опцію ' Переглянути код '.

  • Далі, ми отримуємо порожнє місце VBA Також ми можемо натиснути Alt + F11 щоб відкрити це вікно коду.
  • Після цього введіть наступний код у цьому вікні коду: 
 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub
  • Тепер, щоб запустити код, натисніть на кнопку Біжи або натисніть кнопку F5 .

  • Нарешті, ми можемо побачити результат на наступному зображенні. Виділена остання комірка останнього стовпця - це комірка E15 .

6. Знайдіть діапазон комірок вибраного діапазону за допомогою Excel VBA

У цьому прикладі ми застосуємо VBA щоб знайти діапазон комірок виділеного використаного діапазону на аркуші Excel. Ми будемо використовувати функцію VBA Код поверне діапазон комірок, а також адресу стовпця у використовуваному діапазоні. Виконайте наведені нижче кроки, щоб виконати цю дію.

КРОКИ:

  • На початку, клацніть правою кнопкою миші на вкладці активного аркуша з ім'ям ' Знайти діапазон комірок '.
  • По-друге, виберіть опцію ' Переглянути код '.

  • Відкриє порожній бланк VBA Ще один спосіб відкрити це кодове вікно - натиснути кнопку Alt + F11 .
  • По-третє, введіть наступний код у цьому вікні: 
 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub
  • Далі, для запуску коду натисніть на кнопку Біжи або натисніть кнопку F5 ключ.

  • В кінці з'явиться вікно з повідомленням, подібне до наступного зображення.

Схожі читання

  • Циклічний перебір рядків і стовпців у діапазоні в Excel (5 прикладів)
  • Як перетворити діапазон в масив в Excel VBA (3 способи)

7. вставка властивості VBA UsedRange для підрахунку порожніх клітинок

У цьому прикладі ми будемо використовувати VBA вибрати UsedRange для підрахунку порожніх клітинок на аркуші Excel. Іноді ми можемо мати порожні клітинки у використовуваному діапазоні нашого набору даних. Ми можемо легко підрахувати кількість цих порожніх клітинок за допомогою властивості UsedRange Розглянемо кроки для виконання цього прикладу.

КРОКИ:

  • По-перше, клацніть правою кнопкою миші на вкладці активного аркуша з ім'ям ' Порожні_комірки '.
  • Далі обираємо опцію ' Переглянути код '.

  • Вищевказана дія відкриває порожній бланк VBA Альтернативний спосіб відкрити це кодове вікно - натиснути кнопку Alt + F11 .
  • Потім введіть наступний код у це вікно коду: 
 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Загальна кількість використаних комірок у 4-х використаних стовпчиках становить " & d & _ " і з них " & _ j & " комірка (комірки) порожні." End Sub
  • Після цього натисніть на кнопку Біжи або натисніть кнопку F5 ключ для запуску коду.

  • Нарешті, ми отримаємо результат у вікні повідомлення, в якому буде показано кількість загальних комірок і порожніх комірок у використаному діапазоні.

8. Використання діапазону VBA для знаходження першої порожньої комірки у стовпці в Excel

В останньому прикладі ми будемо використовувати таблицю excel VBA для того, щоб вибрати Діапазон використання в стовпці, щоб знайти першу порожню комірку в нашому аркуші Excel. Цей метод знайде першу порожню комірку певного стовпця. Порожня комірка завжди буде за межами використовуваного діапазону набору даних. Отже, якщо будь-яка комірка порожня або порожня у використовуваному діапазоні, вона не буде розглядатися в цьому методі. Тепер виконайте наведені нижче кроки, щоб виконати цей метод.

КРОКИ:

  • Почнемо з того, клацніть правою кнопкою миші на вкладці активного аркуша з ім'ям ' First_Empty '.
  • Крім того, виберіть опцію ' Переглянути код '.

  • Відкриє порожній бланк VBA Ми також можемо натиснути кнопку Alt + F11 щоб відкрити це вікно коду.
  • Крім того, введіть наступний код у порожнє поле VBA вікно коду: 
 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub
  • Далі, для запуску коду натисніть на кнопку Біжи або натисніть кнопку F5 ключ.

  • Нарешті, у вищенаведений код буде вставлено значення ' FirstEmptyCell в камері E16 Це перша порожня комірка стовпця E після використаного діапазону набору даних.

Читати далі: Циклічний перебір діапазону в Excel VBA до порожньої комірки (4 приклади)

Висновок

У двох словах, цей посібник показує 8 приклади використання VBA вибрати UsedRange Щоб перевірити свої навички, завантажте практичний аркуш, використаний для цієї статті. Будь ласка, не соромтеся коментувати у полі нижче, якщо у вас виникнуть запитання. Наша команда постарається відреагувати на ваше повідомлення якнайшвидше. Слідкуйте за новими інноваційними матеріалами Microsoft Excel рішень у майбутньому.

Попередній пост Як додати таблицю даних до діаграми Excel (4 швидких способи)
Наступний пост Як розрахувати відсоток відхилення в Excel (3 простих способи)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.