ExcelVBAで複数のセル範囲の重なる範囲を取得する

    Dim Rng1 As Range, Rng2 As Range
    Dim Target As Range

    Set Rng1 = Range("A1:D5")
    Set Rng2 = Range("C4:E10")
    Set Target = Intersect(Rng1, Rng2)

    MsgBox Target.Address

ネタ元

• http://www.moug.net/tech/exvba/0050074.html
• http://officetanaka.net/excel/vba/tips/tips118.htm