エクセルの操作について

質問

１行目には「株式会社　ＡＢＣ商店」
２行目には「（株）　ＡＢＣ商店」
３行目には「株式会社ＡＢＣ商店」
というように株式会社と書かれているモノとカッコになっているもの、商店名との間にスペースがあるもの等々・・
同一会社なのですが、当然違う会社のように見えます。（フィルタやピポットテーブルを使うと）
これをなんとか同一会社に見えるようにすることは可能なのでしょうか？
例えば全てを「株式会社　ＡＢＣ商店」に書き換えるとか・・・
数件（数行）なら問題ないのですが、５千行ぐらいの中にさまざまな会社名があります。
要は現在５千行ある表を重複会社を除きたいのです。
おそらく３千行ぐらいまでは縮小されると思うのですが・・・。お助けください

回答No.2

shishishishi · ベストアンサー

下記のマクロをコピーし、エクセルのVBEにペーストして試して見てください。
なお、テストはコピーデータでやって見てくださいね。
失敗するとまずいですから。
マクロの使い方が分からなければ補足します。

Sub test()
Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
Selection.Replace What:="（株）", Replacement:="株式会社", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
Selection.Replace What:="株式会社", Replacement:="株式会社 ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

お礼

自分ではこれほどマクロは作れません。助かりました。かなり難しかったですが、回りの人にも聞きながらやったらできました。ありがとうございます。

回答No.3

shishishishi

No2のshishishishiです。
すみません、書き漏れました。

下記のマクロはデータがA列に入っている場合です。
違う列ならColumns("A:A").Select の部分をB:B（B列） C:C（C列）、といったふうに修正してください。

回答No.1

mousengoke

編集(E)→置換(E)
でいろいろと置換して統一できます。
ただ
株式会社　ＡＢＣ商店
に統一は厳しそうなので(マクロ使えばできそうだけど、マクロ使わなくても一度株式会社の後にスペースを入れて連続するスペースがあったら一つに置換すればできなくはなさそうですが)
（株）　ＡＢＣ商店
か
株式会社ＡＢＣ商店
に統一してみてください。

お礼

早い回答ありがとうございます。助かりました。