Excel VBA Vlookup関数でテーブルの見出し名を利用する方法

Question

Excel VBAでテーブルの見出し行を利用したいです。
Sheet1の都道府県に入力すると、Sheet2の都道府県人口テーブルの
都道府県に対応する人口の欄の値を返します。
現在、Vlookup関数での列番号に「２」と指定していますが、
これを見出し名の「人口」を利用する書き方に変更できないでしょうか。
よろしくお願いします。

<Sheet1>

<Sheet2>

Sub 人口登録()
    Worksheets("Sheet1").Range("C3") = Application.VLookup(Worksheets("Sheet1").Range("B3"), Worksheets("Sheet2").Range("都道府県人口テーブル"), 2, False)
End Sub

Answer 1

ListObjectsを使った参照で列番号を取得できます。

    Dim rowNum As Long
    rowNum = Worksheets("Sheet2").ListObjects("都道府県人口テーブル").ListColumns("人口").Index

    Worksheets("Sheet1").Range("C3") = _
        Application.VLookup(Worksheets("Sheet1").Range("B3"), Worksheets("Sheet2").Range("都道府県人口テーブル"), rowNum, False)

Withを使うとスッキリと記述できます。

    With Worksheets("Sheet2").ListObjects("都道府県人口テーブル")
        Worksheets("Sheet1").Range("C3") = _
            Application.VLookup(Worksheets("Sheet1").Range("B3"), .DataBodyRange, .ListColumns("人口").Index, False)
    End With

参考リンク
【VBA】テーブルから値を取得する方法まとめ【“構造化参照”と“ListObjects”の比較】

Comments

[mnbwqz]

できました。ありがとうございました。