>>873
元質問は>>771,>774,
条件は >>862, >>863, に書いたとおりで
80 Sec かかったのは >>790 のコードです。

二分検索で 0.4 Secに短縮できたのは以下のコードです。関数にしました。
Function isReg(STR As String, RNG As Range) As Boolean
　Dim IDX As Long
　isReg = False
　With Application
　　IDX = .IfError( .Match(STR, RNG, 1), 0 )
　　If IDX = 0 Then
　　　' do nothing
　　ElseIf STR = .Index(RNG, IDX, 1) Then
　　　isReg = True
　　Else
　　　' do nothing
　　End If
　End With
End Function

50 Sec かかった単純比較はこんな感じのForの入れ子です。
For i = LBound(arrDrvList) To UBound(arrDrvList)
For k = LBound(arrFdList) To UBound(arrFdList)
If arrDrvList(i, 1) = arrFdList(k, 1) Then
(処理)
Exit For
End If
Next
Next
どんな手法がよいか教えてください。Matchにこだわるつもりはありません。