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

Question

数日前に質問し、みなさまのご教授で無事に解決したのですが、
再度行き詰ってしまいました。
今一度みなさまのお力添えを頂ければと思い質問します。

前回質問
https://teratail.com/questions/366241

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

成果物
従業員IDを元に、職員データシートと異なるデータがある場合や存在しないデータがある場合は比較シートの異なるデータや存在しないデータのセルに色付けしたい。
（追加成果物）
従業員IDが空白の場合でもその行のデータに色付けしたい。

下記コードは前回質問の際に回答を頂いたコードになります。

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

[meg_]

> 再度行き詰ってしまいました。
今行き詰っているのは何でしょうか？（どこまで実装できていてどこで詰まっているのか？）

[hatena19]

そのコードで希望の結果になっていると思いますが、どこがご希望と異なりますか。

コードの意味を理解していますか。（理解しようとしてますか。）

[hatena19]

ひょっとすると、比較シートの最終列の 従業員ID が空欄の時に背景色が変わらないので、それを修正したいということでしょうか。（途中の従業員ID が空欄の時は変わります。）

Answer 1

比較シートの途中行の従業員ID が空欄の時は変わりますが、最終行の時は変わらないので、それを修正したいということだとして、

原因は、
For i = 2 To ws2.Range("K" & ws2.Rows.Count).End(xlUp).Row
でK列の最終行までをループしているからですね。

ここを、下記のように A～I列の表部分の行数分ループするように書き換えればいいでしょう。

For i = 2 To ws2.Range("A1").CurrentRegion.Rows.Count

Comments

[jjyso]

ご教授いただいたコードに修正したら思うような動きになりました。
もっとコードについて理解をしていかないといけないと思いました。
ありがとうございました。