检查是否select了多个单元格

我想知道如何检查一个范围内是否有多个单元格被选中?

我有3个单元我想检查范围是“A:B”,也是“D”,即时通讯尝试此代码,但它不工作。

If 3 - CountA(range) < 1 Then 

我怎样才能做到这一点?

这样的select范围内的东西:

 If 3-Selection.Cells.Count < 1 then 

或者,如果有可能你会select真正的很多细胞使用这一个:

 If 3-Selection.Cells.Countlarge < 1 Then 

我想你想尝试一下这方面的内容

 Dim rng1 As Range Set rng1 = Range("A1:B1,D1") MsgBox 3 - rng1.Cells.Count