VBA １文字目が英字なら、先頭に文字を挿入する

質問

ＯＳはＸＰ
Ｅｘｃｅｌは2003を使用しています。

Ｃ列のセルに「ABC」や「DEF」など英字が入っている場合のみ、
「ンABC」や「ンDEF」の様に、先頭にカタカナの半角ンを入れるマクロを組みたいと思い、
似たようなサンプルマクロを参考にしながら下記を作ってみましたが、
希望通りには出来ません。

Dim d As Long
Dim i As Long
Dim f As String

d = Range("A1").CurrentRegion.Rows.Count
For i = 2 To d
f = Cells(i, "C")
If Left(f, 1) Like "[A-z]" = True Then
f = "ン" & f
End If
Next i

どなたか間違えているところと、どう書き直せばいいのか教えて頂けるとと助かります。
説明不足なところは追記致しますので、教えて下さい。
よろしくお願い致します。

回答No.1

kybo · ベストアンサー

文字の先頭が英字かどうかで判断するのであれば、

f = "ン" & f

を

Cells(i, "C") = "ン" & f

に変更

お礼

早速ご回答頂き、ありがとうございます！

希望通りになりました！