VLOOKUP関数の凝った使いかた

=VLOOKUP($A2,INDIRECT(MID(数式($A2),2,FIND("!",数式($A2))-1)&"全域"),COLUMN(INDIRECT(MID(数式($A2),2,FIND("!",数式($A2))-1)&B$1)),FALSE)

　「数式」はVBA。

Option Explicit

Function 数式(r As range) As String
    数式 = r.Formula
End Function