您可以使用下列方法比較兩個工作表Microsoft Excel中的資料,並尋找重複專案。 

方法 1:使用工作表公式

  1. 開始Excel。

  2. 在新的工作表中,輸入下列資料做為範例, (欄 B 保留空白) :

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. 在儲存格 B1 中輸入下列公式

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. 選取儲存格 B1 到 B5。

  5. 在 Excel 2007 及更新版本Excel,選取在編輯群組中填入,然後選取向下

    重複的數位會顯示在欄 B 中,如下列範例所示: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    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 以返回Excel。

    1. 輸入下列資料做為範例, (欄 B 保留空白) :
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. 選取儲存格 A1 到 A5。

  7. 在 Excel 2007 及更新版本Excel,選取開發人員選項卡,然後選取程式碼群組中的

    附註: 如果您沒看到開發人員資料 表,您可能需要 將其開啟。 若要這麼做,請選取>選項>自訂功能區,然後選取右側自訂方塊中的開發人員選項卡。

  8. 按一下Find_Matches,然後按一下 [執行

    重複的數位會顯示在欄 B 中。符合的數位會放在第一欄旁邊,如下圖所示:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Insiders

Was this information helpful?

How satisfied are you with the translation quality?
What affected your experience?

Thank you for your feedback!

×