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

既然你的题目比较抽象，我也只能给出一个简单的例子。
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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vv2y2jfjr.html