标识有效范围而不是预定范围

我正在尝试查找并返回单词“溢出”出现在Excel中的活动范围内的次数。如何在活动的选定范围内search而不是预定义的范围（如A1：A50

Dim MyCount As Long MyCount = Application.Countif(Range("A1:A50"),"Oveflow") MsgBox "I have completed my search and found " & MyCount & " cell(s)." 

有没有可能在活动的选定范围内执行countif？

Answer 1

您可以简单地在VBA中使用“ Selection来引用您实际select的范围：

 Dim MyCount As Long MyCount = Application.Countif(Selection,"Oveflow") MsgBox "I have completed my search and found " & MyCount & " cell(s)." 

Answer 2

Selection属性是当前select中的单元格或单元格范围。

 MyCount = Application.Countif(Selection,"Oveflow") 

这将返回包含Oveflow ^[sic]的当前选定单元格的计数。

---

_{更多使用Application.Selection属性（而不是Select）的示例可以在如何避免在Excel VBAmacros中使用Select中find} 。