Excel VBA：如何仅依据指定列删除表格（Table）中的重复值？

嘿，我懂你遇到的坑了——你之前的代码之所以会要求所有列数据完全相同才判定重复，是因为你调用RemoveDuplicates的对象是单个列表列的DataBodyRange，这相当于只在那一列的范围内评估重复，但实际上没法联动删除整行。

要实现「仅依据指定列检查重复并删除对应整行」的需求，你需要直接对整个表格的数据区域（也就是表格的DataBodyRange）调用RemoveDuplicates，然后通过Columns参数指定你要用来判断重复的列索引。

修正后的代码 #

Sub RemoveDuplicatesBySpecificColumn()
    ' 先获取目标表格对象，避免重复调用ActiveSheet.ListObjects
    Dim targetTable As ListObject
    Set targetTable = ActiveSheet.ListObjects("Table1")
    
    ' 检查表格是否有数据行，避免空表格时报错
    If Not targetTable.DataBodyRange Is Nothing Then
        ' Columns参数指定要依据的列：这里写1代表第一列，多列可写Array(1,3)
        targetTable.DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes
    Else
        MsgBox "表格里还没有数据行哦！"
    End If
End Sub

关键说明 #

• 为什么原来的代码不行？你之前是对ListColumns(1).DataBodyRange（也就是单独一列的单元格范围）调用RemoveDuplicates，这时候VBA只会在这一列内找重复，但删除逻辑会受限于这个单列范围，导致和你预期的「按指定列删整行」不符。
• Columns参数可以灵活调整：如果你需要同时依据多列判断重复（比如第1列和第3列都相同才算重复），只需要改成Columns:=Array(1, 3)即可。
• 加空表格判断是个好习惯：如果表格里还没有数据行，DataBodyRange会是Nothing，直接调用RemoveDuplicates会触发运行时错误，所以加个判断能让代码更健壮。

内容的提问来源于stack exchange，提问作者dk9000