求提示某个区域存在三位小数问题

同心/ty

求大神，解决我日常数据整理问题，一般情况下我的数据是保留小数点后2位值，因为不同人员输入了3位小数值或3位小数以上值，能否通过vba，一键查询表格中存在有几个这样的数，并选择出来。比如说要查询表格j-u列，结果提示：“出现6个3位小数，请核实”         （并选中那6个单元格）

ykcbf1100

上传附件说明，更容易解决问题

Meteor-渣渣

这东西不用vba也可以

ooluckydog

有一种情况，单元格内数字的值只有2位小数，但是显示文本可以有3位或更多
比如截图中的文本显示3.120，实际值却是3.12


Sub 匹配小数位()
    Dim cell As Range, k&
    Dim regex As Object
   
    Set regex = CreateObject("vbscript.regexp")
    With regex
        .Pattern = "\d*\.\d{3,}"
        For Each cell In Range("E1").CurrentRegion
            If .test(cell.Text) Then
                cell.Interior.ColorIndex = 6
                cell.Font.ColorIndex = 3
                k = k + 1
            End If
        Next
        MsgBox "出现" & k & "个3位小数，请核实!"
    End With
End Sub

半百

同心/ty

半百 发表于 2024-4-13 11:01

老师，谢谢提出新的解答方法，比较直观。

同心/ty

ooluckydog 发表于 2024-4-12 20:06
有一种情况，单元格内数字的值只有2位小数，但是显示文本可以有3位或更多
比如截图中的文本显示3.120， ...

老师，我测试了一下，用在我的数据里，运行好慢呀，将电脑卡在那里，从j6-u25775区间找查，用时5分钟，最后有提示框提示，但没有选中数据。老师能否将代码优化一下。谢谢！