怎样用vba读取字符串数组并将符合条件的元素存储到另一个动态数组中去?

Question

比如说是该元素的字符串中包含特定的字符的话就将该元素存到一个动态数组中去.(急...)
要找的字符串是其他模块中传过来的，先不管是什么字符串，我想知道怎么判断一个*.xls中是否含有某个字符串，有这样的函数可以调用吗？

Answer 1

既然你的题目比较抽象，我也只能给出一个简单的例子。
Dim myStr1(50) as String, myStr2() as String
Dim i,n as Integer

myStr1为字符串数组，myStr2为动态数组。
用for循环判断字符串数组中的各个元素是否包含特定的字符，数组元素下标从0开始。

For i = 1 To 50
判断 myStr1(i-1) 是否包含特定的字符
If 包含特定的字符
n = n + 1
ReDim myStr2(n) '给动态数组重定义一个实际的大小
myStr2(n-1) = myStr1(i-1) '存到动态数组里去
End If
Next i

其中，用InStr函数判断是否包含特定字符。
一个简单形式：InStr(string1, string2)
在string1里查找string2，如果没找到，返回0，否则返回string2在string1中的起始位置。
具体用法VBA的帮助里有。
------------------------------------------------------------
“依次判断str1中的excle文件的 内容里面 是否含有要找的字符串”
首先，还是不知道你要找的字符串是什么？
其次，如果含有你要找的字符串，提取文件名用InStrRev函数。因为已知文件全路径的后缀为.xls，所以反向搜索最后一个路径分隔符——反斜杠\，得知其在路径字符串中的位置后也就知道文件名长度了，再用MID函数提取出来。
可能操作烦点，暂时也没想到其他好方法。具体还请参考下面的资料链接。

参考资料：http://club.excelhome.net/thread-225789-1-1.html

Answer 2

用循环和MID函数就可以了,你具体个例子吧