[vba] 두 영역에서 교차(중첩)하는 셀... > vb6.0/vba

Set rngs = Application.Intersect(Range([D6], [D38]), Selection) '// D6 ~ D38 셀중 선택한 셀이랑 포함되는셀
If rngs Is Nothing Then '// 포함되지 않으면
    MsgBox "없습니다."
Else
    If rngs.Count > 1 Then  '// 1개 이상일경우
        MsgBox "너무많은 셀을 선택하였습니다."
    Else
        MsgBox rngs.Address(0, 0)   '// 셀주소를 메세지로...
    End If
End If