vba - Excel VBA : How To Remove Duplicate Values From Table?

Question

彻底搜索了 StackOverflow 和 Google，但没有找到答案。

尝试从 Excel(不仅仅是电子表格)的表格中删除重复值

当前代码:

Sub RemoveDuplicates()
ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

问题:

此代码要求表中每一列中的数据都相同，然后才会被视为重复。 (通过测试发现了这一点)。

目标:

仅检查表的第 1 列中的重复值，然后在发现重复项时删除整行。我怎样才能实现这个目标？

Answer 1

尝试下面的代码:

Option Explicit

Sub RemoveDuplicates()

Dim TblRng As Range

Set TblRng = ActiveSheet.ListObjects("Table1").Range        
TblRng.RemoveDuplicates Columns:=1, Header:=xlYes

End Sub