|
続きで質問させていただいてもよろしいでしょうか?
Hirofumi さんからいただいたこの上のコードをまねて
列単位で繋いで以下のコードをまねて書きましたが正しい結果が得られません。
理由は何故でしょうか。教えてください。
Dim i As Long, k As Long
Dim RowEnd1 As Long
Dim RowEnd2 As Long
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Sheets(1)
RowEnd1 = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
Set Ws2 = Sheets(2)
RowEnd2 = Ws2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To RowEnd1
For k = 2 To RowEnd2
If Ws1.Cells(i, 1) & Cells(i, 2) & Cells(i, 3) = _
Ws2.Cells(k, 1) & Cells(k, 2) & Cells(k, 3) Then
Exit For
End If
Next k
If k > RowEnd2 Then
Ws1.Cells(i, 1).Interior.ColorIndex = 34
End If
Next i
|
|