如何高效读取Excel中指定单元格区域的单元格颜色？

针对600个连续单元格的背景色读取需求，虽然VBA没有像Range.Value那样直接批量获取颜色的原生方法，但可以通过以下几种优化方案大幅提升效率，解决遍历卡顿问题：

基础优化：关闭界面刷新与事件触发 #

这是最容易实现的提速手段，能避免Excel频繁更新界面、触发事件带来的性能损耗：

' 先关闭不必要的系统功能
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim rng As Range
Dim colorArr() As Long
Dim i As Long

Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A600")
ReDim colorArr(1 To rng.Rows.Count)

' 遍历读取颜色到数组
For i = 1 To rng.Rows.Count
    colorArr(i) = rng.Cells(i, 1).Interior.Color
Next i

' 恢复系统设置
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True

这种方法虽然还是遍历单元格，但关闭界面刷新后，卡顿现象会明显缓解，600个单元格的读取速度能提升3-5倍。

进阶方案：利用XML批量解析颜色 #

通过将目标区域复制为XML格式，一次性读取所有单元格的样式信息，再解析出背景色，彻底减少VBA与Excel的交互次数：

Dim rng As Range
Dim xmlDoc As Object
Dim cellStyleNodes As Object
Dim styleColorNodes As Object
Dim colorArr() As Long
Dim i As Long, styleID As String

Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A600")
rng.Copy ' 复制区域到剪贴板

' 加载剪贴板中的XML内容
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
xmlDoc.LoadXML Clipboard.GetText(4) ' 4代表XML格式数据

' 获取所有单元格的样式ID节点
Set cellStyleNodes = xmlDoc.SelectNodes("//ss:Cell/ss:Style/@ss:ID")
ReDim colorArr(1 To rng.Rows.Count)

' 遍历每个单元格的样式ID，匹配对应颜色
For i = 1 To cellStyleNodes.Length
    styleID = cellStyleNodes(i - 1).Text
    ' 查找该样式对应的背景色
    Set styleColorNodes = xmlDoc.SelectSingleNode("//ss:Style[@ss:ID='" & styleID & "']/ss:Interior/@ss:Color")
    
    If Not styleColorNodes Is Nothing Then
        ' 将XML中的RRGGBB格式转为VBA的Long型颜色值
        colorArr(i) = CLng("&H" & Right(styleColorNodes.Text, 6))
    Else
        colorArr(i) = xlNone ' 无填充色
    End If
Next i

' 清空剪贴板（可选）
Application.CutCopyMode = False

这种方法无需逐个访问单元格，仅通过一次XML解析就能获取所有颜色信息，对于600个单元格的场景，速度提升会非常显著，几乎不会出现卡顿。

补充说明 #

• 如果仅需判断颜色类别（而非精确RGB值），可以使用Interior.ColorIndex替代Interior.Color，读取速度会略快一些。
• 避免在遍历过程中进行单元格写入、格式修改等操作，尽量将结果先存入数组，最后一次性处理。

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