Excel 2013设置Interior.ColorIndex属性时出现#VALUE错误

你踩了Excel VBA的一个常见坑：用户自定义函数（也就是你写的Function HighlightRows()）只能用来返回计算值，完全不允许修改工作表的格式、结构或其他对象属性。这就是为什么注释掉格式修改代码后函数能正常计数，一加高亮操作就抛出#VALUE!错误——Excel的UDF设计规则就是这么定的。

你试的那几种高亮写法本身是没问题的，只是用错了场景而已。

要实现高亮行的需求，必须把代码改成Sub过程（宏），因为宏可以自由操作工作表的格式和内容。修改后的代码如下：

Sub HighlightRows()
    Dim c As Long
    Dim i As Long
    Dim w As Worksheet
    
    Set w = ThisWorkbook.Worksheets("Sheet1")
    c = 0
    
    ' 可选：清除之前的高亮，避免重复运行时高亮叠加
    w.UsedRange.Interior.ColorIndex = xlColorIndexNone
    
    For i = 2 To w.UsedRange.Rows.Count
        If w.Cells(i, 11).Value = 1 Then
            c = c + 1
            w.Rows(i).Interior.ColorIndex = 3 ' 用红色高亮整行
        End If
    Next i
    
    ' 可选：弹出提示显示找到的符合条件的行数
    MsgBox "共高亮了 " & c & " 行", vbInformation
End Sub

代码细节说明： #

• 把Function改成Sub，不需要返回值（如果需要保留计数，可以用MsgBox显示，或者写入到某个单元格里）
• 新增了清除旧高亮的代码，避免多次运行后高亮混乱
• 最后用弹窗反馈结果，方便你确认操作效果

怎么运行这个宏： #

1. 按下Alt + F11打开VBA编辑器
2. 找到你的代码模块，粘贴上面的代码
3. 点击编辑器工具栏的▶️运行按钮，或者回到Excel后按Alt + F8选择HighlightRows运行

如果需要自动触发高亮（比如第11列内容变化时自动更新），还可以给工作表添加事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当第11列（K列）的内容改变时，自动重新执行高亮
    If Not Intersect(Target, Me.Columns(11)) Is Nothing Then
        HighlightRows
    End If
End Sub

把这段代码放在Sheet1的专属代码窗口里（不是普通模块），就能实现自动触发的效果。

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