Этот учебник продемонстрирует 8 примеры использования VBA выберите Используемый диапазон в столбце в excel. Как правило, в столбце UsedRange свойство в excel представляет часть рабочего листа, на котором находятся данные. Для наглядной иллюстрации примеров мы применим свойство UsedRange свойство в конкретном наборе данных для всех примеров.

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

Тетрадь для практических занятий можно скачать отсюда.

8 простых примеров VBA для выбора использованного диапазона в столбце

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

1. выделение UsedRange в столбце с помощью VBA в Excel

Прежде всего, мы выберем все столбцы из нашего набора данных. Для этого мы воспользуемся функцией VBA выберите UsedRange Свойство в столбцах. Рассмотрим шаги для выполнения этого метода.

ШАГИ:

• Для начала, щелкните правой кнопкой мыши на активном листе с именем ' Выбрать_столбцы '.
• Кроме того, выберите опцию ' Посмотреть код '.

• Затем, вышеуказанное действие открывает пустую VBA окно кода для этого рабочего листа. Мы также можем получить это окно кода, нажав кнопку Альт + F11 .
• Затем введите следующий код в это окно кода:

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

• После этого нажмите на кнопку Запускайте или нажмите кнопку F5 чтобы запустить код.

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

2. Используйте VBA для копирования всего UsedRange в столбце

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

ШАГИ:

• Сначала перейдите на вкладку активного рабочего листа с именем ' Копировать '.
• Следующий, щелкните правой кнопкой мыши на этой вкладке и выберите опцию ' Посмотреть код '.

• Откроется пустая страница VBA окно кода для текущего рабочего листа. Другой способ получить это окно - нажать кнопку Альт + F11 с клавиатуры.
• Затем вставьте приведенный ниже код в это окно кода:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Теперь, чтобы запустить код, нажмите на кнопку Запускайте или нажмите кнопку F5 ключ.

• Наконец, мы можем увидеть результат, как показано ниже. Также мы можем увидеть границу вокруг используемого диапазона. Это указывает на то, что код скопировал данные внутри этой границы.

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

3. подсчет количества столбцов в UsedRange с помощью VBA

В третьем примере мы подсчитаем количество столбцов в нашем наборе данных с помощью excel VBA выберите Используемый диапазон Этот пример вернет общее количество столбцов внутри используемого диапазона в нашем наборе данных в окне сообщения. Для выполнения этого метода выполните следующие шаги.

ШАГИ:

• Во-первых, выберите активный лист с именем ' Count_Columns '.
• Во-вторых, щелкните правой кнопкой мыши на имени активного листа и щелкните на опции ' Посмотреть код '.

• Приведенная выше команда открывает пустой VBA окно кода для активного рабочего листа. Мы также можем получить окно кода, нажав кнопку Альт + F11 с клавиатуры.
• В-третьих, введите следующий код в это пустое окно кода:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Далее нажмите на Запускайте или нажмите кнопку F5 чтобы запустить код.

• Наконец, мы получаем результат в окне сообщения. Количество столбцов в используемом диапазоне составляет 4 .

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

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

В предыдущем методе мы извлекли номер последнего столбца в используемом диапазоне. Однако в этом примере мы определим номер последнего столбца в используемом диапазоне на всем рабочем листе с помощью функции VBA выберите UsedRange Собственность. Давайте посмотрим, какие шаги нам нужно выполнить, чтобы выполнить это действие.

ШАГИ:

• Для начала, щелкните правой кнопкой мыши на активном листе с именем ' Последняя колонка '.
• Далее выберите опцию ' Посмотреть код '.

• Итак, приведенная выше команда открывает пустой VBA окно кода для этого рабочего листа. Альтернативный способ открыть это окно кода - нажать кнопку Альт + 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 окно кода. Также мы можем нажать Альт + 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 окно кода. Другой способ открыть это окно кода - нажать кнопку Альт + F11 .
• В-третьих, введите следующий код в этом окне кода:

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

• Затем, чтобы запустить код, нажмите на кнопку Запускайте или нажмите кнопку F5 ключ.

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

Похожие чтения

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

7. Вставка свойства VBA UsedRange для подсчета пустых ячеек

В этом примере мы будем использовать VBA выберите UsedRange свойство для подсчета пустых ячеек в листе excel. Иногда у нас могут быть пустые ячейки в используемом диапазоне нашего набора данных. Мы можем легко подсчитать количество этих пустых ячеек с помощью свойства UsedRange собственность. Рассмотрим шаги для выполнения этого примера.

ШАГИ:

• Первый, щелкните правой кнопкой мыши на вкладке активного листа с именем ' Пустые_ячейки '.
• Далее выберите опцию ' Посмотреть код '.

• Приведенное выше действие открывает пустую VBA альтернативный способ открыть окно кода - нажать кнопку Альт + 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 выберите Используемый диапазон Этот метод позволяет найти первую пустую ячейку в определенном столбце. Пустая ячейка всегда будет находиться вне используемого диапазона набора данных. Поэтому, если какая-либо ячейка пустая или незаполненная в используемом диапазоне, она не будет учитываться в этом методе. Теперь выполните следующие шаги для выполнения этого метода.

ШАГИ:

• Для начала, щелкните правой кнопкой мыши на вкладке активного листа с именем ' Первый_пустой '.
• Кроме того, выберите опцию ' Посмотреть код '.

• Откроется пустая страница VBA окно кода. Мы также можем нажать Альт + 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 решения в будущем.