使用find函数找不到任何内容 - 为什么它不继续使用代码？

Question

I am new here and I don't know exactly what I am doing. I have a problem with a find function - if there is nothing found it throws the error 'Object variable or With block variable not set' I've tried if loop, but the debuger doesn't consider them. It crushes on findFeature = ThisWorkbook.Sheets("featureListLTE").Range("A1:A1000").Find(featureID, LookIn:=xlValues, lookat:=xlWhole) line

Dim newInput As Long
newInput = ThisWorkbook.Sheets("input").Range("A1", ThisWorkbook.Sheets("input").Range("A1").End(xlDown)).Rows.Count
Dim i As Integer
For i = 1 To newInput

'find feature on feature list

Dim featureID As String
featureID = ThisWorkbook.Sheets("input").Cells(i, 1).Value
MsgBox featureID

Dim findFeature As Variant
Dim findFeatureRow As Integer

findFeature = ThisWorkbook.Sheets("featureListLTE").Range("A1:A1000").Find(featureID, LookIn:=xlValues, lookat:=xlWhole)

findFeatureRow = ThisWorkbook.Sheets("featureListLTE").Range("A1:A1000").Find(featureID, LookIn:=xlValues, lookat:=xlWhole).Row

If findFeature.Value Is Nothing Then

MsgBox "nima"

Else: MsgBox findFeatureRow
End If

Next i

Answer 1

You can't have a .Value or .Row if no range was found. Put them inside a block after checking whether a range was found or not. For example ( untested ), your code can be written as

Dim findFeature As Range

Set findFeature = ThisWorkbook.Sheets("featureListLTE").Range("A1:A1000").Find(featureID, LookIn:=xlValues, lookat:=xlWhole)

If Not findFeature Is Nothing Then
    findFeatureRow = findFeature.Row
    MsgBox findFeatureRow
Else
    MsgBox "nima"
End If

You may find .Find and .FindNext interesting to read.