あるセルが、あるセル範囲内にあるかどうかを判定するには、ApplicationオブジェクトのIntersectメソッドを使うと便利です。Intersectメソッドは、 Intersect(範囲1, 範囲2) のようにしたとき「範囲1」と「範囲2」で共有しているセルを返します。 上図のような場合、 Sub Sample1() MsgBox Application.Intersect(Range("B6:D6"), Range("C3:C9")).Address End Sub となります。「範囲1」と「範囲2」に共有するセルがないとき、IntersectメソッドはNothingを返します。したがって、 Intersect(あるセル, あるセル範囲) の結果がNothingでなかったら、そのセルは、あるセル範囲に含まれていることになります。Nothingかどうかを判定するには If ○○ Is