Использование массива для поиска активного листа

Question

У меня есть рабочий лист, который регулярно обновляется с подробностями дубликатов записей из базы данных.

Я пытаюсь создать макрос, который ищет конкретные записи, однако, поскольку я новичок в Excel VBA, я борюсь.

Кода я в настоящее время выглядит следующим образом: есть больше имен (21, чтобы быть точными, но для экономии времени я устранил эти)

Dim rg As Range 
Dim lnglastrow As Long 
Dim intnamemax As Integer 
Dim strName() As String 


intnamemax = 21 
ReDim strName(1 To intnamemax) 

strName(1) = "Bob Smith" 
strName(2) = "Rhys Jones" 
strName(3) = "Rebecca Hickling" 

lnglastrow = ActiveSheet.UsedRange.Rows.Count 

For Each rg In Range("A2:A" & lnglastrow) 
    For i = 1 To intnamemax 
     Set c = rg.Find(strName(i), LookIn:=xlValues) 
      If Not c Is Nothing Then 
      MsgBox "Proxy Candidate Found at " & found.Address 
      Else 
      MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!" 
      End If 
     Next i 
    Next 

End Sub 

макрос будет работать, однако при тестировании я получаю MsgBox кандидаты-кандидаты не найдены, несмотря на то, что есть запись для одного из имен.

Я изо всех сил пытаюсь выяснить, где я поступил неправильно, и был бы признателен за любую помощь.

Answer 1

Вам нужно вытащить ложное возвращение из цикла, или вы получите хотя бы 20 фальшивых, даже если они совпадают.

И вам не нужен внешний контур, так как FIND будет рассматривать весь диапазон как один.

Dim lnglastrow As Long 
Dim intnamemax As Integer 
Dim strName() As String 
Dim fnd As Boolean 

intnamemax = 21 

ReDim strName(1 To intnamemax) 

strName(1) = "Bob Smith" 
strName(2) = "Rhys Jones" 
strName(3) = "Rebecca Hickling" 

lnglastrow = ActiveSheet.UsedRange.Rows.Count 

For i = 1 To intnamemax 
    Set c = Range("A2:A" & lnglastrow).Find(strName(i), LookIn:=xlValues) 
    If Not c Is Nothing Then 
     MsgBox "Proxy Candidate Found at " & c.Address 
     fnd = True 
     Exit For 
    End If 
Next i 
If Not fnd Then 
    MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!" 
End If 

End Sub