在Excel中查找重复项

我有一张Excel表格，里面有1000人的信息

其目的是一种方法，允许基于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

• 仅基于以下列：第一个Nam、最后一个Nam和日期

结果选定的“行”必须是：

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

---

复制通常不基于一个姓名或一个日期。

用快速规则识别重复项。使用应用的回填颜色作为操作中的标准

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

Sub-filterDupes（）
带工作表（“表1”）
如果.AutoFilterMode，则.AutoFilterMode=False
带.Cells（1，1）.CurrentRegion
使用.Resize（.Rows.Count-1,3）.Offset（1,1）
.FormatConditions.Delete
.FormatConditions.Add类型：=Xexpression，公式1:_
=和（COUNTIFS（$B:$B，$B2，$C:$C，$C2，$D:$D，$D2）-1）
.FormatConditions（1）.Interior.Color=vbRed
以
带.列（2）
.自动筛选字段：=1，标准1:=vbRed_
运算符：=xlFilterCellColor_
VisibleDropDown:=False'使用快速规则识别重复项。使用应用的回填颜色作为操作中的标准

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

Sub-filterDupes（）
带工作表（“表1”）
如果.AutoFilterMode，则.AutoFilterMode=False
带.Cells（1，1）.CurrentRegion
使用.Resize（.Rows.Count-1,3）.Offset（1,1）
.FormatConditions.Delete
.FormatConditions.Add类型：=Xexpression，公式1:_
=和（COUNTIFS（$B:$B，$B2，$C:$C，$C2，$D:$D，$D2）-1）
.FormatConditions（1）.Interior.Color=vbRed
以
带.列（2）
.自动筛选字段：=1，标准1:=vbRed_
运算符：=xlFilterCellColor_
VisibleDropDown:=False'下面是一个将数据用作表的示例（这样列引用很容易成为动态的）和具有公式条件的高级过滤器。您不必使用表，但如果不使用，请确保对列使用绝对引用

我们使用公式作为标准

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

下面是一些屏幕截图，在拍摄前后



以下是一个将数据用作表的示例（这样列引用就可以很容易地变成动态的）和带有公式条件的高级过滤器。您不必使用表，但如果不使用，请确保对列使用绝对引用

我们使用公式作为标准

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

下面是一些屏幕截图，在拍摄前后



您想要一个过滤器还是一个复制方法？？我想要一个过滤器。无需更改原始信息。只需使用
高级过滤器
是否要过滤器或复制其他方法？？我要过滤器。无需更改原始信息。只需使用
高级过滤器
@SimoOs，正如您从屏幕截图中看到的，根据您的数据和我概述的方法，它可以按照您的要求工作。如果它对您的实际数据不起作用，那么您的实际数据可能有一些不同，或者您没有实现我所描述的解决方案。我建议您查看高级过滤器的帮助，尝试找出您的错误。您的评论中提供的有限信息不足以在这方面进行更多的故障排除。谢谢soomuch@SimoOs如果这个解决方案是您所需要的，如果您能将其标记为答案，我将不胜感激。如果没有，让我们进一步排除故障。我正在努力找出我遇到的问题。我会尽快把它标记为答案。我非常感谢您的帮助。@SimoOs正如您从截图中看到的那样，根据您的数据和我概述的方法，它可以按照您的期望工作。如果它对您的实际数据不起作用，那么您的实际数据可能有一些不同，或者您没有实现我所描述的解决方案。我建议您查看高级过滤器的帮助，尝试找出您的错误。您的评论中提供的有限信息不足以在这方面进行更多的故障排除。谢谢soomuch@SimoOs如果这个解决方案是您所需要的，如果您能将其标记为答案，我将不胜感激。如果没有，让我们进一步排除故障。我正在努力找出我遇到的问题。我会尽快把它标记为答案。我非常感谢你的帮助。