セルに同じ行を参照する計算式を入れたい
下記のマクロでは、全部同じ式（下記）が入ってしまいます。
=IF(LEFT('H2',7)="愛知県名古屋市",名古屋市,IF(LEFT('H2',6)="愛知県豊田市","豊田市",IF(LEFT('H2',6)="愛知県豊橋市","豊橋市","愛知県")))
H2をH3、H4と数式を入れる同じ行を参照するようにしたいのですが
何処を直せばいいのでしょうか？
よろしくお願いいたします。
Sub 愛知県()
Dim i As Integer, t As Integer
t = Sheets("全愛知県").Range("F1").End(xlDown).Row
For i = 2 To t
Cells(i, 1).FormulaR1C1 = _
"=IF(LEFT(H2,7)=""愛知県名古屋市"",名古屋市,IF(LEFT(H2,6)=""愛知県豊田市"",""豊田市"",IF(LEFT(H2,6)=""愛知県豊橋市"",""豊橋市"",""愛知県"")))"
Next i
End Sub
![その他([地域情報] 旅行・レジャー) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c932_2_thumbnail_img_sm.png)
