求助：VBA中合并单元格的条件格式设置问题

问题场景：H-K列为合并单元格，手动设置条件格式时，含非字母数字字符的合并单元格能正常变红；但使用VBA代码时，因公式中固定指向H列某单个单元格（如H14），无法正确获取对应行合并单元格的值，导致条件格式失效。

问题根源 #

合并单元格的值仅存储在合并区域的左上角单元格（即H列的单元格），原代码中Rng01.Cells(1,8).Address(0,1)会生成固定地址（如H14），导致整个H-K列的条件格式都引用同一单元格，而非当前行的合并单元格值。

解决方案 #

修改条件格式的公式，使其动态引用当前行的H列单元格（合并值存储的位置），以下两种方式均可：

方案1：使用结构化引用（推荐）

利用Excel的结构化引用$H@，表示当前行的H列单元格，确保每个合并区域都引用对应行的存储值：

Private Sub FormatRange()
    Dim Rng01 As Range, Rng02 As Range
    Dim listSep As String
    
    Set Rng01 = Range("A14:O28")
    listSep = Application.International(xlListSeparator)
    
    Set Rng02 = Intersect(Rng01, Rng01.Parent.Range("H:K"))
    
    ' 动态引用当前行的H列单元格
    Rng02.FormatConditions.Add Type:=xlExpression, Formula1:="=IsAlphaNumeric($H@)"
    Rng02.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End Sub

方案2：使用INDIRECT+ROW函数构造动态地址

如果结构化引用存在兼容问题，可通过ROW()获取当前行号，结合INDIRECT生成对应H列单元格地址：

Private Sub FormatRange()
    Dim Rng01 As Range, Rng02 As Range
    Dim listSep As String
    
    Set Rng01 = Range("A14:O28")
    listSep = Application.International(xlListSeparator)
    
    Set Rng02 = Intersect(Rng01, Rng01.Parent.Range("H:K"))
    
    ' 动态构造当前行H列的单元格地址
    Rng02.FormatConditions.Add Type:=xlExpression, Formula1:="=IsAlphaNumeric(INDIRECT(""H""&ROW()))"
    Rng02.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End Sub

额外注意 #

原代码中Dim Rng01, Rng02 As Range的写法会导致Rng01被声明为Variant类型，需修正为Dim Rng01 As Range, Rng02 As Range，避免潜在类型错误。

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