[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『2つのシートのセルのデータ照合』(友紀)
シートAとシートBのA列は変更がなく、シートAとシートBのB列〜E列で照合し、アンマッチがある場合はシートBの該当セルを黄色に塗りつぶしたいのですが、ご教授よろしくお願いいたします。
シートA A B C D E 1 100 東京 大阪 名古屋 福岡 2 101 東京 大阪 名古屋 沖縄 3 102 北海道 大阪 神戸 福岡 4 103 沖縄 大阪 神戸 福岡
シートB A B C D E 1 100 東京 大阪 名古屋 福岡 2 101 東京 大阪 神戸 福岡←神戸・福岡のセルを黄色 3 102 宮城 大阪 神戸 福岡←宮城のセルを黄色 4 103 沖縄 神戸 福岡←C4のセルを黄色
< 使用 Excel:Excel2010、使用 OS:Windows8 >
>シートAとシートBのB列〜E列で照合し 範囲が明確なので下記の物に訂正します。
Sub Macro2() Dim arr1, arr2 Dim i As Long, j As Long With Worksheets("シートA") arr1 = Range(.Cells(Rows.Count, "A").End(xlUp), .Cells(1, "E")) End With With Worksheets("シートB") arr2 = Range(.Cells(Rows.Count, "A").End(xlUp), .Cells(1, "E")) For i = 1 To UBound(arr1, 1) For j = 1 To UBound(arr1, 2) If Not arr1(i, j) = arr2(i, j) Then .Cells(i, j).Interior.Color = vbYellow Next j Next i End With End Sub (g) 2021/11/28(日) 21:40
A1:E4 を選択して
数式
=A1<>INDIRECT("SheetA!"&CELL("address",A1))
書式の好きなものを選択
(カルパッチョ) 2021/11/28(日) 22:12
シートBのB列からE列を選択して条件付き書式の指定の値を含むセルだけを書式設定で セルの値 次の値に等しくない =シートA!B1 として書式ボタンをクリックして塗りつぶしで黄色を設定ではどうだろうか? (ねむねむ) 2021/11/29(月) 11:41
上手くいきました(^^♪
(友紀) 2021/11/29(月) 19:57
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.