你目前正处于脱机状态,正在等待 Internet 重新连接

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

针对 Office 2003 的支持已终止

Microsoft 已于 2014 年 4 月 8 日终止了针对 Office 2003 的支持。该更改已影响到您的软件更新和安全选项。 了解这一措施对于您的含义以及如何继续保持受保护状态。

概要
本文介绍了两种用于比较 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
反馈