vba获取指定范围内单元格的填充色

以下是VBA代码示例，可以获取指定范围内单元格的填充色：

Sub GetCellFillColor()
    Dim r As Range
    Dim c As Range
    
    Set r = Range("A1:B5") '指定范围
    
    For Each c In r.Cells
        Debug.Print c.Interior.Color '输出单元格填充色
    Next c
End Sub

在上面的代码中，首先定义了一个范围变量r，指定要获取填充色的单元格范围。然后使用For Each循环遍历该范围内的每个单元格，使用c变量表示当前单元格。最后使用Debug.Print语句输出每个单元格的填充色到Immediate窗口中。