|
E列を作業列とし、数式を埋め込んで重複を判定、データを並べ替えてから
重複の行をまとめてクリアする。というマクロは
Sub Del_R()
Application.ScreenUpdating = False
With Range("A1", Range("A65536").End(xlUp)).Offset(, 4)
.Formula = "=IF(COUNTIF($A$1:$A1,$A1)>1,""A"",Row())"
.Copy
.PasteSpecial xlPasteValues
End With
Range("A1").CurrentRegion.Sort Key1:=Columns(5), _
Order1:=xlAscending, Header:=xlGuess, Orientation:= _
xlSortColumns
On Error Resume Next
With Columns(5)
.SpecialCells(2, 2).EntireRow.ClearContents
.ClearContents
End With
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
|
|