クレンジング作業における住所の置換について

Question

クレンジング作業における住所の置換について質問があります。

以下をVBAのスクリプトで実現したいと思っています。構文 Object.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte)を使いつつ、以下の条件を達成するものがあれば教えていただけると幸いです。また別のメソッドを使用する方法でも大丈夫です。

・〇番地〇号のように「番地」の後ろに何らかの文字が続きかつそれが数字であるならば「番地」を「－」に変換
・〇番地のように「番地」で終わる場合は「番地」を「」に変換

何卒宜しくお願い致します。

Answer 1

もし、文字列に番地があるときは、
「番地」で文字列を分けて、さらに、
もし、分けたときに右側が0文字以上の時と0文字の時に、
条件分岐して連結文字を変えて、
後で繋ぎ押してはいかがでしょうか？

番地が2回以上文字列の中に存在することをチェックするなら、
さらに一工夫必要ですが。

Sub test()
    Dim v
    Dim vv
    Dim s As String
    Const ss As String = "番地"

    For Each v In Array("〇番地〇号", "〇番地", "〇〇")
        vv = v
        
        If InStr(v, ss) > 0 Then
            vv = Split(v, "番地")
            If Len(vv(1)) > 0 Then
                s = "-"
            Else
                s = "「」"
            End If
            vv = Join(vv, s)
        End If
        
        MsgBox vv
    Next
End Sub

あぁあああ。。。。。。
セル範囲を一括で置換したいという事なら、再考します。

置換機能でやるなら、単純には出来ないので、
作業列や作業シートを使って、
順次加工していく感じになると思います。
数式を使うことも視野に入れると、柔軟に対応できるかと思います。

上のサンプルの考え方を踏襲するなら、
データの区切り位置とかの機能を使ってもいいですね。
あとはアイデア次第で、使えるものを使い倒す感じでどうですかね？

Comments

[KoheiNoma]

ご丁寧にありがとうございます！こちらのマクロでトライしてみます。

Answer 2

正規表現を使うとよいと思います。

https://www.sejuku.net/blog/33541

マクロを組むのがめんどくさいようであればアドインを使うとよいです。
https://did2memo.net/2017/01/17/excel-regular-expression-search-and-replace/

Comments

[KoheiNoma]

ありがとうございます！やはり正規表現使うのが良いのですね。この機会にしっかり正規表現勉強してトライしてみます。