Получение ошибки «Переменная объекта или переменная блока не установлена» при поиске номера столбца

Question

Я хочу найти номер столбца ячейки, в которой текст «Замечания» присутствует в строке 1. В моем случае строки 1 и 2 объединяются. Я использую ниже logi c, чтобы найти номер столбца, но я получаю Runtime error 91; Object variable or With Block variable not set

Dim lnRow As Long, lnCol As Long

lnRow = 1
lnCol = Sheet1.Cells(lnRow, 1).EntireRow.Find(What:="Remarks", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Column

Что я здесь не так делаю?

Answer 1

Цепочка .Column на конце здесь завершится неудачно, если Find не удалась:

Проверьте, удалось ли Find следующим образом, а затем верните .Column.

Dim remarksRng as Range
Set remarksRng = Sheet1.Rows(lnRow).Find(What:="Remarks", _
                      LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
                      SearchDirection:=xlNext, MatchCase:=False)

If Not remarksRng Is Nothing Then
    lnCol = remarksRng.Col
Else
    ' not found; handle here
End If