┌────────────────┐
│    A   B   C   D   E   F   G   │
│  ┌─┬─┬─┬─┬─┬─┬─┐│
│ 1│B │ 3│B3│  │  │  │  ││
│  ├─┼─┼─┼─┼─┼─┼─┤│
│ 2│  │  │  │  │A │B │C ││
│  ├─┼─┼─┼─┼─┼─┼─┤│
│ 3│  │  │  │ 1│A1│B1│C1││
│  ├─┼─┼─┼─┼─┼─┼─┤│
│ 4│  │  │  │ 2│A2│B2│C2││
│  ├─┼─┼─┼─┼─┼─┼─┤│
│ 5│  │  │  │ 3│A3│B3│C3││
│  └─┴─┴─┴─┴─┴─┴─┘│
└────────────────┘
「A1」に横軸、「B1」に縦軸の座標をぞれぞれ指定した場合に
「C1」に結果を出力する場合、「C1」以下の数式を設定する。
┌───────────────────────────┐
│=VLOOKUP(B1,D:G,MATCH(A1,D2:G2,0),FALSE)              │
└───────────────────────────┘

┌──────────────────────────────────────┐
│ChDir ThisWorkbook.Path                                                     │
└──────────────────────────────────────┘
上記でフォルダ移動ができない場合…

それは、Dドライブとかにそのファイルがある場合で
ドライブ移動も一緒にしないといけないというかもしれない。

ひとまず以下で回避できる。(Dドライブなら)
┌──────────────────────────────────────┐
│ChDir ThisWorkbook.Path                                                     │
│If Left(ThisWorkbook.Path, 1) = "D" Then                                    │
│    ChDrive Left(ThisWorkbook.Path, 1)                                      │
│End If                                                                      │
└──────────────────────────────────────┘

さて、Eドライブやネットワークドライブ(\\)の時はどうしよう？