VBA实现从数组中动态提取符合条件的元素至另一数组

原代码问题分析 #

• 初始代码：每次匹配到元素时直接ReDim数组但未使用Preserve关键字，会清空之前存储的所有元素，最终仅保留最后一个匹配项；且变量p未初始化，逻辑存在隐患。
• 更新后代码：初始p=1导致数组开头出现无效空元素，每次赋值后扩展数组会多留一个空索引，最终数组末尾存在无用空值。

正确VBA代码实现 #

Dim p As Integer
p = 0

For v = 0 To UBound(NViews)
    ViewNames = NViews(v)
    ' 判断是否包含目标字符串，InStr返回>0表示找到匹配
    If InStr(ViewNames, "Triage Folder") > 0 Then
        ' 扩展数组并保留已有元素
        ReDim Preserve TriageNames(0 To p)
        TriageNames(p) = NViews(v)
        p = p + 1
    End If
Next v

' 处理无匹配元素的情况，清空数组避免空元素残留
If p = 0 Then
    ReDim TriageNames(0 To -1)
End If

代码说明 #

1. 计数器初始化：用p=0记录匹配元素的数量，同时作为目标数组的索引指针。
2. 遍历匹配：循环原数组，通过InStr判断元素是否包含目标字符串，仅当返回值大于0时执行存储逻辑。
3. 动态扩展数组：使用ReDim Preserve扩展数组，该关键字会保留数组中已有的元素，避免数据丢失。
4. 空数组处理：如果没有匹配到任何元素，将目标数组重置为0 To -1，这是VBA中表示空数组的标准方式。

内容的提问来源于stack exchange，提问作者Drawleeh