Как получить количество строк в EXCEL VBA

Вопрос: Я разрабатываю приборную панель в excel. И я ищу вычисление количества строк. (Сколько записей присутствует).. Поскольку есть несколько пустых ячеек, я думал, что они идут снизу вверх. Я использую следующие Range("A1048576").Select Selection.End(xlUp).Select После этого выполнения активная ячейка находится на A113, что означает, что количество строк равно 113. Мой вопрос: как получить этот номер 113

Вопрос:

Я разрабатываю приборную панель в excel. И я ищу вычисление количества строк. (Сколько записей присутствует)..

Поскольку есть несколько пустых ячеек, я думал, что они идут снизу вверх. Я использую следующие

Range(«A1048576»).Select Selection.End(xlUp).Select

После этого выполнения активная ячейка находится на A113, что означает, что количество строк равно 113.

Мой вопрос: как получить этот номер 113 из активной ячейки?

Лучший ответ:

Вы можете использовать это:

Dim lastrow as Long lastrow = Cells(Rows.Count,»A»).End(xlUp).Row

lastrow будет содержать номер последней пустой строки в столбце A, в вашем случае 113

Ответ №1

Вот что я обычно использую для этого:

lastrow = WorksheetFunction.CountA(Columns(«A:A»))

Это вернет число непустых ячеек в столбце “А”, что, как я думаю, вам нужно. Надеюсь это поможет.

Ответ №2

Если есть небольшая вероятность того, что последняя строка рабочего листа не пуста, вы должны добавить проверку IsEmpty() в решение @simoco. Следовательно; следующая – это функция, которая возвращает последнюю использованную строку и проверяет, является ли последняя строка листа пустой:

Function lastRow(WS As Worksheet, iColumn As String) As Long If Not IsEmpty(WS.Range(iColumn & WS.Rows.Count)) Then lastRow = WS.Rows.Count Else lastRow = WS.Range(iColumn & WS.Rows.Count).End(xlUp).Row End If End Function

Оцените статью
Добавить комментарий