エクセルで同じ数値の行を削除

質問

エクセルで以下のような1000行位のデータがあります。
Ａ列　Ｂ列
大阪　1,001　
東京　1,200
高知　1,300
大阪　1,200
なら　1,000
神戸　1,001

これらからＢ列が同じ数値の行を削除し、以下のように
するにはどうしたら良いでしょうか？
よろしくお願いします。

Ａ列　Ｂ列
東京　1,200
高知　1,300
大阪　1,200
なら　1,000

回答No.3

Rin-u_u

"Dictionary"を使った例を最近勉強したので・・・
外してたらごめんなさい
データのバックアップを取ってから試してください

表がSheet1にあるとして、Sheet2に書き出します。

Option Explicit

Sub test()
Dim myDic As Object
Dim myR As Range
Dim r As Range

With Sheets("Sheet1")
Set myR = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In myR
If Not IsEmpty(r.Value) Then
If Not myDic.Exists(r.Value) Then
myDic(r.Value) = r.Offset(, 1).Value
End If
End If
Next
With Sheets("Sheet2")
.Cells.ClearContents
.Range("A1").Resize(, 2).Value = Sheets("Sheet1").Range("A1").Resize(, 2).Value
With .Cells(2, 1).Resize(myDic.Count)
.Value = Application.Transpose(myDic.Keys)
.Offset(, 1).Value = Application.Transpose(myDic.Items)
End With
End With
End Sub

お礼

おかげさまで、出来ました！！ありがとうございました。