文章編號: 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
    ' 將 CompareRange 範圍設為要和
    選取範圍進行的值。
    Set CompareRange = Range("C1:C5")
    ' 注意:如果比較範圍位於其他工作簿
    ' 或工作表,請使用下列語法。
    ' Set CompareRange = Workbooks("Book2"). _
    '   Worksheets("Sheet2").Range("C1:C5")
        '
    ' 重複瀏覽選取範圍中的每個儲存格然後將每個儲存格和
    ' 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年12月6日 - 版次: 2.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