Excel带D/U后缀的字母数字值提取最大值并设置条件格式的实现方法

核心适配逻辑 #

• 待处理值的固定规则：所有单元格内容为「数字前缀 + 单个D/U字母后缀」，不存在无后缀、多字符后缀、非数字开头的异常格式
• 原纯数值公式的改造核心：不直接对比单元格原始文本，统一提取数字前缀转换为可计算的数值，再匹配区间最大值
• 兼容性设计：提取逻辑兼容所有Excel版本，无需手动触发数组公式计算

替换后的条件格式判定公式 #

直接替换原纯数值场景下的公式，即可实现带后缀值的最大值识别：
=AND(VALUE(LEFT(A3,LEN(A3)-1))>0, VALUE(LEFT(A3,LEN(A3)-1))=SUMPRODUCT(MAX(--LEFT($A3:$Z3,LEN($A3:$Z3)-1))))

公式各部分的作用：

• LEFT(A3,LEN(A3)-1)：移除单元格最后1位的D/U后缀，提取纯数字文本片段
• VALUE(...)：将提取的数字文本转换为可参与运算的数值
• SUMPRODUCT(MAX(--LEFT($A3:$Z3,LEN($A3:$Z3)-1)))：批量计算A3:Z3区间内所有单元格的提取数值，输出区间最大值；用SUMPRODUCT包裹数组运算逻辑，是为了兼容旧版Excel的公式运行规则，避免VBA写入的条件格式出现数组运算报错
• 整体判定逻辑和原公式完全一致：先确认提取的数值大于0，再判断当前单元格的提取值是否等于区间最大值，匹配成功即触发预设格式

调整后的VBA完整代码 #

原有格式设置（粗体、渐变填充、优先级配置等）的逻辑完全保留，仅需替换条件格式的公式参数，调整后的代码如下：

myRng.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(VALUE(LEFT(A3,LEN(A3)-1))>0, VALUE(LEFT(A3,LEN(A3)-1))=SUMPRODUCT(MAX(--LEFT($A3:$Z3,LEN($A3:$Z3)-1))))" 
   With myRng.FormatConditions(3)
            .Font.Bold = True
            .Font.TintAndShade = 0
            .Interior.Pattern = xlPatternRectangularGradient
            .Interior.Gradient.RectangleLeft = 0.5
            .Interior.Gradient.RectangleRight = 0.5
            .Interior.Gradient.RectangleTop = 0.5
            .Interior.Gradient.RectangleBottom = 0.5
            .Interior.Gradient.ColorStops.Add(0).ThemeColor = xlThemeColorDark1
            .Interior.Gradient.ColorStops.Add(0).TintAndShade = 0
            .Interior.Gradient.ColorStops.Add(1).Color = 4123227 '15525371
            .Interior.Gradient.ColorStops.Add(1).TintAndShade = 0
            .StopIfTrue = False
            .SetFirstPriority
    End With

注意事项：

• 需确保条件格式应用范围和公式的相对引用匹配：如果应用范围从A3单元格开始，公式中左上角的A3保持相对引用即可，不要添加绝对引用锁
• 如果区间内存在空值或格式异常的单元格，可在外层嵌套IFERROR做容错处理，例如将提取逻辑替换为IFERROR(VALUE(LEFT(A3,LEN(A3)-1)),0)，避免计算报错

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