【ExcelVBA】2つのファイルを比較してどのセルの値が異なっているか調べる方法

VBAを使用するとファイルを比較して、どこのセルが異なっているかを調べることができます。

この記事を読むことで、次の動画のようなことができるようになります。

このように、比較対象のファイルのSheet1と異なる値のセルの背景色が赤色になります。

ではさっそくいってみましょう。

今回行うこと
異なる値のセルに色を塗るプログラム
解説
実行結果
さいごに

今回行うこと

２つのファイルのSheet1を比較して、異なる値のセルを赤色にします。以下の例では赤丸の部分の値が異なっています。

異なる値のセルに色を塗るプログラム

Sub searchDiff()
    
    ' 比較対象のファイルを選択する
    targetFilePath = Application.GetOpenFilename()
    
    ' ファイルが選択されなかった場合は処理を終了する
    If targetFilePath = False Then Exit Sub
    
    ' 選択したファイルを開く
    Set targetFile = Workbooks.Open(targetFilePath)
    
    ' 選択したファイルは非表示とする
    Windows(targetFile.Name).Visible = False
    
    ' 選択したファイルの１番目のシートを変数に入れる
    Set targetSheet = targetFile.Worksheets(1)
    
    ' 1行目から10行まで繰り返し
    For i = 1 To 10
        ' 1列目からJ列まで繰り返し
        For j = 1 To 10
            ' 値が異なる場合
            If Cells(i, j).Value <> targetSheet.Cells(i, j).Value Then
                ' セルを赤色にする
                Cells(i, j).Interior.Color = vbRed
            End If
        Next
    
    Next
    
    ' 保存確認しない状態にする
    Application.DisplayAlerts = False
    ' 比較対象のファイルを閉じる
    targetFile.Close
    ' 保存確認する状態に戻す
    Application.DisplayAlerts = True
    
End Sub

解説

ではこのプログラムを解説していきます。

まずはApplication.GetOpenFilename()でユーザに比較対象のファイルを選択させています。この関数により[ファイルを開く]ダイアログボックスが表示されます。ファイルが選択されなかった場合は処理を終了します。

GetOpenFilenameメソッド

GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

FileFilter	ユーザが選択できるファイルの種類を指定します。（複数指定可能、省略可能）【例】FileFilter:=”Excelファイル,.xls,Csvファイル,*.csv”
FilterIndex	FileFilterで指定したもののうち、どれをデフォルトにするか指定します。【例】FilterIndex:=2 の場合、上の例でCsvファイル(*.csv)がデフォルトになります。
Title	ダイアログボックスのタイトルです。省略すると「ファイルを開く」になります。
ButtonText	Macintoshでのみ指定します。筆者は試したことがありません。
MultiSelect	ファイルを複数選択する場合はTrueを設定します。複数のファイルをまとめて処理する場合に使用します。【例】MultiSelect:=True