Получение последней строки в электронной таблице, встроенной в пользовательскую форму

Question

Я пытаюсь получить последнюю строку и последний столбец в электронной таблице, встроенной в пользовательскую форму.

Я относился к нему точно так же, как к обычной таблице (ссылаясь на ячейки, диапазоны и т. Д.), И она работала идеально, пока я не попытался получить последний ряд или столбец. Любая идея, если синтаксис правильный?

Я получаю сообщение об ошибке «91»

LastRow = Hold_Summary_UserForm.Spreadsheet1.Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

Answer 1

Ваш код потерпит неудачу, если на листе нет содержимого: его нужно разбить на несколько этапов

Dim f As Range, LastRow As Long

Set f = Hold_Summary_UserForm.Spreadsheet1.Sheets("Sheet1").Cells.Find("*", _
          SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious)

If Not f Is Nothing Then
    LastRow = f.Row
Else
    'no content...
End If