好吧问答库 > 这个VBA Search instr 都试了，哪里有问题，为什么c总等于0？应该怎么写，先谢谢啦！

这个VBA Search instr 都试了，哪里有问题，为什么c总等于0？应该怎么写，先谢谢啦！

Sub test() Dim TF, Add As StringAdd = Trim(Right(Range("a" & L), Len(Range("a" & L)) - InStr((Len(Range("a" & L).Value) / 2), Range("a" & L), " ")))For Q = 2 To 881TF = Sheets("RG").Range("a" & Q).Valuec = Application.IfError(Appliction.If(Application.Search(TF, Add) > 0, "1", "0"), "")If c > 0 Then。。。

2026年09月28日 01:40

有1个网友回答

网友（1）：

'把c = Application.IfError(Appliction.If(Application.Search(TF, Add) > 0, "1", "0"), "")改为
If Application.WorksheetFunction.Find(Add, TF) > 0 Then
    c = "1"
Else
    c = "0"
End If

这个VBA Search instr 都试了，哪里有问题，为什么c总等于0？ 应该怎么写，先谢谢啦！

这个VBA Search instr 都试了，哪里有问题，为什么c总等于0？应该怎么写，先谢谢啦！