如何用VBA遍历数组内表格，重置ListObjects条件格式？

原代码的核心问题是直接对表格名称执行Select操作（无法定位到ListObject对象），以及依赖Selection导致代码不稳定。下面是修正后的代码，通过直接引用ListObject对象实现目标需求：

Sub ResetTableConditionalFormats()
    Dim targetTableName As Variant
    Dim targetTable As ListObject
    Dim ArrTab As Variant
    Dim greenValue As Variant
    Dim ArrGreen As Variant
    
    ' 存储目标表格名称的数组
    ArrTab = Array("Dept1710", "Dept1711", "Dept1713", "Dept1715", "Dept1716", "Dept1717")
    ' 获取需要高亮的目标值（注意Range.Value返回的是二维数组）
    ArrGreen = Worksheets("Drop down").Range("Q14:Q18").Value
    
    ' 循环遍历每个目标表格名称
    For Each targetTableName In ArrTab
        ' 定位目标表格（若表格固定在特定工作表，替换为Worksheets("指定工作表名").ListObjects(targetTableName)）
        On Error Resume Next
        Set targetTable = ActiveSheet.ListObjects(targetTableName)
        On Error GoTo 0
        
        ' 找到目标表格才执行后续操作
        If Not targetTable Is Nothing Then
            ' 清除表格数据区域的所有条件格式（若需包含表头，替换为targetTable.Range）
            targetTable.DataBodyRange.FormatConditions.Delete
            
            ' 循环添加绿色高亮条件格式
            For Each greenValue In ArrGreen
                ' 跳过空值避免无效格式
                If Not IsEmpty(greenValue) Then
                    With targetTable.DataBodyRange.FormatConditions.Add( _
                        Type:=xlCellValue, _
                        Operator:=xlEqual, _
                        Formula1:=greenValue(1, 1) ' 二维数组需指定行列索引取值
                    )
                        .SetFirstPriority
                        With .Interior
                            .PatternColorIndex = xlAutomatic
                            .Color = 5287936 ' 绿色色值
                            .TintAndShade = 0
                        End With
                    End With
                End If
            Next greenValue
        Else
            ' 可选：提示用户未找到对应表格
            MsgBox "未找到目标表格：" & targetTableName
        End If
    Next targetTableName
End Sub

关键改动说明： #

• 直接操作ListObject对象：通过ListObjects集合定位目标表格，彻底抛弃Select和Selection，提升代码稳定性与执行效率。
• 处理二维数组：从单元格区域获取的ArrGreen是二维数组，取值时需用greenValue(1,1)提取具体内容。
• 容错处理：添加错误捕获逻辑，避免因表格名称不存在导致代码崩溃，同时可给出明确提示。
• 精确控制格式范围：用DataBodyRange仅对表格数据区域应用格式，若需包含表头，替换为targetTable.Range即可。

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