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

& j);*":":AG8 .;;NEWAD"AG"C",以上第三段不能正常工作. 单元格数据,删除多少见FOR循环。 End If 帮忙.ClearContents '&".CountA(Range(".; & "判断单元格是否包含 NEWAD 字符:AG9;删除 C8.。 Range(", C9; & j & "AQ"For i = 8 To 20 j = i If Application。就是判断是否单元格包含 NEWAD字符这段; & i)) = " Then '

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

温馨提示:内容为网友见解,仅供参考
第1个回答  2019-09-22

举例说明,有两个单元格:a1:存放abc
a2:为空白。设计一个vba程序,判定a1和a2是否为空白,并将结果放在b1(放a1的结果)和b2(放a2的结果)
代码如下
Sub
判定()
Dim
m_s
As
String
Dim
m_t
As
Integer
Dim
结果
As
String
Dim
I
As
Integer
For
I
=
1
To
2
m_s
=
Cells(I,
1)
'读取a列的值
m_t
=
Len(m_s)
If
m_t
>
0
Then
 
 结果
=
"非空值"
Else
 
 结果
=
"空值"
End
If
Cells(I,
2)
=
结果
'结果放到b列
Next
End
Sub
执行代码后结果如图:

相似回答
大家正在搜