VBA、二箇所をドラッグ選択し、範囲内を1セルずつ比較するには？

質問

ＶＢＡにて、同じ縦×横セル数の範囲を二箇所ドラッグで選択し、その範囲内を１マスずつてらし合わせていくにはどうすれば良いのでしょうか。
(例えば、B1～D3をドラッグ選択、続いてH7～J9を選択。実行ボタンを押すとB1とH7,B2とH8,B3とH9,C1とI7・・・・をと順次比較するといった感じに)

比較する部分はifを使い、二つの値が＝であるかないかで判断しようと思っているのですが(ここは自力でできます)、そこまでの検討が付きません、selectionはひとつしか使えないし、？？？
ご助言いただければ幸いです。

回答No.1

mitarashi · ベストアンサー

B1～D3をドラッグ選択、続いてctrlを押しながらH7～J9を選択した状態で、
下記コードを実行すれば良いでしょう。比較部分はご自分でお願いします。
Sub test()
Dim targetRange(2) As Range
Dim i As Long

For i = 1 To 2
Set targetRange(i) = Selection.Areas(i)
Next i
If targetRange(1).Cells.Count <> targetRange(2).Cells.Count Then Exit Sub
'以下、二つの範囲の各セルを比較する操作を記述

End Sub

お礼

大変参考になりました。
丁寧な回答ありがとうございました。