Question

EXCEL VBA判断单元格是否包含某字符

Answer 1

1.首先，看一下原始数据。

A列是公司名称，我们要在B列判断A列的文本是不是包含“北京”这两个字。

2.双击B2，输入公式：

=FIND("北京",A2)

B2单元格返回1，表示“北京”两个字在A2的文本出现的位置是从第一个字符开始。

3.下拉B2的公式，返回结果如下图所示。

其中返回的错误值是表示单元格文本中不包含“北京”。

4.单元格返回错误值不太好看，我们想办法将它屏蔽。

首先，用ISNUMBER函数判断返回结果是不是数字，如果不是数字就返回FALSE。把B2公式修改成：

=ISNUMBER(FIND("北京",A2))

5.然后用IF函数将TRUE转换成“Y”，FALSE转换成空显示。修改公式为：

=IF(ISNUMBER(FIND("北京",A2)),"Y","")

6.类似，可以用SEARCH()函数来实现FIND()函数实现的功能。

知识点补充：

SEARCH()函数和FIND()函数差异在通配符的使用和大小写的区分，有兴趣的读者可以自己在单元格中测试一下两个函数的差异。

7.在其他函数中，比如说VLOOKUP()和COUNTIF()等函数中使用通配符，也可以达到“包含”的目的。如下图，用COUNTIF()函数来识别是否包含“北京”文本，如果返回1就是包含，返回0就是不包含。

Answer 2

sub finstr() '这个可以检测sheet1里面有数据的区域里是否包含你要查找的字符,如果有会依次提示
dim rng as range
dim findstr as string
findstr="某字符" '这个某字符你替换成你需要的字符即可
For Each rng In Sheet1.UsedRange'注意这里的检测sheet1里面的数据区域 如果是其它sheet需改
If rng LIKE "*" & findstr & "*" Then
msgbox "单元格" & rng.address & "包含" & findstr
End If
Next
end sub

Answer 3

if instr(cells(1,1),"abc")>0 then
msgbox "A1单元格包含abc"
ELSE
msgbox "A1单元格不包含abc"
end if

Answer 4

函数Instr