VBA条件格式代码报错Run-time error 5：无效的过程调用或参数

错误原因分析 #

1. 公式拼接问题：直接拼接数值current时，若系统使用逗号作为小数分隔符，会导致Excel公式无法识别；同时原公式中L2<>""属于冗余判断（ISNUMBER(L2)已能排除空单元格）。
2. 应用范围过大：Range("L2:L" & ws.Rows.Count)会将条件格式应用到整列1048576行，超出实际需求的同时容易触发参数无效错误。
3. 代码冗余易出错：重复书写完整Range路径增加了出错概率，代码结构可简化。

修正后的代码 #

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim current As Double
    
    Set ws = ThisWorkbook.Sheets("Formatting")
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row ' 获取L列实际最后一行
    current = ws.Range("K1").Value

    ' 清除现有条件格式
    ws.Cells.FormatConditions.Delete

    ' 应用条件格式
    With ws.Range("L2:L" & lastRow)
        .FormatConditions.Add Type:=xlExpression, _
            Formula1:="=AND(ISNUMBER(L2), L2<" & Application.WorksheetFunction.Text(current, "General") & ")"
        With .FormatConditions(.FormatConditions.Count)
            .Interior.Color = RGB(255, 255, 0)
        End With
    End With
    
    MsgBox "条件格式已应用"
End Sub

关键修改说明 #

• 缩小有效范围：通过lastRow获取L列最后一个有数据的行，避免对大量无效行进行格式处理。
• 适配数值格式：用Application.WorksheetFunction.Text(current, "General")确保数值格式符合Excel公式要求，兼容不同区域的小数分隔符设置。
• 简化代码结构：嵌套With块减少重复代码，提升可读性的同时降低出错概率。
• 移除冗余判断：删除L2<>""，因为ISNUMBER(L2)已过滤空单元格和非数值内容。

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