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

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

概要
本文介绍了两种用于比较 Microsoft Excel 工作表两列中的数据和查找重复项的方法。
更多信息

方法 1:使用工作表公式

若要使用工作表公式比较两列中的数据,请按照下列步骤操作:
  1. 启动 Excel。
  2. 在新的工作表中,输入下面的数据(保留列 B 为空):
    A1:1   B1:C1: 3A2:2   B2:C2: 5A3:3   B3:C3: 8A4:4   B4:C4: 2A5:5   B5:C5: 0					
  3. 在单元格 B1 中键入以下公式:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. 选择单元格 B1:B5。
  5. 在 Microsoft Office Excel 2003 和 Excel 的较早版本中,指向“编辑”菜单上的“填充”,然后单击“向下”

    在 Microsoft Office Excel 2007 和 Excel 2010 中,在“编辑”组中单击“填充”,然后单击“向下”

    重复的数字显示在列 B 中,如下所示:
    A1:1   B1:C1: 3A2:2   B2:2   C2: 5A3:3   B3:3   C3: 8A4:4   B4:C4: 2A5:5   B5:5   C5: 0					

方法 2:使用 Visual Basic 宏

Microsoft 提供的编程示例只用于说明目的,不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能。但是,他们将不会修改这些示例以提供额外的功能,也不会构建过程以满足您的特定要求。 要使用 Visual Basic 宏比较两列中的数据,请按照下列步骤操作:
  1. 启动 Excel。
  2. 按 Alt+F11 启动 Visual Basic 编辑器。
  3. 插入菜单上,单击模块
  4. 在模块表中输入下面的代码:
    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 SelectionFor Each y In CompareRangeIf x = y Then x.Offset(0, 1) = xNext yNext xEnd Sub					
  5. 按 Alt+F11 返回 Excel。
  6. 输入下面的数据(保留 B 列为空):
    A1:1   B1:C1: 3A2:2   B2:C2: 5A3:3   B3:C3: 8A4:4   B4:C4: 2A5:5   B5:C5: 0					
  7. 选择区域 A1:A5。
  8. 在 Excel 2003 及较早版本的 Excel 中,指向“工具”菜单上的“宏”,然后单击“宏”

    在 Excel 2007 和 Excel 2010 中,单击“开发工具”选项卡,然后单击“代码”组中的“宏”
  9. 单击 Find_Matches,然后单击执行
重复的数字显示在列 B 中。匹配的数字将放在第一列的旁边,如下所示:
A1:1   B1:C1: 3A2:2   B2:2   C2: 5A3:3   B3:3   C3: 8A4:4   B4:C4: 2A5:5   B5:5   C5: 0				
match data XL2003 XL2007 XL2010
注意:本篇“快速发布”文章是从 Microsoft 支持组织直接创建的。 文中包含的信息按原样提供,用于响应紧急问题。 由于发布仓促,材料可能包含印刷错误,并且可能随时修订,恕不另行通知。 有关其他注意事项,请参阅使用条款
属性

文章 ID:213367 - 上次审阅时间:04/26/2013 17:26:00 - 修订版本: 1.0

Microsoft Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

  • kbdtacode kbhowto kbprogramming KB213367
反馈