VBA RemoveDuplicates方法去重不彻底，求排查代码问题

问题根源 #

• 代码中Sort方法的Key1:=Cells(1, 1)未明确指定所属工作表，默认引用当前活动工作表的A1单元格，而非Sheet1的A1。这会导致排序操作的范围与去重范围不一致，干扰去重结果，最终出现重复项残留。
• 若数据存在不可见字符（如前后空格、换行符），看似重复的内容实际是不同值，也会导致去重失效，但你描述的“每个值至少保留2个”，核心问题是对象引用不明确。

修复后的代码 #

Sub no_DuplicatesNsort()
    Dim ws As Worksheet
    Set ws = Sheets(1) ' 明确绑定目标工作表
    
    ' 对Sheet1的A列去重
    ws.Columns(1).RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 排序时明确指定Sheet1的A1作为关键字，确保操作范围统一
    ws.Columns(1).Sort Key1:=ws.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
End Sub

额外排查项 #

• 检查表头参数：如果你的A列没有表头，需将Header:=xlYes改为Header:=xlNo，避免表头被当作数据处理。
• 清理不可见字符：若数据存在空格等干扰项，可在去重前添加清理逻辑：

  ' 清理A列单元格前后空格
  ws.Columns(1).Value = ws.Evaluate("TRIM(" & ws.Columns(1).Address & ")")
  

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