Home > 即効テクニック > Excel VBA > セル操作関連のテクニック > セル領域の操作−セル領域の重複部分を取得する

即効テクニック
セル操作関連のテクニック

セル領域の操作−セル領域の重複部分を取得する

(Excel 2000)
複数のセル領域の重複部分を求める必要のある場合について検討します。
以下のサンプルでは2つのセル領域が重なる範囲のセル領域をIntersectメソッドで取得しています。
●セル領域が重なる範囲の取得● 
Sub GetInterSection()

    Dim Rng1 As Range, Rng2 As Range
    Dim RngInterSection As Range

    Set Rng1 = Range("A1:D5")
    Set Rng2 = Range("C4:G11")

    Set RngInterSection = Intersect(Rng1, Rng2)

    MsgBox RngInterSection.Address

End Sub

このIntersectメソッドは、データ入力シート上の項目行を除いたデータ領域を取得する目的で、CurrentRegionとその1行分のOffset領域との重複セル範囲を求める場合などにも用いられます。
●データ領域の取得● 
Sub GetDataArea()

    Dim Rng As Range
    Set Rng = Range("A1").CurrentRegion

    Intersect(Rng, Rng.Offset(1)).Select

End Sub