VBAでmatch

2019年12月2日

VBAを用いてあるターゲットセルのデータをマッチ、その出力先に値を入れる。

Dim MonthRng, FoundRng As Range

With anysheet

Set MonthRng = .Range(“NamedRange”) ‘Setなのを忘れずに

Set FoundRng = MonthRng.Find(.Range(“TargetRng”).Value, , xlValues, xlWhole) ‘この辺おまじない

If Not FoundRng is Nothing Then ‘エラー処理のおまじない

Range(“OutputRng”).Value = .Range(“X” & FoundRng.Row).Value

End If

End With

VBAでapplication.worksheetfunctionを用いる手法もあるが、エラー処理的にこっちの方が楽ちんだとか。

その場合は、

On Error Resume Next

・・・

On Error GoTo 0

みたいにする。