「A1,B2:C2,D4:E6」のような複数領域をもつRangeオブジェクトを各セル範囲ごとに取得するにはAreasプロパティを使用します。For Each 各セル範囲 In 親Range.Areasというコードでエリアごとに個々に取得できます。