Този урок ще демонстрира 8 примери за използване VBA за да изберете Използван диапазон в колона в Excel. Обикновено Използван обхват в Excel представлява частта от работния лист, в която има данни. За да илюстрираме ясно примерите, ще приложим Използван обхват в определен набор от данни за всички примери.

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

Можем да изтеглим работната тетрадка за упражнения от тук.

8 лесни примера във VBA за избор на UsedRange в колона

На следващото изображение виждаме набора от данни, който ще използваме за всички примери. Наборът от данни съдържа имената на Търговци , техните Местоположение , Регион, и Обща сума ' на продажбите. В този набор от данни използваният диапазон ще се разглежда като включващ заглавието. Така че използваният диапазон в следния набор от данни е ( B2:E15 ).

1. Изберете UsedRange в колона с VBA в Excel

Първо и преди всичко ще изберем всички колони от нашия набор от данни. За целта ще използваме VBA изберете Използван обхват Нека видим стъпките за изпълнение на този метод.

СТЪПКИ:

• Като начало, щракване с десния бутон на мишката върху на активния лист с име Select_Columns '.
• Освен това изберете опцията Вижте кода '.

• След това горното действие отваря празен VBA Прозорец с код за този работен лист. Можем също така да получим този прозорец с код, като натиснем Alt + F11 .
• След това въведете следния код в прозореца за код:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

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

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

2. Използвайте VBA, за да копирате целия UsedRange в колоната

Във втория пример ще използваме VBA за копиране на целия използван диапазон в колоните от нашия набор от данни. Обикновено използваме този метод, за да копираме конкретен регион от нашия набор от данни. Трябва да следваме следните стъпки, за да изпълним този метод.

СТЪПКИ:

• Първо, отидете в активния раздел на работния лист, наречен Копие '.
• Следващия, щракване с десния бутон на мишката върху в този раздел и изберете опцията Вижте кода '.

• Ще се отвори празен VBA Друг начин да получите този прозорец е да натиснете Alt + F11 от клавиатурата.
• След това поставете следния код в прозореца за код:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Сега, за да стартирате кода, щракнете върху Изпълнявайте или натиснете бутона F5 ключ.

• Накрая можем да видим резултата, както следва. Също така можем да видим гранична линия около използвания диапазон. Тя показва, че кодът е копирал данни вътре в тази граница.

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

3. Преброяване на броя на колоните в UsedRange с помощта на 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 изберете Използван обхват имот. Нека видим стъпките, които трябва да следваме, за да извършим това действие.

СТЪПКИ:

• Като начало, щракване с десния бутон на мишката върху на активния лист с име Последна колона '.
• След това изберете опцията Вижте кода '.

• Така горната команда отваря празен 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. За да илюстрираме този пример, ще продължим с предишната ни съвкупност от данни. Сега разгледайте стъпките за изпълнение на този метод.

СТЪПКИ:

• Първо изберете активния лист с име Last_Cell '.
• Следващия, щракване с десния бутон на мишката върху върху името на този лист. Изберете опцията Вижте кода '.

• След това получаваме празно поле 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. Намиране на обхвата на клетките на избрания UsedRange с Excel VBA

В този пример ще приложим VBA за намиране на клетъчния диапазон на избрания използван диапазон в работен лист на Excel. Ще използваме VBA код за всички колони в използвания от нас диапазон. Кодът ще върне диапазона от клетки, както и адреса на колоната в използвания диапазон. Следвайте стъпките по-долу, за да извършите това действие.

СТЪПКИ:

• В началото, щракване с десния бутон на мишката върху в активния раздел на листа с име Намиране на обхвата на клетките '.
• Второ, изберете опцията Вижте кода '.

• Ще се отвори празен VBA Друг начин за отваряне на този прозорец е да натиснете Alt + F11 .
• Трето, въведете следния код в прозореца за код:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• След това, за да стартирате кода, щракнете върху Изпълнявайте или натиснете бутона F5 ключ.

• В крайна сметка резултатът се показва в полето за съобщения, подобно на следното изображение.

Подобни четива

• VBA за преминаване през редове и колони в диапазон в Excel (5 примера)
• Как да конвертирате диапазон в масив в Excel VBA (3 начина)

7. Вмъкване на свойството UsedRange във VBA за броене на празни клетки

В този пример ще използваме VBA изберете Използван обхват Понякога може да имаме празни клетки в използвания диапазон на нашия набор от данни. Можем лесно да преброим броя на тези празни клетки, като използваме свойството Използван обхват Да видим стъпките за изпълнение на този пример.

СТЪПКИ:

• Първо, щракване с десния бутон на мишката върху в активния раздел на листа с име Празните клетки '.
• След това изберете опцията Вижте кода '.

• Горното действие отваря празен 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 UsedRange за намиране на първата празна клетка в колона в 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 изберете Използван обхват За да изпробвате уменията си, изтеглете практическия работен лист, използван за тази статия. Моля, не се колебайте да коментирате в полето по-долу, ако имате някакви въпроси. Екипът ни ще се опита да отговори на вашето съобщение възможно най-скоро. Следете за още иновативни Microsoft Excel решения в бъдеще.