要使用工作表公式来比较两列中的数据,请按照下列步骤操作:
输入下面的数据(保留列 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
在单元格 B1 中键入以下公式:
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 提供的编程示例只用于说明目的,不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能,但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。 要使用 Visual Basic 宏比较两列中的数据,请按照下列步骤操作:
按 Alt+F11 启动 Visual Basic 编辑器。
在插入菜单上,单击模块。
在模块表中输入下面的代码:
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
按 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
选择区域 A1:A5。
在工具菜单上,指向宏,然后单击宏。单击 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