在Excel中查找重复项

我有一个Excel工作表包含约1000人的信息。

目的是允许select包含基于select列的相同信息的所有行

在Excel中给出以下信息:

Code first-Nam Last-Nam Date Room 01 Jack Ben 01-01-1995 01 02 Merry ley 12-02-1994 09 03 jack Ben 01-01-1995 08 04 Merry nadia 12-11-1991 02 
  • 仅基于列包含:First-Nam,Last-Nam和Date。

结果select的“行”需要是:

 Code first-Nam Last-Nam Date Room 0100 Jack Ben 01-01-1995 01 1002 jack Ben 01-01-1995 08 

重复通常不是基于一个名字或一个date。

下面是一个使用数据作为表格的例子(所以列引用很容易变成dynamic的)和带公式标准的高级filter。 您不必使用表格,但如果不使用绝对引用,则一定要使用绝对引用。

我们使用公式作为标准。

 A2: =COUNTIF(Table1[first-Nam],B7)>1 B2: =COUNTIF(Table1[Last-Nam],C7)>1 C2: =COUNTIF(Table1[Date],D7)>1 

这里有一些屏幕截图,前后

在这里输入图像说明

在这里输入图像说明

在这里输入图像说明

使用快速的条件格式规则识别重复项。 在Range.AutoFilter方法操作中使用应用的回填颜色作为标准。

 Sub filterDupes() With Worksheets("Sheet1") If .AutoFilterMode Then .AutoFilterMode = False With .Cells(1, 1).CurrentRegion With .Resize(.Rows.Count - 1, 3).Offset(1, 1) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=AND(COUNTIFS($B:$B, $B2,$C:$C, $C2,$D:$D, $D2)-1)" .FormatConditions(1).Interior.Color = vbRed End With With .Columns(2) .AutoFilter Field:=1, Criteria1:=vbRed, _ Operator:=xlFilterCellColor, _ VisibleDropDown:=False '<~~ turns off showing the dropdown arrow End With End With End With End Sub 

使用来自CR规则的颜色类似于在不改变工作表结构的情况下添加标识重复项的“帮助”列。

color_remove_duplicates_before
filterDupes()之前的示例数据

color_remove_duplicates_during
使用条件格式规则的示例数据

color_remove_duplicates_after
filterDupes()之后的示例数据