全シート内の差分比較とそのセル色塗りつぶしマクロ

質問

Excelファイルデータの差分比較とそのセル塗りつぶしのマクロを作成したいのですが、今の自分には、下記のマクロでとどまっており、
マクロを実行するファイル内シートにデータをコピーしたり、
マクロ内でその都度、シート名の記載の変更、差分比較データ範囲の変更が必要になり、大変不便で困っております。

やりたい事は、マクロでユーザがExcelのファイルを選択出来て、
そのファイルの中の全シートのデータについて、差分比較とそのそのセルの塗りつぶしをして、塗りつぶしをファイルへ反映させて保存させることです。
どうか、お分かりの方がいらっしゃいましたら、ご教示をお願い出来ますと大変助かります。

各シート内のデータは、列、行共にほぼ同じフォーマットで値が入っています。
それらのシート内のデータで修正した箇所を見つける為、差分比較がしたいです。
例えば、シートが3つの場合は、
1つ目のシートは修正前のデータ、
2つ目のシート内は1つ目のシートの値を部分的に修正したものです。
3つ目のシート内のデータも、1つ目のデータの値を更に再修正したものです。
この3つのシート内のデータを差分比較したいです。
シートの数は、選択したファイルによって異なります。

Sub TEST1()

Dim s1, s2 As Worksheet 'Worksheetsオブジェクト用
Set s1 = Worksheets("修正前S装置検索システム") '比較元シート名
Set s2 = Worksheets("修正後装置検索システム") '比較先シート名

Dim arr1 As Variant, arr2 As Variant

arr1 = s1.Range("$A$2:$W$548").Value
arr2 = s2.Range("$A$2:$W$548").Value

For i = 1 To UBound(arr1, 1)
For j = 1 To UBound(arr1, 2)
If arr1(i, j) <> arr2(i, j) Then
'塗りつぶし処理
s1.Cells(i + 1, j).Interior.Color = RGB(255, 0, 0)
s2.Cells(i + 1, j).Interior.Color = RGB(102, 255, 51)
End If
Next
Next

End Sub

回答No.5

SI299792

・ファイルをユーザー選択
・範囲の自動指定
ですか。
Sheet1とSheet2の比較、Sheet1とSheet3の比較…（シート名が変わってもいい）
Sheet2とSheet3の比較は行わない。

保存は、上書き保存かファイル名を変更して保存か解りません。安全の為ファイル名を変更して保存にしました。（後ろに「色付」をつける）
Sheet1の色付けは、解りやすいように、シートによって色を変えています。但し、１セルに複数色はつけれないので、複数シートで違う場合は後優先です。
Option Explicit
'
Sub Macro1()
　　Dim File As Variant
　　Dim SheetNo As Integer
　　Dim Cell1 As Range
　　Dim Cell2 As Range
'
　　File = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
'
　　If File = False Then
　　　　End
　　End If
　　Application.ScreenUpdating = False
　　Set File = Workbooks.Open(File, False)
'
　　For SheetNo = 2 To Sheets.Count
'
　　　　For Each Cell1 In Sheets(1).UsedRange
　　　　　　Set Cell2 = Sheets(SheetNo).Range(Cell1.Address)
'
　　　　　　If Cell1 <> Cell2 Then
　　　　　　　　Cell1.Interior.ColorIndex = SheetNo + 1
　　　　　　　　Cell2.Interior.Color = RGB(102, 255, 51)
　　　　　　End If
　　　　Next Cell1
　　Next SheetNo
　　SheetNo = InStrRev(File.FullName, ".") - 1
　　File.SaveAs Left(File.FullName, SheetNo) & "色付"
　　File.Close
　　MsgBox "処理終了"
End Sub

色によってはSheet1のセルは醜いです。補正するプログラムもあります。必要なら変身して下さい。

補足

早速のご教示ありがとうございました。とても便利だと思います。
『Sheet1とSheet2の比較、Sheet1とSheet3の比較、Sheet2とSheet3の比較は行わない。』条件でのチェックも必要になりますので、色々なテストデータのパターンで試させて頂きます。単純にやりたい事をお願いしてしまいましたが、データチェックは奥が深い事がわかりました。
1点ご教示頂きたい事があります。『補正するプログラムもあります。必要なら変身して下さい。』ですが、具体的にはどのようにするのでしょうか？　私のような素人でも出来る事なのでしょうか？