删除重复项并向上移动单元格

Question

我正试图删除重复项，删除后我需要将单元格向上移动。下面的工作，但不幸的是，它没有移动任何东西。它留下空行。

有人说要把Columns:=Array(1)替换为Columns:=1，但是行不通

Sub Macro3()
Range("A15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Answer 1

看起来您选择了多个列，然后在remove duplicate参数中只传递一个列。下面是一个示例，删除多个列，重复并向上移动。

ActiveSheet.Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

如果你只是想删除一列，那么你的代码工作减去xlToRight:

Range("A15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RemoveDuplicates Columns:=1, Header:=xlYes