Question

vba 快速的检索出数组中包含某个字符串

如何可以检索出这个字符串在数组中的索引号，请高手解答

Answer 1

楼主，这个应该调用什么api能很快搞定，不过我一般用vba主要处理数据啥的，我大概试了下，用下面的方法也可行的。
sub
test()
dim
arr()
as
string,
brr()
as
string
dim
crr()
as
string
dim
i
as
long,
k
as
long
'随便定义了2个数据，按楼主说的，brr的所有元素在arr都存在
arr
=
split("a,b,c,d,e,f,g",
",")
brr
=
split("b,d,g",
",")
'用crr来存取
arr-brr的元素，crr的大小如下
redim
crr(ubound(arr)
-
ubound(brr)
-
1)
'开整，遍历arr，把每个brr中没有的放到crr中就好了
for
i
=
0
to
ubound(arr)
if
ubound(filter(brr,
arr(i)))
<>
0
then
crr(k)
=
arr(i)
k
=
k
+
1
end
if
next
i
end
sub
我试过了，可以滴。方法思路就是这个啦

Answer 2

引用swx1995的回答：
Dim i
for i = lbound(arr) to ubound(arr)
if instr(1,arr(i),"测试字符串")>0 then
msgbox i
exit for
end if
next

（arr为数组）

使用VBA.Filter可以提高效率
arr = Array("a","b","c")
s = VBA.Filter(arr,"d")
if UBound(s) < 0 Then
Debug.Print "Not exists"

Answer 3

Dim i
for i = lbound(arr) to ubound(arr)
if instr(1,arr(i),"测试字符串")>0 then
msgbox i
exit for
end if
next

（arr为数组）