【社内DX案件紹介】2つのファイルの内容を比較する

 ■社内DXの依頼内容

100行50列のデータが入っている２つのファイルの内容を比較し、一致しないセルに色を付けたい

■社内DXの条件

・A、Bのファイルは同じフォーマットで作られている

・情報は100行50列の5000個のセルがあり、セルは空欄の場合もある

・A、Bそれぞれのセルの値が同じか調べ、異なる場合は片方のファイルのセルだけ色を付ける

・セルに色付けするファイルのみマクロで作成してもよい

■諸元

・マクロは使わず、条件付き書式で実施

・B側のファイルに新たにコピペシートを追加し、Aの値を張り付ける

・Bのファイルには条件付き書式にてコピペシートの値と比較して色を付ける

■作成方法

１．B2～AY101までのセルに値を入れる（今回は1～2をランダムで代入する）

もしランダムの値を入れるサンプルを使いたい場合はマクロでこれを入れて下さい。

Sub RNDM()
Dim y As Long
Dim x As Integer
Dim l As Integer
Dim h As Long

l = 1
h = 2

Randomize

For y = 2 To 101
    For x = 2 To 51
        Cells(y, x).Value = Int((h - l + 1) * Rnd + l)
    Next x
Next y

End Sub

２．Aファイル側に新たにコピペシートを作成し、Bのシート内容をコピーする

３．シート「コピペシート」に条件付き書式を設定する

・値の範囲（B2～AY101）を選択する

・[ホーム]-[条件付き書式]-[新しいルール]

・「数式を使用して、書式設定するセルを決定」を選択

・「次の数式を満たす場合に値を書式設定(O)」に次の値を入れる

　=B2<>Aファイル!B2

・「書式(F)...」をクリックし、着色する色を決める（今回は黄色）

・OKで決定

・Aファイルとコピペシートで値が異なるセルのみ黄色でハッチングされる

このように、特にマクロを使わずとも、２つのファイルの比較を実施することができます。

↓よろしければクリックをお願いします！

TOPページへ戻る

■社内DX案件紹介

【社内DX案件紹介】アンケートの集計-１-

【社内DX案件紹介】アンケートの集計-２-

【社内DX案件紹介】架電内容ごとの情報振り分け-1-

【社内DX案件紹介】架電内容ごとの情報振り分け-2-

【社内DX案件紹介】封入物の重さによって印刷会社を変える

【社内DX案件紹介】データの期間によってレコードを分割しファイル出力する

【社内DX案件紹介】値の入っているシートのみ印刷する

■社内DXの進め方

【社内DXの進め方】ブログの目的（会社が求めるDX）

【社内DXの進め方】社内DXの推進について

【社内DXの進め方】社内DXは具体的に何をすればよいのか？

【社内DXの進め方】なぜ今Excelか？