[[20211128211419]] 『2つのシートのセルのデータ照合』(友紀) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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.