Excel VBA如何实现仅对表格选中区域去除重复联系人不影响其他内容

原来代码的问题出在Selection.End(xlDown)的逻辑：当你选中的起始行下方和整个表格的其他行是连续无空行的状态时，xlDown会直接定位到整张表格的最后一行，导致你设置的rng范围超出了当前项目的区域，自然就会删除全表的重复项。

要实现仅对当前目标项目区域去重，你可以根据使用场景选择以下两种调整方案：

方案1：不同项目之间有空行分隔（匹配你的示例场景） #

通过判断空行位置确定当前项目的结束边界，代码如下：

Dim rng As Range
Dim startRow As Long, endRow As Long
' 记录当前项目首行行号
startRow = Rowies.Row
' 查找当前项目下方第一个空行的上一行，即当前项目的最后一行
endRow = Rowies.End(xlDown).Row
' 直接定义目标区域，无需选中操作，稳定性更高
Set rng = Range(Cells(startRow, 1), Cells(endRow, 4))
' 仅对当前项目区域按邮箱列去重
rng.RemoveDuplicates Columns:=4, Header:=xlNo

方案2：手动框选目标区域后执行去重 #

如果你习惯先手动选中要处理的项目区域，直接用以下代码即可，不会超出选中范围：

Dim rng As Range
' 直接取当前选中的区域
Set rng = Selection
' 仅对选中区域按邮箱列去重
rng.RemoveDuplicates Columns:=4, Header:=xlNo

调整说明 #

• 去掉了不必要的Select操作，VBA中直接操作单元格对象比通过选中操作更稳定，不会因为用户中途点击改变选区导致范围出错
• 明确限制了区域的结束边界，不会把其他项目的行纳入去重范围，自然不会误删其他项目里的重复联系人

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