vba - VBA を使用してダイナミック レンジで VLOOKUP を使用する

Question

動的な値の範囲で VLOOKUP を実行できるように、VB をセットアップしようとしています。常に同じ場所から開始されますが、H4 の値に基づいてさらに下で終了する場合があります。

編集:これがコードで、動作します。

ありがとうアレックス！

Public Sub State()

    Dim refRng As Range, ref As Range, dataRng As Range
    Dim i As Variant
    Dim count As Integer
    i = Sheet2.Range("H1").Value
    i = i + 3 'offset of when to start

    Set refRng = Sheet2.Range("D8:" & Cells(8, i).Address) '//horizontal range of look up values
    Set dataRng = Sheet13.Range("A:C") '//data block you want to look up value in

    For Each ref In refRng
    ref.Offset(1, 0) = Application.WorksheetFunction.VLookup(refRng, dataRng, 2, True)
    Next ref
End Sub