如何在 Excel 中通过比较两列中的数据来查找重复项

如何在 Excel 中通过比较两列中的数据来查找重复项

察看本文应用于的产品

文章编号	:	213367
最后修改	:	2006年10月12日
修订	:	3.3

概要

本文介绍了两种用于比较 Microsoft Excel 工作表两列中的数据并查找重复项的方法。

回到顶端

更多信息

方法 1：使用工作表公式

要使用工作表公式来比较两列中的数据，请按照下列步骤操作：

1.	启动 Excel。
2.	在新的工作表中，输入下面的数据（保留列 B 为空）： A1:1 B1:C1: 3 A2:2 B2:C2: 5 A3:3 B3:C3: 8 A4:4 B4:C4: 2 A5:5 B5:C5: 0
3.	在单元格 B1 中键入以下公式： =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
4.	选择单元格 B1:B5。
5.	在编辑菜单上，指向填充，然后单击向下填充。 重复的数字显示在列 B 中，如下所示： A1:1 B1:C1: 3 A2:2 B2:2 C2: 5 A3:3 B3:3 C3: 8 A4:4 B4:C4: 2 A5:5 B5:5 C5: 0

回到顶端

方法 2：使用 Visual Basic 宏

Microsoft 提供的编程示例只用于说明目的，不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。 要使用 Visual Basic 宏比较两列中的数据，请按照下列步骤操作：

1.	启动 Excel。
2.	按 Alt+F11 启动 Visual Basic 编辑器。
3.	在插入菜单上，单击模块。
	在模块表中输入下面的代码： Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub
4.	按 Alt+F11 返回 Microsoft Excel。
	输入下面的数据（保留列 B 为空）： A1:1 B1:C1: 3 A2:2 B2:C2: 5 A3:3 B3:C3: 8 A4:4 B4:C4: 2 A5:5 B5:C5: 0
5.	选择区域 A1:A5。
6.	在工具菜单上，指向宏，然后单击宏。
7.	单击 Find_Matches，然后单击执行。

重复的数字显示在列 B 中。匹配的数字将放在第一列的旁边，如下所示：

A1:1   B1:C1: 3
A2:2   B2:2   C2: 5
A3:3   B3:3   C3: 8
A4:4   B4:C4: 2
A5:5   B5:5   C5: 0

回到顶端

---

这篇文章中的信息适用于:

•	Microsoft Excel 2000 标准版
•	Microsoft Excel 2002 标准版
•	Microsoft Office Excel 2003

回到顶端

关键字：	kbhowto kbprogramming kbdtacode KB213367

回到顶端

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。