Сообщество Чайников

Вопрос

Как в Excel определить последнюю ячейку в строке и столбце?

Ответ

Функция для определения последней заполненной ячейки в столбце intCol — нужный столбец (номер!), lngRow — начальная строка поиска (если не задана, поиск начинается с первой).

Function LastFullRow(intCol As Integer, _
Optional lngRow As Long = 1) As Long
Dim lngOff As Long, rng As Range
lngOff = lngRow — 1
Set rng = Cells(lngRow, intCol)
Do While rng.Offset(lngOff, 0).Value <> ""
lngOff = lngOff + 1
Loop
LastFullRow = lngOff
End Function
Функция для определения последней заполненной ячейки в строке (параметры аналогичны предыдущей)
Function LastFullColumn(lngRow As Long, _
Optional intCol As Integer = 1) As Integer
Dim intOff As Long, rng As Range
intOff = lngRow — 1
Set rng = Cells(lngRow, intCol)
Do While rng.Offset(0, intOff).Value <> ""
intOff = intOff + 1
Loop
LastFullColumn = intOff
End Function

Alex Juice

Так проще:

ActiveCell.End(xlDown).Select ' в столбце
ActiveCell.End(xlToRight).Select в строке
' вместо ActiveCell можно (Range("A1"),Cells(r,c)либо имя ячейки)

tolya