|
▼まろにゃ さん今晩は。
これでできます。
Sub test()
Dim rng As Range, r As Range, urng As Range
Set rng = Range("A1", Range("A65536").End(xlUp))
For Each r In rng
If Application.CountIf(rng, r.Value) = 1 Then
If urng Is Nothing Then
Set urng = r
Else
Set urng = Union(r, urng)
End If
End If
Next
urng.EntireRow.Delete
Set urng = Nothing
Set rng = Nothing
End Sub
>
>A列に以下のように住所が入力されています。
>
>A1.東京都埼玉区1-1-1
>A2.東京都埼玉区1-1-2
>A3.東京都埼玉区1-1-2
>A4.東京都埼玉区1-1-2
>A5.東京都埼玉区1-1-2
>A6.東京都埼玉区1-1-3
>A7.東京都埼玉区1-1-3
>A8.東京都埼玉区1-1-4
>
>上から順に検索をかけ、重複しているデータを残し、していないデータを(これで言えばA1とA8)の行ごとで削除したいのですが、どのようにすれば良いでしょうか。
|
|