如何将VBA代码中的If条件判断语句改写为数组实现

原示例代码存在几处变量名拼写错误、语法结构缺失、对象引用不规范的问题，重构时已一并修正，核心通过两个维度的数组改造实现需求：一是把所有待匹配关键词存入配置数组，消除重复判断逻辑；二是把表格数据读入内存数组运算，提升执行效率。

核心实现逻辑 #

• 关键词配置数组统一维护所有需要模糊匹配的文本，后续增删匹配规则仅需修改数组，无需重复编写判断语句
• 数据读入内存数组后做批量运算，替代逐单元格读写工作表对象的低效操作
• 逐行遍历数据时循环匹配关键词，命中规则后立即退出当前行的匹配循环，减少无意义运算

完整实现代码 #

Sub MatchKeywordWithArray()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sh As Worksheet: Set sh = wb.Worksheets("Sheet1")
    ' ListObject从属于指定工作表，直接调用全局ListObjects集合容易出现跨表匹配错误
    Dim tbl As ListObject: Set tbl = sh.ListObjects("Table1")
    Dim lcount As Long: lcount = tbl.Range.Rows.Count
    
    ' 待匹配关键词数组，新增匹配词直接在Array括号内添加即可
    Dim matchList As Variant
    matchList = Array("Black", "Yellow")
    
    ' 将表格数据区域一次性读入内存数组
    Dim dataArr As Variant
    dataArr = tbl.DataBodyRange.Value
    
    Dim rowIdx As Long, keyIdx As Long
    Dim matchFlag As Boolean
    
    ' 逐行遍历数据
    For rowIdx = LBound(dataArr, 1) To UBound(dataArr, 1)
        matchFlag = False
        ' 遍历关键词做模糊匹配
        For keyIdx = LBound(matchList) To UBound(matchList)
            If dataArr(rowIdx, 1) Like "*" & matchList(keyIdx) & "*" Then
                matchFlag = True
                Exit For ' 命中后直接退出当前行的关键词循环
            End If
        Next keyIdx
        ' 匹配命中则给第二列赋值Y
        If matchFlag Then dataArr(rowIdx, 2) = "Y"
    Next rowIdx
    
    ' 处理完成后批量将数组写回表格
    tbl.DataBodyRange.Value = dataArr
End Sub

写法优势 #

• 可维护性更强：匹配规则和业务逻辑解耦，调整关键词不需要改动循环判断的核心代码
• 运行效率更高：内存数组运算相比逐单元格操作工作表对象，在千行以上数据场景下性能提升可达百倍
• 代码冗余度更低：消除了多行结构完全一致的重复判断语句，代码可读性更高

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