Во оваа статија, ќе ви покажам како можете да го користите својството UsedRange на VBA во Excel. Ќе научите да го користите својствата UsedRange за затворен опсег, за расфрлан опсег, за неактивен работен лист, а исто така и за неактивна работна книга.

Преземете ја работната книга за вежбање

Преземете ја оваа работна книга за да вежбате додека ја читате оваа статија.

Вовед во својствата UsedRange на VBA во Excel

Својството UsedRange на VBA враќа објект Range . Враќа опсег кој се состои од сите ќелии во работниот лист што бил користен вклучувајќи празен ред на почетокот.

Во VBA кодот, својството UsedRange треба да се користи заедно со името на работниот лист. Значи, заедничката синтакса за користење на својството UsedRange за активниот работен лист е:

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

⧭ Белешки:

• Тука Rng е името на Опсег вратено со својството UsedRange . Можете да користите сè што сакате.
• За да го искористите својството UsedRange во работен лист различен од активниот, наместо тоа користете го името на работниот лист.

На пример, за да го примените во работен лист наречен Лист 1 , вметнете:

4 начини за користење на својствата UsedRange на VBA во Excel

Еве ги 4 најчеститеначини за користење на својството UsedRange во VBA .

1. Својство на VBA UsedRange за затворен опсег

Прво, ќе го користиме својството VBA UsedRange за работен лист со затворен опсег.

Тоа' Ќе го вратиме целиот опсег вклучувајќи празен ред на почетокот.

Овде имаме работен лист наречен Лист 1 кој содржи затворен опсег кој се состои од имиња, датуми на придружување и плати на некои вработени во компанија.

Сега, ако го користите својството UsedRange на овој работен лист, тој ќе го врати опсегот B2:C13 (Вклучувајќи празен ред на почетокот).

Ако Листот1 е активен, можете да користите:

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

Или можете да користите:

Dim Rng As Range

Set Rng = Worksheets("Sheet1").UsedRange

⧭ Излез :

Го користевме својството Избери на Опсег во кодот. Значи, ако го извршиме кодот, тој ќе го избере опсегот B2:D13 од Листот1 .

Прочитајте повеќе: Како да го користите опсегот на објектот на VBA во Excel (5 својства)

2. Својство на VBA UsedRange за расфрлан опсег

Ако имате расеан опсег во кој било работен лист, својството UsedRange ќе врати опсег вклучувајќи ги празните ќелии помеѓу нив.

Сега, во Лист 1 , ја имаме вкупната плата, највисоката плата и најниската плата расфрлани на различни места, од ќелијата B3 до G3 ,  вака:

Сега користете која било од двете линии кодови за да го користите својството UsedRange .

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

Или

Dim Rng As Range

Set Rng = Worksheets("Sheet1").UsedRange

⧭ Излез:

Ги враќа сите ќелии во опсегот B2:G3 од Лист 1 вклучувајќи ги и празните ќелии (вклучувајќи празен ред на почетокот). Како што го користевме својството Избери на Опсег , тој ќе го избере опсегот B2:G3.

Прочитај повеќе: Крај на опсег со користење на VBA во Excel (со примери)

Слични читања

• Excel VBA Опсег на копирање на друг лист (8 најлесни начини)
• Крајте низ опсег за секоја ќелија со Excel VBA (Ultimate Водич)
• Excel претплата грешка надвор од опсегот во VBA (со 5 решенија)

3. Својство на VBA UsedRange за неактивен работен лист

Ако сакаме да го искористиме својството UsedRange на неактивен работен лист, на почетокот треба да го споменете името на работниот лист.

На пример, овде мојот активен работен лист е Лист 1 .

За да го користиме својството UsedRange во Лист2 , мораме да користиме :

Dim Rng As Range

Set Rng = Worksheets("Sheet2").UsedRange

Тоа Ќе ги избереме сите користени ќелии во работниот лист наречен Лист2 .

Прочитајте повеќе: VBA за да го поставите опсегот во Excel (7 примери)

4.Својство на VBA UsedRange за неактивна работна книга

Можете дури и да го користите својството UsedRange за работна книга што не е активна. Само ставете го името на работната книга пред.

На пример, овде мојата активна работна книга е Работна книга1 . За да го искористиме својството UsedRange преку Листот1 од Работна книга2 , мораме да користиме:

Dim Rng As Range

Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange

Ќе го избере користениот опсег на работниот лист Лист 1 од Работна тетратка2 .

Прочитај повеќе: VBA за секоја ќелија во опсег во Excel (3 методи)

Работи што треба да се запаметат

Својството UsedRange на VBA враќа објект Range . Овде, во оваа статија, го користевме својството Избери на Објектот опсег заради визуелизација. Но, очигледно, можете да користите кое било друго својство на Опсег според вашата погодност.

Заклучок

Користејќи ги овие методи, можете да ги користите UsedRange својство во Excel. Дали имате прашања? Слободно прашајте не.