excel - 检查所有单元格中的重复项

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 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