在列A中查找重复项，复制行并将其删除

这不应该是复杂的代码，但我是新的Excel VBA。 我尝试了许多不同的方法，导致错误，无限循环和错误的select。

我开发了一些代码，在A列find重复项，并删除其中一个重复项。

Sub Statistique() Dim LastRow As Long Set x = ActiveWorkbook.Sheets("COPYRIGHT") LastRow = Range("A65536").End(xlUp).Row For x = LastRow To 3 Step -1 If Application.WorksheetFunction.CountIf(Range("A3:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x 

现在我想改善代码，通过复制我想要删除的行的非空白单元格，并将其粘贴在将保留的行中。 这意味着我希望非空白单元格在第一个重复行上位于同一列的上方。

任何想法？ 我知道这似乎很复杂，这就是为什么我提前问你谢谢

Answer 1

尝试这个：

 Sub Statistique() Dim rngColA As Range Set rngColA = Worksheets("COPYRIGHT").Range("A1").EntireColumn rngColA.RemoveDuplicates 1, xlGuess End Sub 

要么

 Sub Statistique2() Dim rngColA As Range Set rngColA = Worksheets("COPYRIGHT").Cells rngColA.RemoveDuplicates 1, xlGuess End Sub