Note: The other languages of the website are Google-translated. Back to English

XNUMX枚のシートのXNUMX列で重複または一意の値を見つける方法は?

同じワークシートのXNUMXつの範囲を比較して、重複値または一意の値を見つけるのはほとんどの人にとって簡単ですが、XNUMXつの範囲がXNUMXつの異なるワークシートにある場合、これらXNUMXつの範囲の重複値と一意の値をすばやく見つけるにはどうすればよいですか。 ? このチュートリアルでは、いくつかのクイックカットを紹介します。

XNUMXつのスプレッドシートのXNUMXつの同じヘッダー列をExcelの数式と比較します

XNUMXつのスプレッドシートのXNUMXつの範囲をVBAと比較します

XNUMXつのスプレッドシートのXNUMXつの範囲をKutoolsforExcelで比較します

OfficeタブOfficeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
  • 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 並び替え 週、日、頻度など。 フィルタ 太字、数式、コメント...
  • 300 以上の強力な機能。 Office 2007-2021 および 365 で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

矢印青い右バブル XNUMXつのスプレッドシートのXNUMXつの同じヘッダー列をExcelの数式と比較します

Excelの数式を使用すると、以下に示すようにXNUMXつの同じヘッダー列を異なるシートで比較して、重複する一意の値を見つけることができます。

1.この式を入力する = COUNTIF(Sheet1!$ A:$ A、A1) シート3の範囲に隣接する空白のセル内。スクリーンショットを参照してください。

2。 押す 入力します キーボードのボタンをクリックし、塗りつぶしハンドルをドラッグして、シート1の範囲と比較する範囲を塗りつぶします(数値ゼロは1つの範囲の重複値を意味し、数値3はシート1の一意の値を意味しますが、シートXNUMXではありません)

ヒント:

1.この数式は、XNUMXつのスプレッドシートの同じヘッダーを持つXNUMXつの列のみを比較できます。

2. Sheet1ではなくSheet3で一意の値を検索する場合は、上記の式を入力する必要があります=COUNTIF(Sheet3!$ A:$ A、A1) Sheet1に。


矢印青い右バブル XNUMXつのスプレッドシートのXNUMXつの範囲をVBAと比較します

1。 ホールド 頭の中 ボタンを押して F11 キーボードで開くには アプリケーション用 Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、VBAをモジュールにコピーします。

VBA:XNUMXつのスプレッドシートのXNUMXつの範囲を比較します

Sub CompareRanges() '更新20130815Dim WorkRng1 As Range、WorkRng2 As Range、Rng1 As Range、Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox( "Range A:"、xTitleId、 ""、Type:= 8 )Set WorkRng2 = Application.InputBox( "Range B:"、xTitleId、Type:= 8)For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA .RGB(255、0、0)Exit For End If Next Next End Sub

3。 クリック ラン ボタンまたはプレス F5 VBAを実行します。

4.画面にダイアログが表示されますので、比較したい範囲をXNUMXつ選択してください。 スクリーンショットを参照してください:

5。 クリック Ok XNUMX番目の範囲を選択するための別のダイアログが表示されます。 スクリーンショットを参照してください:

6。 クリック Ok、および範囲Aと範囲Bの両方で重複する値は、範囲Aの赤い背景で強調表示されます。スクリーンショットを参照してください。

ヒント:このVBAを使用すると、同じワークシートと異なるワークシートの両方でXNUMXつの範囲を比較できます。


矢印青い右バブル XNUMXつのスプレッドシートのXNUMXつの範囲をKutoolsforExcelで比較します

数式が不便で、VBAが難しい場合は、試してみることができます Kutools for Excel's 範囲を比較する 機能。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手

お申し込みください 範囲を比較する クリックして機能 クツール > 範囲を比較する。 スクリーンショットを参照してください:

異なるシートのXNUMXつの列と比較してください。

1。 クリック クツール > 範囲を比較する、画面にダイアログが表示されます。 スクリーンショットを参照してください:

2.範囲とルールを指定し、次のようにします。

比較を同じ範囲のままにします チェックを外し、をクリックしてXNUMXつの範囲を選択します 範囲A 及び 範囲B、スクリーンショットを参照してください:

[ルール]の下のドロップダウンボックスで、検索する同じ値または異なる値を指定します。

3。 クリック Ok。 ポップアップダイアログは、同じ値が選択されていることを示します。

4。 クリック Ok ポップアップダイアログのボタン。 範囲Aでは、XNUMXつの範囲間で同じ値が選択されます。

スプレッドワークシートのXNUMXつの範囲を比較します

以下に示すように、XNUMXつのスプレッドシートにXNUMXつの範囲があり、それらを比較して異なる値を見つけたい場合は、次のように実行できます。

1。 クリック クツール > 範囲を比較する、画面にダイアログが表示されます。

2.範囲とルールを指定し、次のようにします。

コメントを残す 同じ範囲で比較する チェックを外し、をクリックしてXNUMXつの範囲を選択します 範囲A 及び 範囲B;

[ルール]の下のドロップダウンボックスで、検索するさまざまな値を指定します。

データにヘッダーがあることを確認してください in オプション セクション;

3。 クリック Ok。 ポップアップダイアログは、同じ値が選択されていることを示します。

4。 クリック Ok ポップアップダイアログのボタン。 範囲Aのさまざまな値が選択されています。 スクリーンショットを参照してください:

Sheet2の範囲Bで異なる値を見つけたい場合は、XNUMXつの範囲を入れ替える必要があります。

範囲を比較する 関数は、同じシート内の範囲を比較することもできます。 範囲の比較の詳細については、ここをクリックしてください。


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (8)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ExcelのXNUMXつの列の単語の違いを確認するにはどうすればよいですか
このコメントは、サイトのモデレーターによって最小化されました
異なる列から同じ名前を見つける方法。 2000つの列に20000レコードが含まれ、XNUMX番目の列にXNUMXレコードが含まれている場合、その名前を比較して区別する方法はありますか? ありがとう、
このコメントは、サイトのモデレーターによって最小化されました
XNUMXつの異なるExcelシート間でデータを比較する方法は?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、コードは機能していますが、重複する値がなくても範囲全体が強調表示されています。 ヘルプ!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。利用可能なすべてのワークシートで値の範囲を検索する必要があります。一致するものがある場合は、元の範囲の値に色を付けます。 次のコードを試しました。SubCompare3()Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscarconcertncias" Set WorkRng1 = Application.InputBox( "Seleccionar equipos con cambios: "、xTitleId、" "、Type:= 8)Set WorkRng2 = Range(" B1"&LastRow)For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200、250、200)Exit For End If Next Next Next End Subしかし、一致する場合は変更されません。 ? どうもありがとう、良い一日を
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、朝、利用可能なすべてのワークシートで値の範囲を検索する必要があります。一致するものがある場合は、元の範囲の値に色を付けます。 次のコードを試しました。SubCompare3()Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscarconcertncias" Set WorkRng1 = Application.InputBox( "Seleccionar equipos con cambios: "、xTitleId、" "、Type:= 8)Set WorkRng2 = Range(" B1"&LastRow)For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200、250、200)Exit For End If Next Next Next End Subしかし、一致する場合は変更されません。 ? どうもありがとう、良い一日を
このコメントは、サイトのモデレーターによって最小化されました
これはいい。 XNUMX枚の重複アイテムのみが強調表示されます。 ただし、重複するアイテムがあるシートの両方を強調表示する必要があります
このコメントは、サイトのモデレーターによって最小化されました
THENステートメント内にXNUMX番目のコマンドを追加する必要があります。


これを試して;

Sub CompareRanges()
'更新20130815
Dim WorkRng1 As Range、WorkRng2 As Range、Rng1 As Range、Rng2 As Range
xTitleId="比較のために範囲を入力してください"
Set WorkRng1 = Application.InputBox( "Range A:"、xTitleId、 ""、Type:= 8)
WorkRng2 = Application.InputBox( "Range B:"、xTitleId、Type:= 8)を設定します
WorkRng1の各Rng1に対して
rng1Value = Rng1.Value
WorkRng2の各Rng2に対して
rng1Value=Rng2.Valueの場合
Rng1.Interior.Color = VBA.RGB(255、0、0)
Rng2.Interior.Color = VBA.RGB(255、0、0)
終了
終了する場合
次へ
次へ
End Subの
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護