判斷一個單元格區域是否包含另一個單元格區域，可以使用一個簡單的VBA自定義函式來實現。

程式程式碼如下：

Public Function blnRange(rng1 As Range, rng2 As Range) As Boolean    Dim rngInterRange As Range    Set rngInterRange = Application.Intersect(rng1, rng2)    blnRange= Not rngInterRange Is Nothing    Set rngInterRange = NothingEnd Function

程式碼使用了Application物件的Intersect方法，如果rng1代表的區域在rng2中，則返回True，否則返回False。

例如，如果當前選擇的單元格處於列A中，則將設定其背景色為黃色，否則設定其背景色為藍色，程式碼如下：

Sub test()    If blnRange(Range(Selection.Address), Columns("A:A")) Then       Selection.Interior.Color = vbYellow     Else       Selection.Interior.Color = vbBlue     End IfEnd Sub