読者です 読者をやめる 読者になる 読者になる

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

ネタ元