2つの選択セル範囲同士の突合したい

Question

作業中のシートA・照会先のシートBがあり、それぞれinputboxで任意の範囲選択(a・b)をしています。
aではA1:A5、bではB1:B5を選択し、A1=B1,A2=B2...のようにそれぞれの上から順に突合してゆき、値が相違していたらシートAのセルに色をつけたいです。

2つの範囲選択まではできたのですが、上から順に一緒にひとつづつ進めて突合するところでつまづいてしまいました。

お力添え頂ければ幸いです。
よろしくお願いします。

Sub 突合()
Dim cellRange1 As Range
Dim cellRange2 As Range

Set cellRange1=Application.InputBox(“範囲選択”,”指定”,Type:=8)
Set cellRange2=Application.InputBox(“範囲選択”,”指定”,Type:=8)




End Sub

Comments

[hatena19]

> 2つの範囲選択まではできたのですが、

できたところまでのコードを提示してください。

[tasukete----]

Dim As Range
Dim cellRange2 As Range

Set cellRange1=Application.InputBox(“範囲選択”,”指定”,Type:=8)
Set cellRange2=Application.InputBox(“範囲選択”,”指定”,Type:=8)

です。
ここからお願いします。

[hatena19]

質問は編集できるので、質問の方に追記してください。
そのさいは、コードブロックで囲んでください。コードブロックに関しては下記を参考に。
https://teratail.com/help/question-tips#questionTips3-5-1

[tasukete----]

ご教授ありがとうございます！

Answer 1

下記でどうでしょう。

Sub 突合()
    Dim cellRange1 As Range
    Dim cellRange2 As Range

    Set cellRange1 = Application.InputBox("範囲選択", "指定", Type:=8)
    Set cellRange2 = Application.InputBox("範囲選択", "指定", Type:=8)

    If cellRange1.Cells.Count <> cellRange2.Cells.Count Then
        MsgBox "選択範囲のサイズが違います。"
        Exit Sub
    End If

    cellRange1.Interior.ColorIndex = 0 '背景色クリア
    Dim i As Long
    For i = 1 To cellRange1.Cells.Count
        If cellRange1.Cells(i) <> cellRange2.Cells(i).Value Then
            cellRange1.Cells(i).Interior.ColorIndex = 3 '背景色赤
        End If
    Next
End Sub

Comments

[tasukete----]

すごい！
ありがとうございました！