>>822
間違えた
こうだった
Range("Z1") = Application.VLookup( 略 )