VBA报错invalid procedure call or argument：数组值条件格式设置错误

• 数组赋值逻辑错误：使用Array(Worksheets("Drop down").Range("xxx"))写法时，生成的数组仅包含1个多单元格Range对象元素，不会逐个读取单元格内的独立值。循环时item是多单元格区域对象，不符合FormatConditions.Add方法Formula1参数的传值要求，直接触发无效参数错误。
• 工作表遍历逻辑漏洞：循环内的Cells.Select未绑定当前遍历的ws对象，始终操作活动工作表，且使用Select选中单元格的写法冗余低效，容易触发跨工作表操作错误。
• 格式绑定逻辑错误：每次新增条件格式后，通过FormatConditions(1)读取集合第一个规则修改格式，会覆盖之前已设置好的规则属性，无法为新增规则正确配置填充色。
• 未做非空判断：如果取值列存在空单元格，会生成无效的条件格式规则。

Sub ResetFormat()
    Dim ws As Worksheet
    Dim item As Variant
    Dim fc As FormatCondition
    
    ' 直接读取单元格区域值生成数组，无需嵌套Array()
    Dim arrGreen As Variant: arrGreen = Worksheets("Drop down").Range("N11:N14").Value
    Dim arrYellow As Variant: arrYellow = Worksheets("Drop down").Range("O11:O13").Value
    Dim arrOrange As Variant: arrOrange = Worksheets("Drop down").Range("P11:P14").Value
    Dim arrRed As Variant: arrRed = Worksheets("Drop down").Range("Q11:Q14").Value
    Dim arrPink As Variant: arrPink = Worksheets("Drop down").Range("R11:R12").Value
    
    For Each ws In ThisWorkbook.Sheets
        ' 清除当前工作表所有条件格式，无需Select选中单元格
        ws.Cells.FormatConditions.Delete
        
        ' 配置绿色填充规则
        For Each item In arrGreen
            If Not IsEmpty(item) Then
                Set fc = ws.Cells.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=item)
                fc.Interior.Color = 5287936 ' 绿色，可替换为RGB(0,176,80)
                fc.Interior.PatternColorIndex = xlAutomatic
                fc.Interior.TintAndShade = 0
            End If
        Next
        
        ' 配置黄色填充规则
        For Each item In arrYellow
            If Not IsEmpty(item) Then
                Set fc = ws.Cells.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=item)
                fc.Interior.Color = 49407 ' 黄色，可替换为RGB(255,255,0)
                fc.Interior.PatternColorIndex = xlAutomatic
                fc.Interior.TintAndShade = 0
            End If
        Next
        
        ' 配置橙色填充规则
        For Each item In arrOrange
            If Not IsEmpty(item) Then
                Set fc = ws.Cells.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=item)
                fc.Interior.Color = RGB(255, 165, 0) ' 橙色，可根据需求调整色值
                fc.Interior.PatternColorIndex = xlAutomatic
                fc.Interior.TintAndShade = 0
            End If
        Next
        
        ' 配置红色填充规则
        For Each item In arrRed
            If Not IsEmpty(item) Then
                Set fc = ws.Cells.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=item)
                fc.Interior.Color = RGB(255, 0, 0) ' 红色，可根据需求调整色值
                fc.Interior.PatternColorIndex = xlAutomatic
                fc.Interior.TintAndShade = 0
            End If
        Next
        
        ' 配置粉色填充规则
        For Each item In arrPink
            If Not IsEmpty(item) Then
                Set fc = ws.Cells.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:=item)
                fc.Interior.Color = RGB(255, 192, 203) ' 粉色，可根据需求调整色值
                fc.Interior.PatternColorIndex = xlAutomatic
                fc.Interior.TintAndShade = 0
            End If
        Next
    Next ws
End Sub

• 如果匹配值为文本类型，需要将代码中所有Formula1:=item修改为Formula1:="=""" & Replace(item, """", """""") & """"，否则会出现文本值匹配失败的问题；数值类型匹配保持原有写法即可。
• 代码已补全橙、红、粉三组规则的配置逻辑，颜色值可根据实际需求修改，使用RGB()函数写色值比纯数字更直观易调整。
• 代码全程直接操作工作表对象，无选中单元格的冗余操作，运行效率更高，不会出现跨工作表操作异常。

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