比较重数

法 1：使用工作公式 法 1：使用工作表公式 若要使用工作表公式比较两列中的数据，请按照下列步骤操作： 1.​ 启动 Excel。 2.​ 在新的工作表中，输入下面的数据（保留列 B 为空）： 3.​ A1:1 B1:C1: 3 4.​ A2:2 B2:C2: 5 5.​ A3:3 B3:C3: 8 6.​ A4:4 B4:C4: 2 7.​ A5:5 B5:C5: 0 8.​ 在单元格 B1 中键入以下公式： =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) 9.​ 选择单元格 B1:B5。 10.​ 在 Microsoft Office Excel 2003 和 Excel 的较早版本中，指向“编辑”菜单上的“填充”，然后单击“向下”。 在 Microsoft Office Excel 2007 中，在“编辑”组中单击“填充”，然后单击“向下”。 重复的数字显示在列 B 中，如下所示： 11.​ A1:1 B1:C1: 3 12.​ A2:2 B2:2 C2: 5 13.​ A3:3 B3:3 C3: 8 14.​ A4:4 B4:C4: 2 15.​ A5:5 B5:5 C5: 0 回到顶端 方法 2：使用 Visual Basic 宏 Microsoft 提供的编程示例只用于说明目的，不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能。但是，他们将不会修改这些示例以提供额外的功能，也不会构建过程以满足您的特定要求。 要使用 Visual Basic 宏比较两列中的数据，请按照下列步骤操作： 1.​ 启动 Excel。 2.​ 按 Alt+F11 启动 Visual Basic 编辑器。 3.​ 在插入菜单上，单击模块。 4.​ 在模块表中输入下面的代码： 5.​ Sub Find_Matches() 6.​ Dim CompareRange As Variant, x As Variant, y As Variant 7.​ ' Set CompareRange equal to the range to which you will 8.​ ' compare the selection. 9.​ Set CompareRange = Range("C1:C5") 10.​ ' NOTE:If the compare range is located on another workbook 11.​ ' or worksheet, use the following syntax. 12.​ ' Set CompareRange = Workbooks("Book2"). _ 13.​ ' Worksheets("Sheet2").Range("C1:C5") 14.​  ' 15.​ ' Loop through each cell in the selection and compare it to 16.​ ' each cell in CompareRange. 17.​ For Each x In Selection 18.​ For Each y In CompareRange 19.​ If x = y Then x.Offset(0, 1) = x 20.​ Next y 21.​ Next x 22.​ End Sub 23.​ 按 Alt+F11 返回 Excel。 24.​ 输入下面的数据（保留 B 列为空）： 25.​ A1:1 B1:C1: 3 26.​ A2:2 B2:C2: 5 27.​ A3:3 B3:C3: 8 28.​ A4:4 B4:C4: 2 29.​ A5:5 B5:C5: 0 30.​ 选择区域 A1:A5。 31.​ 在 Excel 2003 及较早版本的 Excel 中，指向“工具”菜单上的“宏”，然后单击“宏”。 在 Excel 2007 中，单击“开发工具”选项卡，然后单击“代码”组中的“宏”。 32.​ 单击 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