|
▼ichinose さん 回答ありがとうございます。
わざわざこのような長文ありがとう御座います。
もちろんバッチリ行きました。
あと、ケインさん作の以下のコードもありました。
これは重複する上側の行を残すものですが、上下が逆になるようソートしてから実行すれば
同じ効果が得られると思います。
Sub Test()
Dim i As Long, MyR As Range
Application.ScreenUpdating = False
For i = Cells(65536, 1).End(xlUp).Row To 1 Step -1
Set MyR = Range("A1", Range("A65536").End(xlUp))
If WorksheetFunction.CountIf(MyR, Cells(i, 1).Value) > 1 Then
Rows(i).Delete xlShiftUp '行全体をつめる
'Cells(i, 1).ClearContents’行をつめない
'Cells(i, 1).Delete xlShiftUp'行をつめる
End If
Set MyR = Nothing
Next i
End Sub
|
|