VBA 判断单元格是否包含字符 EXCEL
j = i
If Application.CountA(Range("AQ" & i)) = "NEWAD"&"*" Then '判断单元格是否包含 NEWAD 字符。
Range("C" & j & ":" & "AG" & j).ClearContents '删除 C8:AG8 , C9:AG9.... 单元格数据，删除多少见FOR循环。
End If
帮忙，以上第三段不能正常工作。就是判断是否单元格包含 NEWAD字符这段。
谢谢拉～～～～ 展开
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就是不包含。
改一下
if Application.WorksheetFunction.Countif(Range("AQ" & i),"*NEWAD*")=1 Then
试试
或者
if Range("AQ" & i) Like "*NEWAD*" Then
你原来 用 application 后边 不能直接用 那个CountA 这个是工作表 函数 必须加在 WorksheetFunction 之后……再有CountA 也不是 计算 含不含某个字符串的 是计算区域单元格不为空的个数的 结果是一个 数值 数值 不可能等于 字符……所以你的问题 就来了……
举例说明，有两个单元格：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
执行代码后结果如图：
If Instr(Cells(i,"AQ"), "NEWAD")>0 Then
Range("C" & i & ":AG" & i).ClearContents
End If
Next
