文章编号: 213367 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本文介绍了两种用于比较 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. 在 Microsoft Office Excel 2003 和 Excel 的较早版本中,指向“编辑”菜单上的“填充”,然后单击“向下”

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

    重复的数字显示在列 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. 插入菜单上,单击模块
  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 Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
    					
  5. 按 Alt+F11 返回 Excel。
  6. 输入下面的数据(保留 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
    					
  7. 选择区域 A1:A5。
  8. 在 Excel 2003 及较早版本的 Excel 中,指向“工具”菜单上的“宏”,然后单击“宏”

    在 Excel 2007 和 Excel 2010 中,单击“开发工具”选项卡,然后单击“代码”组中的“宏”
  9. 单击 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 支持组织直接创建的。 文中包含的信息按原样提供,用于响应紧急问题。 由于发布仓促,材料可能包含印刷错误,并且可能随时修订,恕不另行通知。 有关其他注意事项,请参阅使用条款

属性

文章编号: 213367 - 最后修改: 2013年4月26日 - 修订: 1.0
这篇文章中的信息适用于:
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
关键字:?
kbdtacode kbhowto kbprogramming KB213367
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com