优化VBA代码：识别Excel条件格式图标并设置对应字体颜色

以下代码可遍历工作簿中所有工作表的已用区域，精准识别xl3Triangles类型条件格式中的绿色向上三角形（xlIconGreenUpTriangle）和红色向下三角形（xlIconRedDownTriangle），并为对应单元格（含合并单元格）设置指定字体颜色，解决AutoFilter方案的兼容问题：

Sub SetFontColorByIcon()
    Dim ws As Worksheet
    Dim cell As Range
    Dim cf As FormatCondition
    Dim iconSet As IconSetCondition
    Dim iconIndex As Integer
    Dim mergedRange As Range
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历工作表已用区域的每个单元格
        For Each cell In ws.UsedRange
            ' 跳过空单元格或无格式条件的单元格
            If cell.FormatConditions.Count > 0 Then
                Set cf = cell.FormatConditions(1)
                ' 仅处理图标集类型的条件格式，且为xl3Triangles样式
                If cf.Type = xlIconSetCondition Then
                    Set iconSet = cf
                    If iconSet.IconSet = xl3Triangles Then
                        iconIndex = iconSet.IconIndex(cell)
                        
                        ' 根据图标类型设置字体颜色
                        Select Case iconIndex
                            Case xlIconGreenUpTriangle ' 绿色向上三角形，对应索引1
                                ' 处理合并单元格：若当前单元格是合并区域首单元格，设置整个区域字体颜色
                                If cell.MergeCells Then
                                    Set mergedRange = cell.MergeArea
                                    mergedRange.Font.Color = RGB(0, 176, 80)
                                Else
                                    cell.Font.Color = RGB(0, 176, 80)
                                End If
                            Case xlIconRedDownTriangle ' 红色向下三角形，对应索引3
                                If cell.MergeCells Then
                                    Set mergedRange = cell.MergeArea
                                    mergedRange.Font.Color = RGB(255, 0, 0)
                                Else
                                    cell.Font.Color = RGB(255, 0, 0)
                                End If
                        End Select
                    End If
                End If
            End If
        Next cell
    Next ws
End Sub

关键细节说明 #

• 精准识别条件格式：仅筛选xlIconSetCondition类型且图标集为xl3Triangles的格式规则，避免误处理其他条件格式。
• 合并单元格兼容：通过判断MergeCells属性，若为合并单元格则对整个合并区域设置字体颜色，解决AutoFilter方案的兼容问题。
• 动态遍历已用区域：使用UsedRange自动适配各工作表的数据范围，无需固定起始列。
• 图标索引对应：xl3Triangles图标集中，绿色向上三角形对应索引1，红色向下三角形对应索引3，确保判断逻辑准确。

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