質問者が納得御質問文に忠実に2つのセル範囲を指定してから実行するように作成してみました。
(ただし、一致しない部分の色は xlColorIndexNone とするよう、勝手に処理を加えています。)
参考になさってみてください。
Sub Sample()
Dim R As Range
If Selection.Areas.Count <> 2 Then
MsgBox ("2つの範囲を選択してから実行してください")
Exit Sub
End If
If Selection....
4797日前view45