求助：Excel中用VBA去除各类重复项（内置功能及代码无效）

一、先搞清楚为啥自带功能和VBA都没用 #

• 隐藏字符/空格：单元格看起来内容一致，但实际藏着空格、换行符或不可见字符，Excel不认作重复项
• 数据类型不统一：同一列里既有文本格式数字，又有数值格式数字，Excel会判定为不同内容
• 列范围错误：选择的判断重复的列不准确，或是包含了无关空白列
• UsedRange不靠谱：ActiveSheet.UsedRange有时会把历史用过的空白单元格纳入范围，导致去重逻辑出错

二、手动处理步骤 #

1. 清除多余字符
   • 选中目标列，在旁边空白列输入=TRIM(CLEAN(A1))（把A1改成你要处理的第一个单元格），下拉填充后，复制结果右键粘贴为「值」
   • TRIM负责清除首尾空格，CLEAN清除不可见字符，组合使用能解决大部分字符类问题
2. 统一数据类型
   • 选中目标列，右键→「设置单元格格式」，统一设为文本或数值类型
   • 若为文本型数字，直接选列→「数据」→「分列」→一路点完成，就能快速转换为数值型
3. 重新使用删除重复项功能
   • 精准选中需要判断重复的所有列（别带无关空白列）
   • 点击「数据」→「删除重复项」，勾选用来判断重复的列，确认表头设置正确（有表头就选「我的数据有表头」）

三、修正后的VBA代码 #

先清理字符再去重，同时规避UsedRange的问题：

Sub RemoveDuplicatesProperly()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 怕误操作的话，改成具体工作表名，比如ThisWorkbook.Worksheets("Sheet1")
    
    ' 清除所有单元格的首尾空格和不可见字符
    Dim rng As Range
    Set rng = ws.UsedRange
    rng.Value = ws.Evaluate("IF(ISTEXT(" & rng.Address & "),TRIM(CLEAN(" & rng.Address & "))," & rng.Address & ")")
    
    ' 删除重复项，Array(1,2,3)是判断重复的列号，按需修改
    rng.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
End Sub

• 运行前务必备份文件！
• 若只需根据某一列判断重复，把Array(1,2,3)改成Array(2)这类对应列号即可

四、快速排查小技巧 #

• 怀疑两个单元格内容不同？在空白格输入=A1=B1，返回FALSE就说明真的不一致，再用LEN(A1)查看字符长度，就能知道是否多了隐藏字符
• 点击「开始」→「段落」里的「显示/隐藏编辑标记」，可直接看到单元格里的换行符、空格等隐藏内容

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