方法 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
