VBA动态表格条件格式报错：无效过程调用或参数，求排查

嘿，我帮你定位到代码里的问题啦！你遇到的Invalid procedure call or argument错误，主要是条件格式公式的写法有两处关键错误，再加上一些可以优化的细节，具体拆解和修复如下：

核心错误点 #

• 逻辑运算符用错了：你用了&（Excel里的文本连接符）来组合两个条件，但要表达“且”的逻辑关系，必须用Excel的AND函数。&会把两个条件的结果当成文本拼接，完全不符合你的需求，这也是公式无效的主要原因。
• 单元格引用范围不对：你用了绝对引用$C$2、$D$2，这样所有行的条件格式都会只判断第2行的C、D列值，根本没法对应到每一行的单元格。应该用混合引用$C2、$D2——锁定列，让行号随当前行自动变化。
• 引号转义错误：公式里的空值判断$D2<>""在VBA字符串中，需要把内部的双引号转义成两个双引号（也就是$D2<>""""），否则VBA会把单个双引号当成字符串的结束符，直接导致语法错误。

修正后的完整代码 #

Dim ws As Worksheet
Dim LastRow As Long
For Each ws In ActiveWorkbook.Sheets
    If ws.Name = "Projects" Then
        ' 简化最后一行的计算，直接用当前工作表对象ws
        LastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
        With ws.Range("C2:C" & LastRow)
            ' 先清除原有条件格式，避免规则堆积
            .FormatConditions.Delete
            ' 添加正确的条件格式公式：C列值>D列，且D列不为空
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($C2>$D2, $D2<>"""")"
            ' 设置单元格填充为红色
            .FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 0, 0)
        End With
    End If
Next ws

额外优化细节 #

1. 清除旧规则：新增.FormatConditions.Delete是为了避免每次运行代码都新增一条条件格式规则，防止规则堆积导致表格格式混乱。
2. 简化工作表引用：既然已经遍历到了目标工作表ws，就不用再重复写ThisWorkbook.Worksheets("Projects")，直接用ws操作更简洁高效。
3. 动态适配表格：通过LastRow获取C列最后一行有数据的行号，能自动适配表格大小的变化，完美满足你动态表格的需求。

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