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

XNUMXつの列を比較し、Excelで一致しないデータを強調表示するにはどうすればよいですか?

以下のスクリーンショットに示すように、隣接するセルのXNUMXつの列を比較し、一致しないデータを強調表示するには、記事のメソッドを試すことができます。

XNUMXつの列を比較し、VBAコードで一致しないデータを強調表示します
XNUMXつの列を比較し、Kutools forExcelで一致しないデータを強調表示します


XNUMXつの列を比較し、VBAコードで一致しないデータを強調表示します

上のスクリーンショットのように、列Aと列Bのデータを比較しています。次のVBAコードを実行して、一致しないデータを強調表示してください。

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、次のコードをコピーしてコードウィンドウに貼り付けます。

VBAコード:XNUMXつの列を比較し、一致しないデータを強調表示します

Sub Dyeware()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、比較する必要のある最初の列を選択し、[ OK ボタン。 スクリーンショットを参照してください。

4.次に、次のポップアップでXNUMX番目に比較された列を選択します Kutools for Excel ダイアログボックス。

5.以下のスクリーンショットのようなダイアログボックスで、一致しないデータを強調表示するには、をクリックしてください。 いいえ

次に、XNUMXつの列間で一致しないすべてのデータがすぐに強調表示されます。 スクリーンショットを参照してください:


XNUMXつの列を比較し、Kutools forExcelで一致しないデータを強調表示します

たとえば、以下のスクリーンショットに示すように、列のセル値が別の列に存在するかどうかを調べて強調表示したい場合は、列Aの番号2が列Bに存在しません。 範囲を比較する の有用性 Kutools for Excel.

1。 クリック クツール > インセット同じセルと異なるセルを選択する。 スクリーンショットを参照してください:

2。 の中に 同じセルと異なるセルを選択する ダイアログボックスでは、次のように構成する必要があります。

2.1で強調表示する、一致しないセルを含む最初の列を選択します 値を見つける ボックス内;
2.2で比較するXNUMX番目の列を選択します による ボックス;
2.3で に基づく setcion、を選択します 単細胞 オプション;
2.3を選択します 異なる値 内のオプション もう完成させ、ワークスペースに掲示しましたか? セクション;
2.4で 結果の処理 セクションで、 バックカラーを塗りつぶす ボックスに入力し、ドロップダウンリストから背景色を指定します。
2.5 OK ボタン。 スクリーンショットを参照してください:

3.次に、ダイアログボックスが表示され、列Aのみで列Bにはないセルの数が示されます。[OK]ボタンをクリックすると、一致したすべてのセルが列Aで選択されます。

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


関連記事:

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の 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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Bro,
Thank you for your reply.
I checked this link and I don't see what iam expecting.. if in A1 clm we have 'Man' and A2 as 'Mon'. In that, 'o' only different. So, I need like the 'o' should be highlighted. Other text should be shown as normal text.
This comment was minimized by the moderator on the site
Hi, It's awesome and very useful!!!!!!!!

Also, I have a doubt about this. In 'A1', I have text as 'Hi Man' and in 'B1', I Have text as 'Ha Man'. So when I run the Macron, I need the result as in B1 'Ha Man' (The "a" only should be highlighted and other text should be in normal).

Please sort out this issue Bro!!!
This comment was minimized by the moderator on the site
Good day,
The VBA code in below article can do you a favor. Please follow the link.
How To Compare Two Strings For Similarity Or Highlight Differences In Excel?
https://www.extendoffice.com/documents/excel/3716-excel-compare-two-strings-highlight-differences-for-similarity.html#a2
This comment was minimized by the moderator on the site
hi
i have some doubt in vba
This comment was minimized by the moderator on the site
Hi,
Please let me know your doubt.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations