[求助]VBA查找符合条件的数组元素及VBA中match语法

voodoo2

有一维字符串数组JG(500000)，要搜索到其中包含有“苏联”二字的数组元素的位置(注意：是位置，不是值)。请不要用for ...next这类慢腾腾的语句，因为需要处理的一维数组数据量非常大，远景估计搜索要超过一千万个数组元素。

好像有个match函数符合我的需要，但偶水平有限，实在弄不懂该函数的语法，比如我书写：a=match("*苏联*",JG,0)，但运行提示类型不匹配错误。

恳请高人指点指点！！

[此贴子已经被作者于2008-10-1 15:03:59编辑过]

oobird

若数组超出65536就不能用match函数。

而且你的写法也不对。

= Application.WorksheetFunction.Match("*苏联*",JG,-1)

voodoo2

QUOTE:

以下是引用oobird在2008-10-1 16:17:00的发言：

若数组超出65536就不能用match函数。

而且你的写法也不对。

= Application.WorksheetFunction.Match("*苏联*",JG,-1)

嘿嘿，oo鸟版主您好啊

上次我的一个难题就是您指教滴。

这么说，match函数只能用于搜索表格，而不能用于搜索数组变量了？

那用于搜索数组的VBA该如何编写呢（不用for...next这类循坏），注意：我说的数组是传统意义编程中的数组，不是excel表格数组。

xiangchendub

QUOTE:

以下是引用voodoo2在2008-10-1 14:36:00的发言：

有一维字符串数组JG(500000)，要搜索到其中包含有“苏联”二字的数组元素的位置(注意：是位置，不是值)。请不要用for ...next这类慢腾腾的语句，因为需要处理的一维数组数据量非常大，远景估计搜索要超过一千万个数组元素。

好像有个match函数符合我的需要，但偶水平有限，实在弄不懂该函数的语法，比如我书写：a=match("*苏联*",JG,0)，但运行提示类型不匹配错误。

恳请高人指点指点！！

楼主你怎末知道for...next是慢腾腾的？？而match 函数就是快嗖嗖的？

要想搜索快，sort 是王道。

HHAAMM

比循环是快是慢不知道

Sub 找苏联()
arr = Sheet1.Range("a1:a65536")
arr = Filter(Application.Transpose(arr), "苏联")
[c1].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub

HHAAMM

哦，是找位置，弄错了[em04]

HHAAMM

用循环吧，一点不慢

Sub yy()
Dim x&
Dim JG(500000)
For x = 0 To 500000
JG(x) = x
Next

For x = 0 To 500000
If JG(x) = 11111 Then MsgBox x: Exit Sub
Next
End Sub

调用工作表函数并不快的

oobird

QUOTE:

以下是引用voodoo2在2008-10-1 16:30:00的发言：

嘿嘿，oo鸟版主您好啊

上次我的一个难题就是您指教滴。

这么说，match函数只能用于搜索表格，而不能用于搜索数组变量了？

那用于搜索数组的VBA该如何编写呢（不用for...next这类循坏），注意：我说的数组是传统意义编程中的数组，不是excel表格数组。

我没说match函数只能用于搜索表格，上面例子就是指在数组搜索的。

用match函数也是要循环，只是不用自己写，你看不到它循环而已，而且已定死了65536个数以内，运行速度应该与自己写的循环差不多的。

voodoo2

QUOTE:

以下是引用oobird在2008-10-1 19:37:00的发言：

我没说match函数只能用于搜索表格，上面例子就是指在数组搜索的。

用match函数也是要循环，只是不用自己写，你看不到它循环而已，而且已定死了65536个数以内，运行速度应该与自己写的循环差不多的。

谢谢楼上各位的指教

gjj136138139

数组里有没有类似的find方法之类的。如果数组元素是有序的话，能不能用类似二分查找法来找到对应元素出现的位置呢？我的意思是尽量避免遍历数组。