Я разрабатываю приборную панель в 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
Вот что я обычно использую для этого:
lastrow = WorksheetFunction.CountA(Columns("A:A"))
Это вернет число непустых ячеек в столбце “А”, что, как я думаю, вам нужно. Надеюсь это поможет.
Если есть небольшая вероятность того, что последняя строка рабочего листа не пуста, вы должны добавить проверку 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