メインコンテンツへスキップ

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

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

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

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

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


矢印青い右バブル 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つの範囲を入れ替える必要があります。

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


関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
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)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() 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 = "Buscar coincidencias" 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 But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() 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 = "Buscar coincidencias" 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 But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations