住所の一部分を置換したい - Office系ソフト - 教えて！goo

作業を自動化すると下記。
アクセスのモジュールの標準モジュールに貼り付けて実行する。
下記の旧市区町村と新地区町村の対応部分を正しくして、増やせば
一度に置換できます。
アクセス２０００以上であること。
比較対照テーブルは元住所が埼玉県大宮市のような場合に、その一部大宮市の部分を指定するだけでＯＫです。
テーブル名、フィールド名は、自分のケースに合わせて変更すること。
Private Sub test04()

X = Array("大宮市", "浦和市", "与野市")
Y = Array("さいたま市", "さいたま市", "さいたま市")

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

rs.Open "住所録", cn, adOpenKeyset, adLockOptimistic

For i = 0 To UBound(X)
rs.MoveFirst
Do Until rs.EOF
s = rs!住所
s1 = Replace(s, X(i), Y(i))
rs.Fields("住所").Value = s1
rs.Update
rs.MoveNext
Loop
Next i
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

通報する

こんばんは。

あるテーブルに住所データを入力していると思うので、
住所の入っている列全体を選択して、
編集→置換をクリックし、
『検索と置換』ダイアログボックスが出てきます。
そこで、
探す場所が、選択した列の名称であることを確認し、
検索条件を「フィールドの一部分」に設定して、
検索する文字列を「本吉郡」
置換する文字列を「登米市」にし、
まず、「置換」ボタンで１つだけ置き換えて実験し、
「すべて置換」ボタンをクリックすればいいと思います。
いかがでしょうか。

通報する

　テーブルを開いて、「編集」→「置換」で、「検索条件」を「フィールドの一部分」にして置換すればよいと思います。

通報する