嘿，我来帮你搞定这个VBA宏的问题！你的核心问题出在没正确处理Excel百分比单元格的实际存储值，以及变量类型和判断逻辑的小错误，咱们一步步来修正：

问题根源分析 #

Excel里的百分比单元格（比如显示6.00%），实际存储的是小数数值（0.06），而不是你看到的字符串"6.00%"。你之前把BValue定义为String，还直接拿它和5、1比较，这就导致判断完全失效——字符串没法和数字正确比较，而且实际数值（比如0.06）远小于5，自然触发不了你想要的红色字体。

另外，你的两个If语句是独立的，会互相覆盖样式（比如如果某个值同时满足两个条件？虽然不可能，但逻辑上应该用ElseIf来避免重复设置）。

修正后的完整代码 #

Sub SetPercentageFontColor()
    Dim My_Range As Range
    Set My_Range = ThisWorkbook.Sheets("Schemes").Range("CB15:CB100")
    
    Dim Cell As Range
    Dim BValue As Double ' 改成数值类型，存储单元格的实际小数数值
    
    For Each Cell In My_Range
        ' 先判断单元格是否为数值，避免空单元格或文本单元格报错
        If IsNumeric(Cell.Value) Then
            BValue = Cell.Value ' 获取实际存储的小数（比如6.00%就是0.06）
            
            ' 重置字体样式为默认，避免之前的样式残留
            Cell.Font.ColorIndex = xlNone
            Cell.Font.Bold = False
            
            ' 把小数转换成百分比数值（乘以100）后判断
            If BValue * 100 > 5 Then
                ' 大于5%，设置红色（ColorIndex 3是标准红色，你之前写的0是黑色，这里改过来）
                Cell.Font.ColorIndex = 3
                Cell.Font.Bold = True
            ElseIf BValue * 100 < 1 Then
                ' 小于1%，设置琥珀色（ColorIndex 44就是你要的琥珀色）
                Cell.Font.ColorIndex = 44
                Cell.Font.Bold = True
            End If
        Else
            ' 如果单元格不是数值，重置样式
            Cell.Font.ColorIndex = xlNone
            Cell.Font.Bold = False
        End If
    Next Cell
End Sub

关键修正点说明 #

• 变量类型：把BValue改成Double，用来存储单元格的实际数值，而不是文本。
• 数值转换：用BValue * 100把Excel存储的小数转换成我们直观的百分比数字（比如0.06→6），这样就能和5、1正确比较了。
• 逻辑优化：用ElseIf替代独立的If，避免样式被重复覆盖；先重置默认样式，再设置目标样式，防止旧样式残留。
• 错误处理：增加IsNumeric判断，避免空单元格或非数值单元格导致宏报错。
• 颜色修正：你之前写的ColorIndex = 0是黑色，改成3才是标准红色，符合你“值大于5时设为红色”的需求。

额外小提示 #

如果你不想用ColorIndex，也可以用RGB值来设置颜色，更直观：

• 红色：Cell.Font.Color = RGB(255, 0, 0)
• 琥珀色：Cell.Font.Color = RGB(255, 192, 0)

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