2022-09-27 テーブルでVLOOKUP Sub ルックアップ() Range("テーブル1").Select Range("Q2") = WorksheetFunction.VLookup(Range("P2"), Range("テーブル1"), 5, 0) End Sub