| 
    
     |  | >>式は通りましたが、表示される数字がすべて0になってしまいます。なぜでしょう? >こちらからは、どのようなデータに対して処理を行っているのか
 >全く分かりませんので、出来上がった数式の内容を1つずつチェックしてみてください。
 >
 >VLookUp() の参照セル範囲は間違っていませんか?
 >検索する値は、間違っていませんか?
 >セルの書式は一致していますか?
 >
 
 Asakiさん。ありがとうございます。参照セルの範囲が1行目までしかありませんでした。
 Sheet2のデータ範囲はA5からC73までなのに全然指定できません。
 データは数字です。
 なぜなのでしょうか?
 コードの中に何か間違いがありますでしょうか?
 
 Dim 範囲 As Integer
 範囲 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
 
 ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-8],'Sheet2'!R5C1:R" & 範囲 & ",2,FALSE)),0,VLOOKUP(RC[-8],'Sheet2'!R5C1:R" & 範囲 & ",2,FALSE))"
 
 |  |