Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14746 / 76734

←次へ　｜　前へ→


	【67477】三列が合致していないセルにチェック

Yoshiｍ - 10/12/8(水) 16:09 -


	引用なし

	パスワード

シート１とシート２の項目の違いに関して
大分類AAはAA同士の比較で中と小との中身が異なる状況で、比較して異なる場合のみシート１の大分類の文字の色を赤くしたいような場合・・・

シート１
大分類　中　小
AA　　 aaa　bbb
BB　　 bbb　ccc
CC　　 ccc　ddd
DD　　 ddd　eee

シート２
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

0 hits

▼

【67477】三列が合致していないセルにチェック Yoshiｍ 10/12/8(水) 16:09

≪