比较单元格中数值大，并标注红色提醒

山海风云轩

请教下大佬，我有个工作表格，需要对同行的数值（有的数值位于一段文字中）进行比较，并对超出限量的数值进行标红提醒，详情请看图片和附件

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, Rng As Range
   
    With Range([B4], Cells(Rows.Count, "B").End(xlUp))
        Set Rng = .Resize(, 9)
        With Rng
            .Font.ColorIndex = 0
            ar = .Value
        End With
    End With
   
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+%"
        For i = 2 To UBound(ar)
            For j = 4 To 7
                If .test(ar(i, j)) Then
                    If Val(.Execute(ar(i, j))(0)) < ar(i, 3) Then
                        Rng.Cells(i, j).Font.Color = vbRed
                        Exit For
                    End If
                End If
            Next j
        Next i
    End With

    Beep
End Sub

gwjkkkkk

请参考 。。。

山海风云轩

gwjkkkkk 发表于 2023-3-16 20:37
请参考 。。。

大佬，您好，已实现部分效果，后面试验还有几个地方需要改善一下，可以帮忙再看看吗？详见附图
可以的话，帮我注释下代码

山海风云轩

接上一楼示意图

gwjkkkkk

各单元格数据有的带%有的不带%，通过正则没办法同时判别。。。

山海风云轩

像D9那行，感觉不是%的原因，我试验的时候，感觉是小数点的原因

gwjkkkkk

山海风云轩 发表于 2023-3-17 20:30
像D9那行，感觉不是%的原因，我试验的时候，感觉是小数点的原因

对的，点是可以处理的，但其他单元格中同时存在的带%和不带%，你需要哪个进行判别，因为你带%和不带%都是判别的数据。

山海风云轩

你好，E、F列的数值都是带%的，D、G、H列的数值是省略%的，然后需要D列的数值和同一行中E:H中的数值进行大小比较

山海风云轩

你好，E、F列中的最后数值是带%的，D、G、H列中的数值是省略了%的，然后需要将D列的数值与同一行中E:H的数值进行大小比较