シート別のデータを比較し、異なるデータの場合セルに色付けしたい

Question

前提

業務の一環で、マクロを用いて職員データ管理を行うのですが、
検索をしてもなかなかヒットせず、
みなさまにお力添えを頂ければと思い質問します。

・職員データシートと比較シートの二つのシートを比較
・各表の列は同数で、行は異なる
・従業員IDでデータを管理している

成果物
従業員IDを元に、職員データシートと異なるデータがある場合や存在しないデータがある場合は比較シートの異なるデータや存在しないデータのセルにいろづけした。
イメージは下記の図のとおりとなります。

配置での比較の参考ページは見つかるのですが、
従業員IDを照合し、そのデータを比較するなどというものが見つかりませんでした。
参考になるページだけでも構いませんので、
どうかご教授お願いいたします。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = Worksheets("職員データ")
    Set ws2 = Worksheets("比較")
    
    Dim i, j, r, c
    For i = 2 To ws2.Range("K" & ws2.Rows.Count).End(xlUp).Row
        If WorksheetFunction.CountIf(ws1.Range("K:K"), ws2.Range("K" & i)) > 0 Then
            r = WorksheetFunction.Match(ws2.Range("K" & i), ws1.Range("K:K"), 0)
            For c = 1 To 13
                If ws1.Cells(r, c).Value <> ws2.Cells(i, c) Then
                    ws2.Cells(i, c).Interior.Color = vbYellow
                End If
            Next
        Else
            For c = 1 To 13
                If c <> 10 And c <> 12 Then
                    ws2.Cells(i, c).Interior.Color = vbYellow
                End If
            Next
        End If
    Next
End Sub

Comments

[jjyso]

早速の回答ありがとうございます。
大変助かりました。