Excel VBA执行RemoveDuplicates去重后未上移单元格残留空行问题

RemoveDuplicates 方法对非整列的选定区域执行去重时，只会清空重复行对应选中范围内的单元格内容，不会自动删除行、上移单元格，这才是残留空行的核心原因。之前修改Columns参数的方案完全不相关——这个参数仅用来指定按哪一列判断重复值，不管是传1还是Array(1)，都不会影响去重后的行处理逻辑，所以测试无效是正常的。

直接抛弃原代码里Select/Selection容错性差的写法，明确定义处理范围，去重完成后自动清理残留空行、上移单元格：

Sub 数据去重并清理空行()
    Dim ws As Worksheet
    Dim dataRng As Range
    ' 绑定当前工作表，需要固定操作某张表时可以替换为 Sheets("你的工作表名称")
    Set ws = ActiveSheet
    ' 锁定从A15开始的连续数据区域，避免手动点选导致范围选错
    Set dataRng = ws.Range("A15", ws.Range("A15").End(xlToRight).End(xlDown))
    
    ' 按A列执行去重，保留第一行表头
    dataRng.RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 清理去重产生的空行，单元格上移
    On Error Resume Next ' 无空行时跳过错误避免弹窗
    ' 如果你的数据A列本身允许存在合法空值，把下面这行替换为遍历行判断非空个数的逻辑即可
    dataRng.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
    On Error GoTo 0
End Sub

• 原代码全程用选中对象操作的写法很不稳定，只要执行宏的时候鼠标点到其他单元格，就会选错处理范围导致数据出错，直接定义范围对象的写法可靠性高很多。
• 上面代码默认按A列是否为空判断是否是去重产生的残留行，如果你的业务数据里A列本身就有合法的空单元格，可以把空行判断逻辑改成：遍历数据区域的每一行，统计整行非空单元格数量，数量为0时再执行删除。
• 如果你需要操作整列去重，直接把dataRng换成对应列对象即可，整列调用RemoveDuplicates时会自动删除重复行，不会残留空行。

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