エクセル2003を使っています。

質問

エクセル2003を使っています。
毎回Ｄ列にある熊本を01　福岡を02　佐賀を03　長崎を04　鹿児島を05と置換えしていますが一気に置き換える方法はないのでしょうか？

回答No.2

TNK787 · ベストアンサー

Sub test()

Dim c As Range

For Each c In Range("a1:a10")
c.Value = Replace(c.Value, "熊本", "'01")
c.Value = Replace(c.Value, "福岡", "'02")
'同様に・・・
Next

End Sub

こんな感じになります
または　

Dim i AS Long
Do Until Cells(i,1)=""
Cells(i,1).Value=Replase(Cells(i,1).Value,"熊本", "'01")
'同様に・・
Loop

お礼

お返事おそくなりました。ありがとうございました。

回答No.1

TNK787

For　Cach　～　ループなんかで

セル範囲に対してPeplace関数で置換すればいいかと・・

補足

プログラミングは未経験です。
具体的なサンプルをおねがいできませんでしょうか？