我试图使用vba中可见单元格上的CountIf函数来计算所有可见单元格的yes，共有25个，但我得到了错误
无法获取
工作表函数类的CountIf属性
它突出显示了returnCount，不确定myrange是否也有错误，如有任何帮助，将不胜感激
设置我的范围=_
范围（“D4”，范围（“D4”）。结束（xlDown））。特殊单元格（XLCELLTYPE可见）
returnCount=工作表函数.CountIf（myrange，“是”）
COUNTIF不喜欢非连续或多范围的范围。因此，迭代范围内的区域
将myrange变暗为范围
暗ar范围
设置myrange=_
范围（“D4”，范围（“D4”）。结束（xlDown））。特殊单元格（XLCELLTYPE可见）
对于myrange.Areas中的每个ar
returncount=returncount+Application.WorksheetFunction.CountIf（ar，“是”）
下一个ar