こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

OSはXP
Excelは2003を使用しています。

C列のセルに「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


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

投稿日時 - 2012-03-22 11:18:57

QNo.7376811

困ってます

質問者が選んだベストアンサー

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

f = "ン" & f



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

に変更

投稿日時 - 2012-03-22 11:31:37

お礼

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

希望通りになりました!

投稿日時 - 2012-03-22 11:55:09

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問