Как подсчитать строки на листе Excel с помощью макросов VBA

Автор: Joan Hall
Дата создания: 1 Январь 2021
Дата обновления: 6 Июль 2024
Anonim
Программирование макросов на VBA в Excel
Видео: Программирование макросов на VBA в Excel

Содержание

Иногда нам нужно знать количество строк, используемых в электронной таблице Excel, чтобы мы могли создать формулу или даже макрос VBA. К счастью, есть несколько простых способов сделать это, и Excel VBA - только один из них.Самый простой способ узнать эту информацию - перейти к нижней части рабочей таблицы и посмотреть на число справа от последней точки данных; однако с VBA этот расчет чрезвычайно прост.


направления

С VBA очень просто вычислить количество строк в листе Excel. (BananaStock / BananaStock / Getty Images)

    Планирование макроса

  1. Откройте лист Excel и редактор VBA, нажав «Alt + F11».

  2. Запустите новый файл проекта VBA, щелкнув правой кнопкой мыши книгу, отображаемую в меню справа, и выбрав «Новый».

  3. Запустите новую функцию, набрав «Sub CountRows ()». Это сообщает компилятору VBA, что существует новая подпрограмма для файла проекта. Если вы предпочитаете переименовать подпрограмму, измените текст «CountRows» на любое желаемое имя, за которым должны следовать скобки, показанные выше, например «YourName ()».

  4. Создайте переменную, включающую текст «Dim Count as Long» на следующей строке.

  5. Введите следующий код:


    Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0). Выбрать цикл до IsEmpty (ActiveCell.Offset (0, 1))

    Это сообщает программе компилятора, что необходимо проанализировать переменную Count, а затем подсчитать строки всего листа. Код добавляет переменную в Total Count, а затем перемещается в следующую ячейку, пока она пуста. Когда он достигает пустой ячейки, выполнение останавливается.

  6. Активируйте текстовое поле, добавив новую строку с текстом «MsgBox Count». Появится всплывающее окно, в котором указано общее количество строк. Чтобы сделать поле немного более полезным, вы можете ввести любой дополнительный текст. Переименовать строку в:

    MsgBox "Есть" [count number] "строк"

    Вы можете изменить текст в кавычках по желанию.

  7. Наконец, введите «End Sub» в новой строке, чтобы выйти из функции подпрограммы.

    Запуск макроса

  1. Вернитесь на свой лист Excel и сохраните его.


  2. Выделите первую ячейку столбца, которая содержит наибольшее количество данных. Этот столбец не должен содержать пустых ячеек сверху вниз.

  3. Откройте меню «Инструменты» и выберите «Макросы», чтобы отобразить диалоговое окно, содержащее все макросы, запрограммированные для рабочего листа.

  4. Выберите макрос, созданный в разделе 1, с именем «CountRows» или любым другим именем, которое вы ему дали, и нажмите «Выполнить». Когда он будет завершен, макрос отобразит всплывающее текстовое поле, в котором будет указано количество заполненных строк.

чаевые

  • Если вам просто нужно получить число, то более простой и простой альтернативой является подсчет строк по формуле. В пустой ячейке введите «= COUNT (A: A, IF (A> 0,1,0))», где A - столбец, число строк которого считается.