[[20120530115259]]　『同セル内での重複部分の削除』（こんざれす）　ページの最後に飛ぶ

『同セル内での重複部分の削除』（こんざれす）

エクセルで同じセル内に住所の町名までが重複しているので重複している部分だけ削除したい場合はどうすれば良いでしょうか？

例）
東京都練馬区旭町東京都練馬区旭町○-○○-○
東京都練馬区桜台東京都練馬区桜台○-○○
東京都練馬区旭町東京都練馬区旭町○-○
東京都練馬区旭町東京都練馬区旭町○○○○
千葉県稲毛区稲毛東千葉県稲毛区稲毛東○○-○
神奈川県横浜市鶴見区扇島神奈川県横浜市鶴見区扇島○○
神奈川県横浜市鶴見区扇島神奈川県横浜市鶴見区扇島○○○
・
・
・

ひとつひとつ削除キーで削除していくのも手間なのでマクロ等で
すぐに簡単に出来る機能があれば教えてください。

Excel2002 WindowsXP

 一例として
 A列に対しての処理で、A列を変換してしまうのでバックアップを忘れずに

 Sub test()
    Dim r As Range
    For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
        r.Value = ReplaceDups(r.Value)
    Next
End Sub

 Function ReplaceDups(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(.*)(\1.*)"
        ReplaceDups = .Replace(txt, "$2")
    End With
End Function
(seiya)

コメント返信：

[ 一覧(最新更新順) ]

[[20120530115259]] 『同セル内での重複部分の削除』（こんざれす） ページの最後に飛ぶ

[[20120530115259]]　『同セル内での重複部分の削除』（こんざれす）　ページの最後に飛ぶ