如何检查单元格区域内是否存在某值

zhangdsh

除了用countif函数统计结果是否为0，还有什么更好的方法（VBA中使用），坐等。。。急需。。。

Tq-laoyu

假设要在("a1:e10")这个区域内找是否存在数据 3 ，代码如下


Sub a()
Set c = Range("a1:e10").Find(3, LookIn:=xlValues)
If Not c Is Nothing Then MsgBox "数据存在"
End Sub

zhangdsh

非常感谢，前段时间刚看到，刚要用的时候就是想不出来，，，，呵呵

lrlxxqxa

如果要找的值不是3，而是若干个值，且和原区域内单元格不完全相等，是包含的关系，用什么语句解决呢？

zhangdsh

在区域内查找，用遍历的方式再like比较就不如find了

zhangdsh

如果是比较多个值的话，可以用countifs函数，这是一种解决方法，有没有效率更高的就不得而知了。
另外，find函数有一个lookat选项，可以设为xlPart和xlWhole两个变量，前者只需搜索的字符串是单元格内容的字串即可，后者必须完全和单元格内容相同。。。可以查看帮助研究一下

Tq-laoyu

原帖由 lrlxxqxa 于 2010-6-9 16:17 发表
如果要找的值不是3，而是若干个值，且和原区域内单元格不完全相等，是包含的关系，用什么语句解决呢？

能说具体点吗？

cgzn

比如说要查找[a1]是否包含ds

可以用：

[a1] like “*ds*"

如果包含，返回true，反之返回false

cgzn

如果完全相等，就不要用通配符*

Zamyi

Range.Find支持通配符，如下匹配“地下室”而不匹配“我的地下室”
Set r = Range("a1:e10").Find("地*下*", , , 1)
If Not r Is Nothing Then MsgBox r.Address(0, 0)

[ 本帖最后由 Zamyi 于 2010-6-10 11:31 编辑 ]