Excel VBA条件格式AND函数应用：指定区域单元格格式设置需求

我懂你要的效果——给Tabelle3里C9开始到最后一行的非空单元格，加上符合Tabelle4 B2指定条件的格式，对吧？之前查资料没找到完全匹配的方案，那直接给你定制化的VBA代码和细节说明：

核心思路 #

要实现这个需求，我们需要用VBA的条件格式对象，基于表达式规则来同时判断两个条件：

1. 当前C列单元格不为空
2. 单元格满足Tabelle4 B2定义的条件

完整代码示例 #

Sub SetCustomConditionalFormatting()
    Dim ws3 As Worksheet, ws4 As Worksheet
    Dim lastRow As Long
    Dim targetRange As Range
    Dim cellClr As Long, fontClr As Long
    
    ' 定义工作表对象（避免硬编码表名出错）
    Set ws3 = ThisWorkbook.Worksheets("Tabelle3")
    Set ws4 = ThisWorkbook.Worksheets("Tabelle4")
    
    ' 定义你需要的颜色（示例用RGB值，也可以用vbRed这类常量）
    cellClr = RGB(255, 255, 204) ' 浅黄底色
    fontClr = RGB(0, 0, 128) ' 深蓝色字体
    
    ' 获取Tabelle3 C列最后一行的行号
    lastRow = ws3.Cells(ws3.Rows.Count, 3).End(xlUp).Row
    
    ' 确保目标范围至少包含C9（如果C9以下没数据就不处理）
    If lastRow >= 9 Then
        Set targetRange = ws3.Range(ws3.Cells(9, 3), ws3.Cells(lastRow, 3))
        
        ' 先清除目标范围旧的条件格式（可选，避免重复规则）
        targetRange.FormatConditions.Delete
        
        ' 添加新的条件格式规则
        With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:= _
            "=AND($C9<>"""", $C9=" & ws4.Range("B2").Address(External:=True) & ")")
            ' 设置单元格底色
            .Interior.Color = cellClr
            ' 设置字体颜色
            .Font.Color = fontClr
        End With
    Else
        MsgBox "Tabelle3的C列在第9行以下没有数据！"
    End If
End Sub

关键细节说明 #

• 获取最后一行：用ws3.Cells(ws3.Rows.Count, 3).End(xlUp).Row可以精准定位C列最后一个有数据的单元格，避免处理空行。
• 表达式规则：Formula1里的AND($C9<>"", $C9=...)是核心，$C9是混合引用——列固定为C，行随单元格变化，确保规则能应用到整个目标范围。
• 外部单元格引用：用ws4.Range("B2").Address(External:=True)会自动生成类似[工作簿名.xlsm]Tabelle4!$B$2的完整引用，避免工作表切换导致的引用错误。
• 颜色定义：你可以把cellClr和fontClr换成自己需要的颜色值，比如用vbGreen、vbWhite这类内置常量，或者自定义RGB值。

灵活调整条件 #

如果Tabelle4 B2的条件不是“等于”，而是其他规则（比如大于、包含文本），只需要修改Formula1里的第二个条件：

• 大于B2："=AND($C9<>"""", $C9>" & ws4.Range("B2").Address(External:=True) & ")"
• 包含B2的文本："=AND($C9<>"""", ISNUMBER(SEARCH(" & ws4.Range("B2").Address(External:=True) & ", $C9)))"

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