Вопрос:
Я разрабатываю приборную панель в 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