FOR+If的查找语句

river4403

求助一下各位大神，看看以下语句是否写错了？

以下语句是查找第一列的单元格中“[Script]”这个关键字在哪个位置。
运行时，如果第一列没有“[Script]”的时候，a = 10，但是如果有“[Script]”的时候，a也是等于10,麻烦请教一下是哪里出问题了，谢谢！

   Dim a, i
   For i = 1 To 1000
       If Cells(i, 1).Value = "[Script]" Then
          a = i
       Else
          a = 10
          Exit For
       End If
   Next i

shiruiqiang

a = i
exit for
不要再循环下去了

小凡、、、

a = Application.Match("[Script]", Range("a:a"), 0)
If Not IsNumeric(a) Then a = 10

shiruiqiang

按照源代码，除非第一列每一行是“[Script]“，a=最后一行，否则是a=10
而且，第一行不是“[Script]“，直接赋值a=10后退出了，不去循环下一行了

river4403

shiruiqiang 发表于 2024-7-2 19:03
a = i
exit for
不要再循环下去了

感谢感谢，明白了！

river4403

小凡、、、 发表于 2024-7-2 19:06
a = Application.Match("[Script]", Range("a:a"), 0)
If Not IsNumeric(a) Then a = 10

谢谢！这个也好用！