Excel VBA 質問スレ Part53

[790 デフォルトの名無しさん 2018/05/09(水) 22:14:27.61 ID:idFoGogH]

>>787
いろいろ省略してますが、こんな感じです。

Dim rngFdList as Range: Set rngFdList= Range( ** 以下略(調査表) **
Dim arrFdList as Variant: arrFdList = rngFdList

For each r In Range( ** 以下略(駆動表) **
　With Application
　iHit = .IfError( _
　　　　.Match(r.value, arrFdList, 0), _
　　　　0 _
　　　)
　End With

　(処理...)
Next