|
Dictionaryオブジェクトを使ってこんなのでも善いかも?
ただし、基本的な事しかやって無いので、2列以上選択した場合等は考慮していません
Public Sub Test()
Dim i As Long
Dim lngTop As Long
Dim lngEnd As Long
Dim lngCol As Long
Dim vntTmp As Variant
Dim dicIndex As Object
Set dicIndex = CreateObject("Scripting.Dictionary")
lngTop = Selection.Row
lngEnd = lngTop + Selection.Rows.Count - 1
lngCol = Selection.Column
With dicIndex
For i = lngEnd To lngTop Step -1
vntTmp = Cells(i, lngCol).Value
If .Exists(vntTmp) Then
Rows(i).Delete
Else
.Add vntTmp, i
End If
Next i
End With
Set dicIndex = Nothing
End Sub
|
|