文書番号: 213367 - 対象製品
すべて展開する | すべて折りたたむ

目次

概要

この資料では、Microsoft Excel ワークシートの 2 つの列のデータを比較して重複したエントリを見つけるために使用できる 2 つの方法について説明します。

詳細

方法 1 : ワークシートの数式を使用する

ワークシートの数式を使用して 2 つの列のデータを比較するには、次の手順を実行します。
  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 では、[編集] の [フィル] をクリックし、[下方向へコピー] をクリックします。

    列 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 Support 担当者は、特定のプロシージャの機能についての問い合わせにはお答えできますが、ユーザー固有の目的に合わせた機能の追加、プロシージャの作成などの内容変更は行っておりません。

Visual Basic マクロを使用して 2 つの列のデータを比較するには、次の例に示す手順を実行します。
  1. Excel を起動します。
  2. Alt キーを押しながら F11 キーを押して、Visual Basic Editor を起動します。
  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 に戻ります。
  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 では、[開発] タブをクリックし、[コード] の [マクロ] をクリックします。
  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
    				

プロパティ

文書番号: 213367 - 最終更新日: 2007年6月14日 - リビジョン: 4.1
この資料は以下の製品について記述したものです。
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
キーワード:?
kbdtacode kbhowto kbprogramming KB213367
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

フィードバック

 

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