检查重复的Excel VBA

Question

如何以最简单的方式对此进行编码？

如果让我们说Range("A1").value = "Thursday"

检查所有的细胞复制其在它们的值（B1，C1，D1，...）

如果发现重复，选择3个小区下面的每个那些细胞Range("B2:B4")等等......

谢谢你提前！

Answer 1

的最简单的方法是检查重复：

使用WorksheetFunction

= COUNTIF（A：A，A1）> 1

使用VBA

Dim Target As Range 
Dim r As Range 

Set Target = Range("A1", Range("A" & Rows.Count).End(xlUp)) 

For Each r In Target 
    r.Offset(0, 1) = WorksheetFunction.CountIf(Target, r.Value) > 1 
Next 

如果你想删除重复范围内的第一列

Target.RemoveDuplicates列：= 1，部首：= xlNo

如果你想扩展您的范围，包括列B和C

设置目标=范围（ “A1”，范围（ “A” & Rows.Count）.END（xlUp））。调整（，3）

在第一列和第三列删除重复

Target.RemoveDuplicates列：=阵列（1，3），部首：= xlNo

删除包含重复的行

Target.EntireRow.RemoveDuplicates Columns：= Array（1，3），Header：= xlNo