「ブロック機能」のリニューアルについて

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

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

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

「エクセルのマクロで置換を教えてください」の質問画像
教えて!goo グレード

A 回答 (1件)

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


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
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング