Как использовать VBA для выбора диапазона из активной ячейки в Excel (3 метода)

Hugh West

20-08-2023 Макросы & Excel VBA
  • Поделись Этим
Hugh West

Мы собираемся показать вам 3 методы в Excel VBA на выбрать диапазон с сайта активная клетка Чтобы продемонстрировать это, мы выбрали набор данных с 3 колонны : " Имя ", " Фамилия ", и " Электронная почта ". Мы выберем ячейка и используя Excel VBA мы выберем диапазон из этого ячейка .

Скачать Практическое пособие

Select Range from Active Cell.xlsm

3 способа выбрать диапазон из активной ячейки с помощью VBA в Excel

1. Использование VBA для выбора диапазона от активной ячейки до последней незаполненной ячейки

Для первого метода мы будем использовать метод Диапазон.Конец собственность.

Здесь мы введем наш код как Модуль . Чтобы поднять Модуль окно, сделайте следующее.

Шаги:

  • Во-первых, из Разработчик вкладка>>> выбрать Visual Basic .

Сайт Visual Basic появится окно.

  • Наконец, из Вставка >>> выбрать Модуль .

В результате появится Модуль окно.

1.1. Использование свойства End(xlUp)

В этом разделе мы собираемся выбрать ассортимент вверх до последнего незаполненная ячейка из нашего активная клетка .

Шаги:

  • Во-первых, поднимите Модуль окно.
  • Во-вторых, тип следующий код. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Мы призываем наших Sub Процедура ToUp . Затем мы выбираем наш ассортимент Первое значение - это наш активная клетка . Последнее значение ActiveCell.End(xlUp) . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • В-третьих, Сохранить и закройте окно.
  • После этого выберите клетка C6 . Это ячейка наш активный ячейка .

Теперь мы собираемся поднять Макро окно. Чтобы сделать это...

  • Из Разработчик вкладка>>> выбрать Макросы .

После этого Макро диалоговое окно появится.

  • Затем выберите " ToUp " из " Имя макроса: ".
  • Наконец, нажмите на Запускайте .

Мы видим это, мы выбранный сайт диапазон ячеек C4:C6 .

Читать далее: Excel VBA: копирование динамического диапазона в другую рабочую книгу

1.2. Включение свойства End(xlDown)

В этом разделе мы собираемся выбрать ассортимент вниз из нашего активная клетка .

Шаги:

  • Во-первых, поднимите Модуль окно.
  • Во-вторых, тип следующий код. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub

Мы призываем наших Sub Процедура ToDown . Затем мы выбираем наш ассортимент Первое значение - это наш активная клетка . Последнее значение ActiveCell.End(xlDown) . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • В-третьих, Сохранить и закройте окно.
  • После этого выберите клетка C6 Это наш активная клетка .

  • Затем поднимите Диалоговое окно макроса .
  • Выбрать " ToDown ".
  • Наконец, нажмите на Запускайте .

Таким образом, мы выбранный a ассортимент из нашего активная клетка используя Excel VBA .

Читать далее: Excel VBA для циклического просмотра диапазона до пустой ячейки (4 примера)

Похожие статьи

  • Excel VBA: цикл по столбцам в диапазоне (5 примеров)
  • Как использовать VBA для каждой строки диапазона в Excel
  • Макрос Excel: сортировка нескольких столбцов с помощью динамического диапазона (4 метода)
  • VBA для циклического просмотра строк и столбцов диапазона в Excel (5 примеров)
  • Как преобразовать диапазон в массив в Excel VBA (3 способа)

1.3. Применение свойства End(xlToLeft)

В этом разделе мы собираемся выбрать ассортимент к слева нашего активная клетка .

Шаги:

  • Во-первых, поднимите Модуль окно.
  • Во-вторых, тип следующий код. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub

Мы призываем наших Sub Процедура ToLeft . Затем мы выбираем наш ассортимент Первое значение - это наш активная клетка . Последнее значение ActiveCell.End(xlToLeft) . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • В-третьих, Сохранить и закройте окно.
  • После этого выберите ячейка D7 Это наш активная клетка .

  • Затем поднимите Диалоговое окно макроса .
  • Выбрать " ToLeft ".
  • Наконец, нажмите на Запускайте .

Таким образом, мы выбранный a ассортимент из нашего активная клетка используя Excel VBA .

1.4. Реализация свойства End(xlToRight)

В этом разделе мы собираемся выбрать ассортимент к правильно нашего активная клетка .

Шаги:

  • Во-первых, поднимите Модуль окно.
  • Во-вторых, тип следующий код. 
 Sub ToLeft() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub

Мы призываем наших Подпроцедура ToRight . Затем мы выбираем наш ассортимент Первое значение - это наш активная клетка . Последнее значение ActiveCell.End(xlToRight) . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • В-третьих, Сохранить и закройте окно.
  • После этого выберите ячейка C8 Это наш активная клетка .

  • Затем поднимите Диалоговое окно макроса .
  • Выбрать " ToRight ".
  • Наконец, нажмите на Запускайте .

Таким образом, мы выбранный a ассортимент из нашего активная клетка используя Excel VBA .

2. Использование свойства VBA Range.Offset для выбора диапазона из активной ячейки с помощью VBA в Excel

Для второго метода мы будем использовать метод VBA Диапазон.Смещение свойство для выбора ассортимент используя наш активная клетка .

Шаги:

  • Во-первых, тип следующий код в Модуль окно. 
 Sub UsingOffset() Range(ActiveCell, ActiveCell.Offset(1, 2)).Select End Sub

Мы создали наш Подпроцедура UsingOffset . Затем мы выбираем наш ассортимент Первое значение - это наш активная клетка . Последнее значение ActiveCell.Offset (1,2) . С Свойство смещения мы переезжаем 1 ряд вниз и 2 колонны правильно . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • Во-вторых, Сохранить и закройте окно.
  • После этого выберите ячейка B8 Это наш активная клетка .

  • Затем поднимите Диалоговое окно макроса .
  • Выбрать " UsingOffset ".
  • Наконец, нажмите на Запускайте .

В заключение, мы выбранный a ассортимент из активная клетка Более того, вот как должен выглядеть последний шаг.

Читать далее: Excel VBA: получение диапазона ячеек со значениями (7 примеров)

3. Выбор диапазона из активной ячейки с помощью VBA в Excel с использованием свойства CurrentRegion

Для последнего метода мы будем использовать Range.CurrentRegion собственность.

Шаги:

  • Во-первых, тип следующий код в Модуль окно. 
 Sub cRegion() ActiveCell.CurrentRegion.Select End Sub

Мы призываем наших Sub Процедура cRegion . Затем мы выбираем наш ассортимент . С CurrentRegion свойство, мы выбираем ассортимент до пустая ячейка . Наконец, мы выбираем ассортимент с Диапазон . Выберите метод.

  • Во-вторых, Сохранить его и вернуться к Excel лист.
  • После этого выберите ячейка C10 Это наш активная клетка .

  • Затем поднимите Диалоговое окно макроса .
  • Выбрать " cRegion ".
  • Наконец, нажмите на Запускайте .

Таким образом, мы выбранный сайт ассортимент до пустая ячейка .

Практическая секция

Мы предоставили наборы практических данных для каждого метода в разделе Excel файл.

Заключение

Мы показали вам 3 методы Excel VBA выбрать диапазон с сайта активная клетка Если у вас возникнут проблемы с пониманием шагов, не стесняйтесь комментировать ниже. Спасибо за чтение, продолжайте совершенствоваться!

Предыдущий пост Как преобразовать дату в текст YYYYMMDD (3 быстрых способа)
Следующий пост Как использовать функцию VBA DIR в Excel (7 практических примеров)

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.