VBA设置条件格式：如何引用单元格自身并实现大小写混合判断？

你之前的代码问题出在对xlCellValue的理解上——xlCellValue是一个枚举常量，实际值为1，所以LCase(xlCellValue)其实是把数字1转换成了小写的"1"，直接导致条件格式变成了「单元格值不等于1就填充黄色」，完全偏离了判断大小写混合的需求。

确实要改用xlExpression类型的条件格式，因为我们需要用Excel公式动态判断每个单元格的内容是否大小写混合。下面是适配变量c（列号）和last_row（最后一行）的完整解决方案：

核心思路 #

判断单元格是否大小写混合，需要同时满足两个条件：

• 单元格内容不等于它的全大写形式（说明存在小写字母）
• 单元格内容不等于它的全小写形式（说明存在大写字母）

用Excel公式表达就是：=AND(UPPER(单元格地址)<>单元格地址, LOWER(单元格地址)<>单元格地址)

完整VBA代码 #

Dim c As Integer, last_row As Integer
c = 1
last_row = 10

' 获取目标列的相对引用地址（比如当c=1时得到"A1"）
Dim cellRef As String
cellRef = Cells(1, c).Address(False, False) ' 不带$的相对引用，确保条件格式能适配区域内每个单元格

With Range(Cells(1, c), Cells(last_row, c))
    ' 可选：清除区域内原有条件格式，避免重复叠加
    .FormatConditions.Delete
    
    ' 添加公式型条件格式
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(UPPER(" & cellRef & ")<>" & cellRef & ", LOWER(" & cellRef & ")<>" & cellRef & ")"
    
    ' 设置符合条件的单元格填充为黄色
    .FormatConditions(.FormatConditions.Count).Interior.ColorIndex = 6
End With

关键细节说明 #

1. 相对引用的使用：Cells(1,c).Address(False,False)生成不带美元符号的相对地址（比如A1），这样当条件格式应用到整个区域时，公式会自动对应到每个单元格（比如A2、A3……），而不是一直指向A1。
2. 条件格式的添加逻辑：先用FormatConditions.Delete清除原有规则（可选，根据你的实际需求决定是否保留），再添加新的公式条件，最后设置填充颜色。

这样就能精准识别出大小写混合的单元格，并将它们填充为黄色了。

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