VLookupをVBAでセット　→　最終行まで入力　→　その後文字列変換

すべての関数　・・・・　.Value = .Value　を有効にする
        With .Range("AE2:AE" & i)
           Range("AE2").Select
            .FormulaR1C1 = "=IFERROR(IF(VLOOKUP(RC2,価格済デー!C2:C9,8,0)=0,"""",VLOOKUP(RC2,価格済データ!C2:C9,8,0)),"""")"
             .Calculate
           .Value = .Value
        End With