检查重复的Excel VBA

我如何以最简单的方式编码？

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

检查所有有价值的单元格（B1，C1，D1，…）上的重复项

如果find一个副本，请在每个单元格下面select3个单元格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 Columns：= 1，Header：= xlNo

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

Set Target = Range（“A1”，Range（“A”＆Rows.Count）.End（xlUp））。Resize（，3）

删除第一列和第三列中的重复项

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

删除包含重复项的行

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