Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск последней заполненной ячейки в определенном столбце (умная таблица) VBA
 
#1
21.01.2019 16:47:04
Уважаемые форумчане!

Пожалуйста, подскажите как определить номер строки последней заполненной ячейки во втором столбце из умной таблицы.
Вложен пример. Используя конструкцию lLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row, выдает последнюю строку таблицы ( 8 ), хотя во втором столбце последняя заполненная ячейка находится в 6-ой строке.
Спасибо.
Изменено: ac1-caesar - 21.01.2019 16:47:41
 
 
 
#2
21.01.2019 17:09:37
Код
Sub test()
Dim lLastRow, Cel As Range

With ThisWorkbook.Sheets("Sheet1")
    Set Cel = .Cells(.Rows.Count, 2).End(xlUp)
    If Cel = Empty Then
        lLastRow = Cel.End(xlUp).Row
    Else: lLastRow = Cel.Row
    End If
    
End With

MsgBox "Last row number of empty cell in column 2 is: " & lLastRow
End Sub
 
 
 
#3
21.01.2019 17:13:23
разбирали эту ситуацию не так давно:
Код
Sub test()
  Dim lLastRow
  With ThisWorkbook.Sheets("Sheet1")
    Dim rg As Range
    Set rg = .Cells(.Rows.Count, 2).End(xlUp)
    If IsEmpty(rg) Then lLastRow = rg.End(xlUp).Row Else lLastRow = rg.Row
  End With
  MsgBox "Last row number of empty cell in column 2 is: " & lLastRow
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
21.01.2019 17:17:24
Михаил Витальевич С., Ігор Гончаренко, и тут оказывается что таблица не только умная, но еще и с фильтром :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#5
21.01.2019 17:33:23
Друзья, всем спасибо за помощь!
 
 
 
Страницы: 1
Наверх