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

Posted 2023-04-04

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就是不包含。

参考技术A

VBA判断单元格是否包含某字符使用InStr函数，与工作表的FIND函数类似。

InStr函数的帮助信息如下：

程序中判断是否包含，可以这样写VBA代码：

If InStr("111a222", "a")=0 Then MsgBox "不包含" Else MsgBox "包含"

执行示例：

参考技术B

创建一张空白的表格。

在“a1”单元格输入“你好朋友”。

接着我们选择“B1”单元格。

输入查找函数“=FIND("朋友",a1)”，查找a1中“朋友”这个字符所在位置。

回车后我们发现“B1”的值是“3”，“朋友”这个在a1中的第三个字符位置，证明a1包含朋友这个字符。


把函数改为“=FIND("哈哈",a1)”，查找“哈哈”在a1中的位置。

回车后我们发现值是“#VALUE!”所以不存在“哈哈”这个字符。

单元格是表格中行与列的交叉部分，它是组成表格的最小单位，可拆分或者合并。

单个数据的输入和修改都是在单元格中进行的，单元格属于Microsoft Excel /WPS表格中使用的术语。

单元格按所在的行列位置来命名，它有A1引用样式、R1C1引用样式和三维引用样式三种引用样式。

单元格按所在的行列位置来命名，例如：地址“B5”指的是“B”列与第5行交叉位置上的单元格。

可以利用OFFICE软件的EXCEL来编辑或者是GOOGLE的我的文档来创建或编辑。

参考技术C If Range("A1").Find("abc") <> Nothing Then
MsgBox "找到了"
Else
MsgBox "没找到"
End If 参考技术D if instr(cells(1,1),"abc")>0 then
msgbox "A1单元格包含abc"
ELSE
msgbox "A1单元格不包含abc"
end if

vba 判断一个单元格中是不是包含某个字符串 有则执行后面的语句

例如 判断单元格中是否含有 “吉林” 这个词 ，含有则执行我的程序后面的语句

1、打开Excel，按下Alt+F11，打开VBA编辑界面，双击左侧要双击执行代码的工作表，弹出右侧代码编辑区。

2、选择“Worksheet”中的“BeforeDoubleClick”事件。

3、首先，利用if函数通过判断对象的行列来执行相应代码的单元格。

4、通过设置Cancel=True取消原来的双击编辑单元格的效果，通过Call命令执行指定的宏。

5、编写好要执行的宏。

6、回到Excel中，双击代码中执行的单元格，就会执行Call后面的宏程序。

参考技术A

1、首先新建一个控制台应用程序。

2、编写键盘录入事件，用于用户输入两个字符串，程序接收到字符串之后再做比较。

3、可以通过Contains函数验证。

4、然后可以通过IndexOf函数验证。

5、也可以通过正则表达式验证。

6、最后验证效果如下。

参考技术B 用instr函数判断是否包含指定字符，>0表示"含有"
SearchString = "XXpXXpXXPXXP" 被搜索的字符串
SearchChar = "P" 要查找字符串 "P"
MyPos = InStr(SearchString, SearchChar) 返回9
MyPos = InStr(1, SearchString, "W") 返回 0本回答被提问者采纳 参考技术C 写了个例子 Sub a() Set c = Range("a1").Find("吉林", LookIn:=xlValues) If Not c Is Nothing then MsgBox "1" End If End Sub 参考技术D Dim iFind As Integer
Dim MyString As Integer
MyString = Range("A1").Value '假设你的单元格为A1
iFind = InStr(1, MyString, "吉林", vbTextCompare)
If iFind > 0 Then
......
End If