複数のセル領域の重複部分を求める必要のある場合について検討します。

以下のサンプルでは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