Как да използвате VBA за избор на обхват от активна клетка в Excel (3 метода)

Hugh West

20-08-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Ще ви покажем 3 методи в Excel VBA към изберете обхват от активна клетка За да демонстрираме това, избрахме набор от данни с 3 колони : " Първо име ", " Фамилия ", и " Имейл ". Ще изберем клетка и използване на Excel VBA ще изберем диапазона от този клетка .

Изтегляне на работна тетрадка за практика

Изберете обхват от активната клетка.xlsm

3 начина за избиране на обхват от активна клетка с помощта на VBA в Excel

1. използване на VBA за избор на обхват от активната клетка до последната непразна клетка

За първия метод ще използваме Range.End собственост.

Тук ще въведем нашия код като Модул . За да повдигнете Модул прозорец, направете следното.

Стъпки:

  • Първо, от Разработчик tab>>> изберете Visual Basic .

Сайтът Visual Basic ще се появи прозорец.

  • Накрая, от Вмъкване на >>> изберете Модул .

Това ще доведе до появата на Модул прозорец.

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

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

Стъпки:

  • Първо, извикайте Модул прозорец.
  • Второ, тип следния код. 
 Sub ToUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub

Наричаме нашия Под Процедура ToUp . След това избираме нашите обхват . Първата стойност е нашата активна клетка Последната стойност е ActiveCell.End(xlUp) . Накрая избираме обхват с Обхват . Изберете метод.

  • Трето, Запазете и затворете прозореца.
  • След това изберете клетка C6 . това клетка е нашият активен клетка .

Сега ще изведем Macro прозорец. За да направите това...

  • От Разработчик tab>>> изберете Макроси .

След това Macro диалогов прозорец ще се появи.

  • След това изберете " ToUp " от " Име на макроса: ".
  • Накрая щракнете върху Изпълнявайте .

Можем да видим, че, ние сме избран на клетъчен диапазон C4:C6 .

Прочетете още: Excel VBA: Копиране на динамичен обхват в друга работна книга

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

В този раздел ще изберем обхват надолу от нашия активна клетка .

Стъпки:

  • Първо, извикайте Модул прозорец.
  • Второ, тип следния код. 
 Sub ToDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End 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

Наричаме нашия Под Процедура 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. Използване на свойството Range.Offset на VBA за избор на обхват от активната клетка с помощта на VBA в Excel

За втория метод ще използваме VBA Range.Offset за да изберете обхват като използвате нашия активна клетка .

Стъпки:

  • На първо място, тип следния код в Модул прозорец. 
 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

Наричаме нашия Под Процедура cRegion . След това избираме нашите обхват . С CurrentRegion избираме свойството обхват до празна клетка . Накрая избираме обхват с Обхват . Изберете метод.

  • Второ, Запазете и се върнете в Excel лист.
  • След това изберете клетка C10 . Това е нашият активна клетка .

  • След това изведете Диалогов прозорец Макрос .
  • Изберете " cRegion ".
  • Накрая щракнете върху Изпълнявайте .

По този начин ние избран на обхват до празна клетка .

Практически раздел

Предоставили сме набори от данни за всеки метод в Excel файл.

Заключение

Показахме ви 3 методи на Excel VBA изберете обхват от активна клетка . Ако срещнете някакви проблеми с разбирането на стъпките, не се колебайте да коментирате по-долу. Благодаря за четенето, продължавайте да се усъвършенствате!

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

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.