Excel VBA条件格式代码报错求助：按指定条件设置单元格格式异常

我来帮你梳理这段代码里的问题，几个关键的错误点和修复方案如下：

• 未完成的If语句结构：你的代码里If Cell <> "" And Cell.Value <= Tabelle4.Cells("B2") Then...只写了条件开头，既没有后续的颜色设置执行代码，也没有对应的End If，这会直接导致编译错误。
• 变量未声明：Cell变量没有提前声明，建议在模块顶部加上Option Explicit强制变量声明，避免隐式类型带来的意外错误。
• 单元格值引用不严谨：Tabelle4.Cells("B2")需要明确取它的.Value属性，否则如果该单元格是文本格式存储的数字，会出现类型不匹配的错误。
• 最后一行的获取可以更兼容：硬编码1048576是Excel 2007+的行数，但用Tabelle3.Rows.Count来动态获取总行数，能兼容不同版本的Excel。
• 空值判断优化：Cell <> ""可以替换为Not IsEmpty(Cell)，对空单元格的判断更准确。

下面是修复后的完整代码：

Option Explicit

Sub ColorTest1()
    Dim lastcell As Long
    Dim Cellclr As Long
    Dim Fontclr As Long
    Dim Cell As Range ' 声明Cell变量
    
    ' 动态获取C列最后一行，兼容不同Excel版本
    lastcell = Tabelle3.Cells(Tabelle3.Rows.Count, "C").End(xlUp).Row
    Cellclr = RGB(232, 245, 246)
    Fontclr = RGB(26, 155, 167)
    
    ' 遍历指定范围的单元格
    For Each Cell In Tabelle3.Range(Tabelle3.Cells(9, 3), Tabelle3.Cells(lastcell, 3))
        ' 严谨的条件判断：非空且值小于等于B2的值
        If Not IsEmpty(Cell) And Cell.Value <= Tabelle4.Cells("B2").Value Then
            ' 设置单元格填充色和字体颜色
            Cell.Interior.Color = Cellclr
            Cell.Font.Color = Fontclr
        Else
            ' 可选：如果不满足条件，恢复默认格式（根据需求调整）
            Cell.Interior.ColorIndex = xlColorIndexNone
            Cell.Font.ColorIndex = xlColorIndexAutomatic
        End If
    Next Cell
End Sub

额外说明：如果Tabelle4.Cells("B2")里可能存在非数字内容，建议加上错误处理，比如用IsNumeric(Tabelle4.Cells("B2").Value)先判断，避免运行时错误。

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