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

Question

我正在尝试删除重复项，删除后我需要向上移动单元格。下面的作品，但不幸的是它没有改变任何东西。它留下空行。
有人说用 Columns:=1 替换 Columns:=Array(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

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

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