当仅在一个列或列表中找到重复的单元格时，我们可以应用 COUNTIF 功能可快速轻松找到并计算重复数据。
1。 选择除列以外的空白单元格，您将在其中找到重复项。

2。 输入公式 = COUNTIF（$ C $ 3：$ C $ 12，C3）> 1，然后按 输入 键。

3。 拖动公式单元格的“自动填充”手柄，可以将该公式复制到其他单元格。

笔记： 在公式= COUNTIF（$ C $ 3：$ C $ 12，C3）> 1中，
(1) $ C $ 3：$ C $ 12 是您将在其中找到重复值的列或列表。 由于当我们将公式复制到其他单元格时该列是静态的，因此通常使用“ $”绝对引用。
(2) C3 是指定列的第一个单元格。 这是相对参考，因为在将公式复制到其他单元格时我们需要自动更改它。
(3) 该公式将返回 TRUE or 错误. TRUE 表示对应的值是重复的，而 FALSE 表示相应的值在该列中是唯一的。
(4) 有时，可能无法直观地理解TRUE或FALSE。 我们可以结合原始公式和IF函数返回 重复 直。
= IF（COUNTIF（$ C $ 3：$ C $ 12，C3）> 1，“ Duplicates”，“”）

在某些情况下，您需要比较两列并找出重复的值。 例如，您有两个名称列表，并希望在第二个列表中查找与第一个列表相比重复的名称。 您可以应用VLOOKUP和IFERROR函数轻松完成。

1。 选择第二个名称列表之外的空白单元格。

2。 输入公式 = IFERROR（VLOOKUP（D3，$ B $ 3：$ B $ 18,1,0），“”），然后按 输入 键。

3。 拖动公式单元格的自动填充手柄，根据需要将公式复制到其他单元格。

笔记： 在上式中
(1) D3 是第二个名称列表中的第一个单元格。 当我们将公式复制到其他单元格时，引用需要自动更改，因此，它是相对的。
(2) $ B $ 3：$ B $ 18 是名字列表。 这是绝对参考，因为当我们将公式复制到其他单元格时，范围需要保持静态。
(3) 当名称与第一个列表中的名称重复时，公式将返回该名称；否则，公式将返回该名称。 否则返回空白。
(4) 您也可以应用公式 = IF（COUNTIF（$ B $ 3：$ B $ 18，D3）> 0，“ Duplicates”，“”） 在第二个列表中查找与第一个列表相比较的重复名称。 该公式将返回 “重复” 如果对应的名称重复。

(5) 如果您需要在两张工作表的两列中找到重复项，则只需在比较列的引用之前添加工作表名称。 在我们的示例中，只需在公式中将$ B $ 3：$ B $ 18更改为Sheet1！$ B $ 3：$ B $ 18。

上面介绍的公式在查找重复项时不区分大小写，它们表示“ apple”与“ APPLE”重复。 在这里，您可以应用数组公式在具有匹配大小写的一列中查找重复值。

1。 选择除列以外的空白单元格，您将在其中找到重复项。

2。 输入数组公式 = IF（SUM（（-EXACT（$ C $ 3：$ C $ 12，C3）））<= 1，“”，“重复”），然后按 按Ctrl + 转移 + 输入 键。

3。 拖动公式单元格的自动填充手柄以将数组公式复制到其他单元格。

笔记： 在上面的数组公式中，
(1) $ C $ 3：$ C $ 12 是您需要查找重复值的列。 该引用是绝对的，因为将数组公式复制到其他单元格时该引用是静态的。
(2) C4 是列中的第一个单元格。 该引用是相对的，因为将数组公式复制到其他单元格时，引用需要自动更改。
(3) 如果相应的单元格重复，则数组公式将返回“ Duplicate”，否则将返回空白。

您可以应用 条件格式 此功能可快速突出显示列或范围内的重复单元格。

1。 选择要突出显示重复单元格的列。

2。 点击 主页 > 条件格式 > 加亮单元格规则 > 重复的值。 参见下面的截图：

3。 在弹出的“重复值”对话框中，选择 复制 从第一个下拉列表中，从第二个下拉列表中选择一个突出显示的场景，然后单击 OK 按钮。

：如果预设的高光场景无法满足您的需求，则可以选择 自订格式 从第二个下拉列表中，然后在弹出的“设置单元格格式”对话框中根据需要选择突出显示颜色，字体和单元格边框。

然后，您将看到所有重复的单元格都在选定列中突出显示，如下图所示。

:  
（1）在突出显示重复的单元格之后，我们可以轻松地过滤掉这些重复项。 （点击查看如何)
（2）在突出显示重复的单元格之后，我们还可以轻松地批量删除重复项。 （点击查看如何)

一些用户倾向于根据特定列中重复的单元格突出显示行。 在这种情况下，我们可以创建一个自定义条件格式规则来完成它。

1。 选择范围（不包括标题行），您将根据重复的单元格突出显示行。

2。 点击 主页 > 条件格式 > 新规则.

3。 在“新格式设置规则”对话框中，
（1）点击选择 使用公式来确定要格式化的单元格 选项;
（2）输入公式 = COUNTIF（$ C $ 3：$ C $ 12，$ C3）> 1 ，在 格式化此公式为真的值 框;
Tips： 在公式， $ C $ 3：$ C $ 12 是包含重复单元格的列，并且 $ C3 是列中的第一个单元格。
（3）点击 格式 按钮。

4。 在“设置单元格格式”对话框中，根据需要指定填充颜色，字体，单元格边框，然后单击 OK 按钮，以保存设置。

到目前为止，在选定的范围内，将基于指定列中的重复单元格突出显示行。 看截图：

要突出显示特定范围内的重复行，您可以应用 条件格式 功能也可以实现。

1。 选择除标题行以外的范围。

2。 点击 主页 > 条件格式 > 新规则.

3。 在“新格式设置规则”对话框中：
（1）单击以选择 使用公式来确定要格式化的单元格 选项;
（2）在 格式化此公式为真的值 框，输入公式 =COUNTIFS($B$3:$B$12,$B3,$C$3:$C$12,$C3,$D$3:$D$12,$D3)>1;
（3）点击 格式 按钮。

： 在公式 =COUNTIFS($B$3:$B$12,$B3,$C$3:$C$12,$C3,$D$3:$D$12,$D3)>1:
(1) $ B $ 3：$ B $ 12 是范围内的第一列，并且 $ B3 是此列中的第一个单元格；
(2) $ C $ 3：$ C $ 12 是范围内的第二列，并且 $ C3 是列中的第一个单元格；
(3) $ D $ 3：$ D $ 12 是范围内的第三列，并且 $ D3 是列中的第一个单元格；
（4）如果您的范围内有更多列，则可以在公式中连续添加列引用及其第一个单元格。

4. 在“设置单元格格式”对话框中，根据需要指定突出显示的颜色，字体，单元格边框等，然后单击“确定”。 OK 按钮，以保存设置。

到目前为止，已识别出重复的行，并在选定范围内突出显示了行。 看截图：

您可能已经注意到，使用上述方法可以识别或突出显示所有重复项。 有时，您只想查看除第一个实例外哪些项目重复。 您也可以使用 条件格式 功能和其他公式。

1。 选择带有标题的列。
Tips：如果需要突出显示基于除第一例以外的一列中重复项的行，请选择不包含标题行的范围。

2。 点击 主页 > 条件格式 > 新规则.

3。 在“新格式设置规则”对话框中：
（1）单击以突出显示 使用公式来确定要格式化的单元格 选项;
（2）在 格式化此公式为真的值 框，输入公式 = COUNTIF（$ C $ 3：$ C3，C3）> 1;
Tips：要突出显示一列中基于重复项的行，请输入公式 = COUNTIF（$ C $ 3：$ C3，$ C3）> 1.
（3）点击 格式 按钮。

4。 在弹出的“设置单元格格式”对话框中，根据需要指定突出显示的颜色，字体，单元格边框等，然后单击“确定”。 OK 按钮保存设置。

然后，您会看到突出显示了重复的单元格，但所选列中的第一个实例（或基于指定列中重复项的行）除外。 看截图：

当我们突出显示重复的单元格或行时， 条件格式 功能，所有重复项均以相同颜色突出显示。 但是，如果不同系列的重复值以不同的颜色突出显示，则更容易读取和获得差异。 在这里，VBA可以帮助您在Excel中完成它。

1。 按 其他 + F11 键一起打开Microsoft Visual Basic for Applications窗口。

2。 在窗口中，单击 插页 > 模块，然后将下面的代码粘贴到新的模块窗口中。

Sub HighlightDuplicatesInDifferentColors()
'Update by Extendoffice 20201013
Dim xURg, xRg, xFRg, xRgPre As Range
Dim xAddress As String
Dim xDt As Object
Dim xFNum, xCInt As Long
Dim xBol As Boolean
Dim xWs As Worksheet
Dim xSArr
Set xRg = Application.ActiveWindow.RangeSelection
If xRg.Count > 1 Then
xAddress = xRg.AddressLocal
Else
xAddress = xRg.Worksheet.UsedRange.AddressLocal
End If
On Error Resume Next
Set xURg = Application.InputBox("Select range:", "Kutools for Excel", xAddress, , , , , 8)
If xURg Is Nothing Then Exit Sub
Set xURg = Intersect(xURg.Worksheet.UsedRange, xURg)
Set xDt = CreateObject("scripting.dictionary")
Set xWs = xURg.Worksheet
xCInt = 5
xBol = Application.ScreenUpdating
Application.ScreenUpdating = False
For xFNum = 1 To xURg.Count
Set xFRg = xURg.Item(xFNum)
If Not IsError(xFRg) Then
If xFRg.Value <> "" Then
If xDt.exists(xFRg.Text) Then
xSArr = Split(xDt(xFRg.Text), ";")
If xSArr(1) = "Only" Then
xCInt = xCInt + 1
xSArr(1) = xCInt
Set xRgPre = xWs.Range(xSArr(0))
xRgPre.Interior.ColorIndex = xCInt
xDt(xFRg.Text) = xSArr(0) & ";" & xSArr(1)
End If
xFRg.Interior.ColorIndex = xSArr(1)

Else
xDt(xFRg.Text) = xFRg.Address & ";Only"
End If

End If
End If
Next
xURg.Worksheet.Active
xURg.Select
Application.ScreenUpdating = xBol
End Sub

3。 按 F5 键或单击 运行 图标以运行此VBA。

4。在弹出的 Kutools for Excel 对话框中，选择要突出显示具有不同颜色的重复单元格的列，然后单击 OK 按钮。

然后，您将看到每个重复值系列都以一种颜色突出显示。

我将介绍的第一个工具是 选择重复和唯一单元格 功能，由 Kutools for Excel。 此功能可以快速轻松地找到唯一或重复的单元格。

1。 选择要查找的列或范围，并突出显示重复的单元格。

2。 点击 库工具 > 选择 > 选择重复和唯一单元格.

3。 在“选择重复的和唯一的单元格”对话框中，根据需要检查选项，然后单击 Ok 按钮以完成操作。

：在“选择重复和唯一单元格”对话框中，
（1）如果您需要选择或突出显示除第一个实例外的所有重复项，请检查 重复（第一个除外） 选项。 否则，请检查 全部重复（包括第一个） 选项。
（2）如果需要突出显示重复项，请勾选 填充背景色 选项，然后根据需要指定突出显示颜色。
（3）如果要基于所选列中的重复项来选择或突出显示行，请在 选择整行 选项。
（4）如果要选择或突出显示具有匹配大小写的重复值，请勾选 区分大小写 选项。

Kutools for Excel 还提供了一个了不起的工具– 比较单元格，以帮助我们轻松地找到并突出显示两列中的重复单元格。

1。 点击 库工具 > 比较单元格 打开“选择相同和不同的单元格”对话框。

2。 在“选择相同和不同的单元格”对话框中，在 在中寻找价值 和 根据 框，检查 相同的值 选项，然后根据需要勾选其他选项。

笔记：
（1）如果需要查找重复的行，请检查 每一行 选项; 并查找重复的单元格，请检查 单细胞 在选项 基于 部分;
（2）勾选 填充背景色 如果需要突出显示重复的行或单元格，请选择并指定突出显示颜色；
（3）勾选 选定的整行 如果需要根据重复项选择或突出显示整行，则为可选；
（4）勾选 区分大小写 如果要查找或突出显示区分大小写的重复项，则选择此选项。

3。 点击 Ok 按钮，以完成设置。

然后，您将在您在 在中查找值 框被识别并突出显示。

此方法将指导您通过条件格式设置规则识别并突出显示重复的单元格，然后在Excel中轻松地按突出显示颜色进行过滤。

1。 应用条件格式以查找并突出显示指定列中的重复项。 （点击查看如何)

2。 单击以选中指定列的列标题，然后单击 时间 > 筛选器.

3。 继续单击过滤器图标  在列标题中，然后选择 通过彩色滤光片，然后在下拉列表中选择指定的条件格式颜色。 看截图：

然后，您将仅看到具有重复单元格的行被过滤掉。 看截图：

另外，我们也可以在帮助程序列中使用公式识别重复项，然后在Excel中轻松地使用帮助程序列过滤重复项。

1。 除了原始数据外，添加一个帮助器列，然后键入 复制 作为列标题。

2。 选择列标题下的第一个空白单元格，输入公式 = IF（COUNTIF（$ C $ 3：$ C $ 12，C3）> 1，“ Duplicate”，“”），然后拖动此单元格的“自动填充”手柄将其复制到其他单元格。

：在上式中 $ C $ 3：$ C $ 12 是包含重复数据的列，并且 C3 是列中的第一个单元格（标题单元格除外）。

3。 单击以选中列标题–重复，然后单击 时间 > 筛选器.

4。 然后点击过滤器图标  在列标题中，仅勾选 复制，然后点击 OK 按钮。 看截图：

到目前为止，具有重复值的行仅被过滤掉。 看截图：

通常，我们可以应用 = COUNTIF（范围，条件） 计算出现在指定范围内的某个特定值的总数。 说计算“ Apple”出现在列表A2：A10中的次数，我们可以应用公式 = COUNTIF（A2：A10，“ Apple”） 计算此重复值的数量。

但是，公式= COUNTIF（范围，条件）仅计算指定的重复值。 如何使用两个或多个条件来计算重复值？ 如果用条件来计算区分大小写的重复项，该怎么办？ 以下方法可以帮助您解决这些问题。

我们可以应用数组公式来计算带有Excel中条件的区分大小写的重复值。 例如，要计算值“ Apple”出现在具有匹配大小写的列表B2：B21中的次数，您可以按以下步骤完成操作：

1。 选择一个空白单元格。

2。 输入公式 = SUM（-EXACT（B2：B20，E2））。

3。 按 按Ctrl + 转移 + 输入 返回计数结果。

：在数组公式中，
(1) B2：B20 是您将在其中计算重复项的列。
(2) E2 是包含要计算出现次数的指定值的单元格。 您可以使用引号将单元格引用更改为该值， “苹果”.

有时，您可能希望使用两个或多个条件来计算重复项。 您可以应用 COUNTIFS 功能来完成它。
例如，有一个水果销售表，如下图所示。 在这里，我们需要计算苹果的重复次数，该苹果在7年5月2020日出售，并且销售额大于300。您可以按照以下条件计算重复次数：

1。 选择一个空白单元格。

2。 输入公式 =COUNTIFS(B3:B20,G4,C3:C20,G3,D3:D20,">300").

3。 按 输入 获得计数结果的键。

：在以上公式中，
(1) B3：B20 是（第一个）日期列，并且 G4 是日期标准；
(2) C3：C20 是（第二个）水果列，并且 G3 是水果标准；
(3) D3：D20 是（第三）金额列，并且 “> 300” 是金额标准。
（4）如果表中有更多列和条件，则可以添加列引用和条件。

要计算除首次出现的列中的所有重复项，请执行以下操作：

1。 选择列旁边的空白单元格。

2。 输入公式 = IF（COUNTIF（$ B $ 3：B3，B3）> 1，“是”，“”），然后向下拖动自动填充手柄以将此公式复制到其他单元格。

：在上式中
(1) $ B $ 3：B3 是您在其中计算重复项的范围。 在$ B $ 3：B3中，当您将公式复制到其他单元格时，B3将自动更改。
(2) B3 是指定列中的第一个单元格。
（3）该公式将返回“是”或空白。 是表示相应的值是重复的，而空白表示唯一。

然后，将识别指定列中的所有重复项。 我们可以计算公式结果以获得重复的总数。

3。 选择一个空白单元格。

4。 输入公式 = COUNTIF（C3：C16，“ YES”），然后按 输入 键。

：在上式中
(1) C3：C16 是我们在上一步中应用公式确定重复项的范围。
(2) 可以 是最后一个公式返回的值。

然后，获得指定列中重复值的总数。 重复项总数不包括首次出现的项。

要计算所有重复项的数量（包括Excel中的首次出现），可以应用数组公式来实现。

1。 选择一个空白单元格。

2。 输入公式 =ROWS(B3:B16)-SUM(IF(COUNTIF(B3:B16,B3:B16) =1,1,0)).

3。 按 按Ctrl + 转移 + 输入 返回计数结果。

：在上式中 B3：B16 是我们要计算重复项（包括其中的第一次出现）的指定列。

为了简化您的工作并免于记住冗长无聊的公式，您可以尝试 选择重复和唯一单元格 功能，由 Kutools for Excel，以快速计算指定列表或列中排除或包含首次出现的重复值的数量。

1。 选择要计算重复值数量的列，然后单击 库工具 > 选择 > 选择重复和唯一单元格.

2。 在“选择重复的和唯一的单元格”对话框中，选中 重复（第一个除外） or 全部重复（包括第一个） 选项，然后单击 Ok 按钮。

3。 然后，选择所有重复值，包括或排除首次出现的值，同时出现一个对话框，显示已选择了多少个单元格。 参见上面的截图。

假设您要比较两个名称列表并计算它们之间重复的数量，那么如何快速解决此问题？ 我们也可以通过Excel中的公式来完成它。

1。 选择一个空白单元格。

2。 输入公式 = SUMPRODUCT（-（ISNUMBER（MATCH（B3：B12，D3：D18,0）））））.

3。 按 输入 键。

：在上式中
(1) B3：B12 是名称的第一列，您将在其中计算重复项。
(2) D3：D18 是名称的第二列，您将以此为基础计算重复项。

或者，我们可以使用第三方加载项， Kutools for Excel，以便快速轻松计算两列之间的重复单元格总数。

1。 点击 库工具 > 选择 > 选择相同和不同的单元格.

2。 在“选择相同和差异单元格”对话框中，
（1）在 在中查找值 和 根据 盒分开。
（2）检查 单细胞 选项。
（3）检查 相同的值 选项。

4。 点击 Ok 按钮。

然后，选择第一列中的所有重复单元格，同时出现一个对话框提示并显示已选择了多少个重复单元格。 看截图：

：此功能将计算您在[]中指定的列中重复值的总数 在中查找值 选择相同和不同单元格对话框中的框。 如果您需要计算第二列中重复值的总数，请应用 选择相同和不同的单元格 再次指定功能，方法是在 在中查找值 框。

您可以使用以下公式快速计算每个重复值一次：

1。 选择一个空白单元格。

2。 输入公式 =SUMPRODUCT((C3:C19<>"")/COUNTIF(C3:C19,C3:C19&"")).

3。 按 输入 获得计数结果的键。

：在上式中 C3：C19 是要对每个重复值进行一次计数的指定列。

计算列表时，每个重复的值可以用匹配的情况进行一次计数，您可以应用数组公式轻松在Excel中完成。

1。 选择一个空白单元格。

2。 输入数组公式 = SUM（IFERROR（1 / IF（C3：C19 <>“”“），FREQUENCY（IF（EXACT（C3：C19，TRANSPOSE（C3：C19）），MATCH（ROW（C3：C19），ROW（C3：C19） ），“”），MATCH（ROW（C3：C19），ROW（C3：C19））），0），0））.

3。 按 按Ctrl + 转移 + 输入 键一起返回计数结果。

：在上面的数组公式中，C3：C19是指定的列，在此列中，每个具有匹配个案的重复项都会计数一次。

如果你有 Kutools for Excel 安装后，也可以应用 用唯一值计数单元格 功能可在Excel中快速计算每个系列的重复值。

1。 选择一个空白单元格。

2。 点击 库工具 > 公式助手 > 统计 > 用唯一值（包括第一个重复值）对单元格进行计数.

3。 在“公式帮助器”对话框中，指定要对重复项进行一次计数的列 范围 框，然后单击 Ok 按钮。

然后，计数结果立即填充到所选单元格中。

我们可以应用 产品总计 该功能可以计算Excel列中每个重复值系列。

1。 选择您要计算其中每个重复值系列的列，然后单击 时间 > 将A到Z排序 or 将Z排序到A.

2。 在弹出的“排序警告”对话框中，检查 扩大选择 选项，然后单击 排序 按钮。

然后，您将看到选择已按指定列的重复值进行排序。

3。 使选择保持选中状态，然后单击 时间 > 产品总计.

4。 在小计对话框中，
（1）从 在每次更改时 下拉列表;
（2）选择 计数 来自 使用功能 下拉列表;
（3）仅勾选 将小计添加到 列表框;
（4）点击 OK 按钮。

然后，您将看到对每个重复值系列进行计数，并将计数结果添加到每个重复值系列下方，请参见上面的屏幕截图。

我们还可以创建数据透视表，以便在Excel中轻松快速地计算每个系列的重复值。

1。 选择包含指定列的范围，然后单击 插页 > 数据透视表.

2。 在“创建数据透视表”对话框中，指定要查找新数据透视表的位置，然后单击 OK 按钮。

3。 在“数据透视表字段”窗格中，将指定的列拖到两个 行 和 价值观 部分。 然后，您将看到指定列中的每个重复值系列都被批量计算。 看截图：

如果你已经安装 Kutools for Excel 已经，您可以应用它易于使用的 高级组合行 功能可快速计算指定列中的每个重复值系列。

：本 高级组合行 功能将修改所选范围，并根据指定主键列中的重复值删除行。 要保存数据，建议在执行以下操作之前将数据备份或复制到其他位置。

1。 在原始数据范围的右边添加一个空白列，并将新列命名为 计数.

2。 一起选择原始数据范围和新列，然后单击 库工具 > 合并与拆分 > 高级组合行.

3。 在“高级合并行”对话框中，
（1）单击以选中要计算每个系列重复值的指定列，然后单击 首要的关键.
（2）单击以选中新列（计数），然后单击 计算 > 计数.
（3）必要时为其他列指定组合或计算类型。
（4）点击 Ok 按钮。

然后，您将看到指定列中的每个系列重复值都被批量计算。 看截图：

说一列中有一个水果列表。 在列表中，一些水果出现了很多次。 现在，您需要按出现的顺序标记每个重复的水果，如何解决呢？ 在这里，本节将介绍一个公式，以使其在Excel中轻松完成。

1。 在原始数据右边添加一个空白列。

2。 输入公式 =IF(COUNTIF($C$3:$C$14,C3)>1,COUNTIF(C$3:C3,C3),"") 在添加的空白列的第一个单元格中。

3。 拖动此公式单元格的“自动填充”手柄将公式复制到其他单元格。

：在上式中
(1) $ C $ 3：$ C $ 14 是要按顺序计算重复值的指定列。
(2) C3 是指定列中的第一个单元格。
（3）如果对应的值重复，则此公式将根据出现顺序返回序列号1、2、3…； 如果相应的值是唯一的，则此公式将返回空白。

您可以应用 删除重复 功能可直接删除除首次出现的所有重复值。

1。 选择要删除除重复出现的值以外的所有重复值的列。

2。 点击 时间 > 删除重复项.

3。 在“删除重复的警告”对话框中，选中 继续当前选择 选项，然后单击 删除重复 按钮。

Tips：要基于所选内容中的重复值删除行，请检查 扩大选择 选项。

4。 在“删除重复项”对话框中，仅检查指定的列，然后单击 OK 按钮。

Tips：如果您已检查 扩大选择 最后一步中的所有选项将在此处列出。 即使这样，您只需要检查指定的列。

5。 然后将出现一个对话框，提示并显示删除了多少个重复值。 点击 OK 按钮关闭它。

您还可以应用 进阶筛选 此功能可轻松删除指定列中的所有重复值。

1。 点击 时间 > 高级.

2。 在“高级过滤器”对话框中，
（1）检查 复制到另一个位置 选项;
（2）在 清单范围 框，选择要从中删除重复值的指定列；
（3）在 复制到 框，指定您要将列粘贴到的范围；
（4）勾选 仅唯一记录 选项。
（5）点击 OK 按钮。

然后，您将看到指定的列被粘贴到指定的范围，并且除了第一个匹配项之外的所有重复值都被删除。 看截图：

您还可以应用VBA快速删除重复值，但Excel列中的第一个匹配项除外。

1。 按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块，然后将以下VBA代码粘贴到新的模块窗口中。

小组 ExtendOffice_RemoveAllDeplicate()
调暗 xRg 作为范围
调暗 xURg、xFRg、xFFRg 作为范围
将 xI、xFNum、xFFNum 变暗为整数
Dim xDc 作为对象
暗淡 xDc_keys
将 xBol 变暗为布尔值
将 xStr 变暗为字符串
Dim xWs 作为工作表
将 xURgAddress 变暗为字符串
出错时继续下一步
设置 xRg = Application.InputBox("选择范围：", "Kutools for Excel", "", , , , , 8)
如果 xRg 没有任何内容，则退出 Sub
设置 xURg = Intersect(xRg.Worksheet.UsedRange, xRg)
设置 xWs = xURg.Worksheet
设置 xDc = CreateObject("scripting.dictionary")
xURgAddress = xURg.Address
xBol = 应用程序.ScreenUpdating
应用程序.ScreenUpdating = False
对于 xFNum = 1 到 xURg.Count
设置 xFRg = xURg.Item(xFNum)
如果（不是 IsError(xFRg)）那么
如果 xFRg.Value <> "" And (Not IsError(xFRg)) 那么
对于 xFFNum = xFNum + 1 至 xURg.Count
设置 xFFRg = xURg.Item(xFFNum)
如果不是 IsError(xFFRg) 那么
如果 xFFRg.Value = xFRg.Value 那么
xDc(xFFRg.地址) = ""
万一
万一
下一个
万一
万一
下一个
xStr =“”
xDc_keys = xDc.Keys

对于 xI = 1 至 UBound(xDc_keys)
如果 xStr = "" 那么
xStr = xDc_keys(xI)
设置 xURg = xWs.Range(xStr)
别的
xStr = xStr & "," & xDc_keys(xI)
设置 xURg = Application.Union(xWs.Range(xDc_keys(xI)), xURg)
万一
下一个
调试.打印xStr
xWs.激活
xURg.选择
选择.删除 Shift:=xlUp
xWs.Range(xURgAddress).Select
应用程序.ScreenUpdating = xBol
结束子

3。 按 F5 键或单击 运行 按钮以运行此VBA。

4。 在弹出的对话框中，指定要从中删除重复值的范围，然后单击 OK 按钮。

然后，除了第一次出现的所有重复值都立即从指定范围中删除。

注意：此VBA代码区分大小写。

我们可以使用条件格式规则突出显示所有重复的值，包括列或列表中的第一个出现的值，然后通过突出显示的颜色过滤掉所有重复的值。 之后，我们可以选择所有过滤掉的重复单元格，然后将其批量删除。

1。 应用条件格式以突出显示重复的值。 （点击查看如何)

2。 选择要从中删除重复值（包括第一次出现）的列，然后单击 时间 > 筛选器.

3。 点击过滤器图标  在指定列的列标题中。 在下拉菜单中，选择 通过彩色滤光片，然后从子菜单中指定突出显示颜色。

然后，所有重复值都将被过滤掉。

4。 选择所有过滤的单元格，单击鼠标右键，然后选择 删除行 从上下文菜单中。 然后在弹出的重新确认对话框中单击 OK 按钮继续。

5。 然后，将所有重复值批量删除。 保持选中过滤列表，然后单击 筛选器 > 时间 再次取消过滤器。

到现在为止，您将看到批量删除所有重复的单元格，包括第一次出现的单元格，只剩下唯一的值。

：此方法将根据指定列中的重复值删除行。

我们还可以应用公式来识别重复值，包括在助手列中首次出现的重复值，然后通过公式结果过滤掉重复值，最后批量删除这些过滤掉的重复值。

1。 在指定列旁边添加一个帮助器列，输入公式 = COUNTIF（$ B $ 3：$ B $ 11，B3） 放入帮助器列的第一个单元格，然后向下拖动“自动填充”手柄以将此公式复制到其他单元格。 看截图：

备注：在上式中 $ B $ 3：$ B $ 11 是您将从中删除重复值的指定列，并且 B3 是指定列中的第一个单元格。

2。 选择帮助器列，然后单击 时间 > 筛选器.

3。 点击过滤器图标  在帮助程序列标题中，然后在下拉菜单中检查所有值，除了 1，然后点击 OK 按钮。 看截图：

4。 现在，所有重复值都将被过滤掉。 在帮助器列中选择过滤出的单元格，右键单击并选择 删除行 在上下文菜单中。

5。 在弹出的重新确认对话框中，点击 OK 按钮继续。

6。 现在，所有重复的值及其行将被批量删除。 继续点击 时间 > 筛选器 再次取消过滤器。

然后，您将看到批量删除所有重复的值，包括第一次出现的值。

如果你有 Kutools for Excel 安装后，也可以应用 选择重复和唯一单元格 功能可快速轻松地选择和删除Excel中包含或排除首次出现的重复值。

1。 选择要从中删除重复项的列。

2。 点击 库工具 > 选择 > 选择重复和唯一单元格.

3。 在“选择重复的和唯一的单元格”对话框中，选中 全部重复（包括第一个） 选项，然后单击 Ok 按钮。

笔记：
（1）要选择和删除第一次出现的重复值，请检查 重复（第一个除外） 选项。
（2）要基于指定列中的重复值选择和删除行，请选中 选择整行 选项。
（3）要选择和删除具有匹配大小写的重复值，请检查 区分大小写 选项。
（4）要选择，突出显示和删除重复的单元格或行，请选中 填充背景色 or 填充字体颜色 选项，并根据需要指定填充或字体颜色。

4。 然后，对话框提示并显示已选择了多少个单元格，请单击 OK 按钮关闭它。

5。 右键单击选定的单元格，然后选择 删除 从上下文菜单。

6。 在即将出现的“删除”对话框中，选中 向上移动单元格 选项，然后单击 OK 按钮。

到目前为止，所有包含第一次出现的重复值都已被批量删除。

在大多数情况下，我们在列中标识重复的值，然后通过重复的值删除整个行。 老实说，此操作与从单个列中删除重复值非常相似。 结果，我们可以使用类似的解决方案基于指定列中的重复项删除行。

第一种方法是应用内置 删除重复 该功能可删除指定列中重复的行。 只需选择要删除行的范围，然后单击 时间 > 删除重复 要启用该功能，请仅在“删除重复项”对话框中打勾指定的列，然后单击 OK 完成删除操作。

我们还可以应用条件格式和过滤器功能，根据指定列中的重复值删除行。 首先，根据条件列规则，基于某一列中的重复值突出显示行（点击查看如何）。 其次，按颜色过滤范围。 第三，轻松删除所有过滤出的行。 最后，清除或取消过滤器，您将只剩下指定列中具有唯一值的行。

或者，您可以添加一个帮助器列，然后应用公式 = COUNTIF（$ C $ 3：$ C $ 21，C3） 以标识指定列中的重复项。 然后在帮助器列中过滤出大于1的数字，并轻松删除所有过滤出的行。 清除过滤器后，您将看到仅保留指定列中具有唯一值的行。

第三方加载项 Kutools for Excel 还带来了非凡的便捷功能 选择重复和唯一单元格，以基于指定列中的重复值快速选择行，然后可以通过右键单击菜单快速删除这些选定的行。

Kutools for Excel的 高级组合行 该功能还可以根据指定的主键列中的重复值快速删除行。

我们可以添加一个帮助器列，并应用公式来识别两列之间的重复值，然后轻松过滤和删除重复值。

1。 在指定的列旁边添加一个空白列，您将从中删除重复的值。

2。 在帮助程序列的第一个单元格（标题单元格除外）中，键入公式 = IF（ISERROR（MATCH（C2，$ A $ 2：$ A $ 13,0）），“ Unique”，“ Duplicate”），然后向下拖动自动填充手柄以将公式复制到其他单元格。

：在上式中
(1) C2 是指定列中的第一个单元格，您将从中删除重复值；
(2) $ A $ 2：$ A $ 13 是我们需要比较的另一列。
（3）该公式将返回 复制 如果相应的值与另一列中的值重复，则返回 独特 如果与另一列中的值不同。

3。 选择帮助器列，然后单击 时间 > 筛选器.

4。 点击过滤器图标  在助手列标题中，然后仅在下拉菜单中选中 复制，然后点击 OK 按钮。

5。 现在，所有重复值都将被过滤掉。 选择过滤的单元格，右键单击，然后选择 删除行 从上下文菜单中。 然后点击 OK 在弹出的重新确认对话框中。

6。 然后，从指定的列中删除所有重复的值。 继续点击 时间 > 筛选器 再次取消过滤器。

然后，您将看到指定列中仅保留唯一值。 您可以根据需要删除帮助器列。

：此方法将根据指定列中的重复值删除整个行。

如果你有 Kutools for Excel 安装好后，就可以使用它了 选择相同和不同的单元格 功能可快速选择两列之间的重复值，然后轻松将其删除。

1。 点击 库工具 > 选择 > 选择相同和不同的单元格 启用此功能。

2。 在“选择相同和不同的单元格”对话框中，在 在中寻找价值 和 根据 分别包装，检查 单细胞 和 相同的值 选项，然后单击 Ok 按钮。 看截图：

3。 然后，在第一列（您在 在中寻找价值 框）。 然后点击 OK 弹出对话框中的按钮。

4。 你可以按 删除 键直接删除这些重复值，或右键单击它们并选择 删除 从上下文菜单。