这个问题的核心是你代码里用来引用新添加条件格式规则的i变量存在索引不匹配的问题，导致格式设置没有应用到刚创建的规则上：

• 当你设置E:E等之前没有条件格式规则的列时，i的值刚好和新添加规则的索引一致（比如初始i为0，i+1=1，而新规则是第1个），所以格式能正确应用；
• 但当设置A:D这些可能已经存在旧条件格式规则的列时，i的值没有对应到刚添加的新规则的索引，导致你把格式设置到了旧规则上，而新创建的规则完全没有格式设置，所以在条件格式管理器里显示“未设置格式”。

手动修改已生效规则的范围到A:D可行，是因为你修改的是那个已经正确设置了格式的旧规则，和新创建的无格式规则无关。

你可以去掉不可靠的i变量，直接通过.FormatConditions.Count来引用刚添加的规则（因为新添加的规则总是位于条件格式集合的最后一位）：

Dim StrSearchCriteria As String
StrSearchCriteria = "=($W1=" & Chr(34) & "ETF" & Chr(34) & ")" 

With .Range("A:A").FormatConditions
    ' 添加新规则，并直接引用它
    With .Add(Type:=xlExpression, Formula1:=StrSearchCriteria)
        .SetFirstPriority
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = RGB(225, 225, 0)
        End With
        .StopIfTrue = False
    End With
End With

1. 我把Type:=2改成了更具可读性的xlExpression（两者是等价的，2是xlExpression的枚举值）；
2. 新增了变量声明Dim StrSearchCriteria As String，符合VBA的最佳实践；
3. 嵌套的With块直接绑定刚添加的规则，彻底避免了索引不匹配的问题。

这样修改后，无论是A:D还是E:W列，新添加的条件格式规则都会正确应用黄色填充格式，不会再出现“未设置格式”的情况。

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