Excel VBA返回彩色单元格的最大值

Sub GetMaxColorCell()
    Dim rng As Range
    Dim cell As Range
    Dim maxVal As Double
    Dim maxColorCell As Range
    
    ' 设置要检查的范围
    Set rng = Range("A1:A10")
    
    ' 初始化最大值和最大值对应的彩色单元格
    maxVal = 0
    Set maxColorCell = Nothing
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格是否有颜色
        If cell.Interior.Color <> RGB(255, 255, 255) Then ' 这里假设白色为无颜色状态
            ' 检查单元格的值是否大于当前最大值
            If cell.Value > maxVal Then
                ' 更新最大值和最大值对应的彩色单元格
                maxVal = cell.Value
                Set maxColorCell = cell
            End If
        End If
    Next cell
    
    ' 输出最大值和最大值对应的彩色单元格地址
    If Not maxColorCell Is Nothing Then
        MsgBox "最大值为: " & maxVal & vbCrLf & "彩色单元格地址: " & maxColorCell.Address
    Else
        MsgBox "没有找到彩色单元格"
    End If
End Sub