Question

excel vba 查找字符并输出字符

我在宏内建立了一个模块

Sub Macro1()
a = Range("A1").Find("ccc")
If a = Range("A1").Find("ccc") Then
Range("B1").Cells = "ddd"
End If
End Sub

如果是这样是可以运行的。只要A1单元格内含有“ccc”字符，B1单元格内就能输出"ddd"

但是问题是 我把“ccc”换成1122，就不能执行，报错：Run-time error'91':
Object variable or with block variable not set

问题出在 a = Range("A1").Find("111") 这句里。
请问我该怎么修改呢?

多谢多谢

Answer 1

Sub Macro1()
Set a = Range("A1").Find("ccc")
If Not a Is Nothing Then
Range("B1").Cells = "ddd"
End If
End Sub

Answer 2

就一句语句就可以了
Sub Macro1()
if [a1]="ccc" then [b1]="ddd"
end Sub