|
シート1とシート2の項目の違いに関して
大分類AAはAA同士の比較で中と小との中身が異なる状況で、比較して異なる場合のみシート1の大分類の文字の色を赤くしたいような場合・・・
シート1
大分類 中 小
AA aaa bbb
BB bbb ccc
CC ccc ddd
DD ddd eee
シート2
BB bab ccc
AA aaa bbb
DD ddd ege
CC ccc ddd
コードを書いたのですが、トラぶっています、訂正に関してアドバイスお願いします。
Sub test()
Dim i As Long, k As Long
Dim R1, R2
With Sheets(2)
For i = 2 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For k = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Set R1 = Sheets(1).Cells(i, 1) & Sheets(1).Cells(i, 2) & Sheets(1).Cells(i, 3)
Set R2 = .Cells(k, 1) & .Cells(k, 2) & .Cells(k, 3)
If R1 <> R2 Then
Cells(i, 1).Interior.ColorIndex = 3
End If
Next
Next
End With
End Sub
|
|