錄入：[孤舟] 出處：[網絡搜集] 點擊：[1073]
如何在 Excel 中通過比較兩列中的數據來查找重復項
概要
本文介紹了兩種用於比較 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. 在編輯菜單上，指向填充，然後單擊向下填充。
重復的數字顯示在列 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 返回 Microsoft 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. 在工具菜單上，指向宏，然後單擊宏。
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
來源:/ArticleShow.aspx?ID=277