エクセルのマクロで置換を教えてください

東京(　　)区、埼玉、千葉、神奈川、その他
アンケートの住所でこのような書き方をしてもらっています。
これをH列に入力しているのですが、
〇〇区は東京、東京は東京、埼玉は埼玉、千葉は千葉・・・
といった具合にO列に置換した値を入れたいです。

今までは関数でやっていたのですが、マクロでやる必要が出てきました。

マクロのコード教えてもらえますか？

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/05/19 10:45

以下のマクロを標準モジュールに登録してください。

Public Sub 住所置換()
Dim rg As Range
Dim r As Range
Set rg = Range("H2:H" & Cells(Rows.count, "A").End(xlUp).Row)
For Each r In rg
If Right(r.Value, 1) = "区" Then
r.Offset(, 7).Value = "東京"
Else
r.Offset(, 7).Value = r.Value
End If
Next
End Sub

この回答へのお礼

ありがとうございます！
バッチリできました！

お礼日時：2022/05/19 10:59