如何将excel中小数位数超过2位的筛出来？方法有很多，今天八分饱准备分享一段vba代码。有了它只需一键运行，就能快速突出显示小数位数超两位的数字，简单又高效。

八分饱没有系统学过编程，更不是专业人员。完全是工作所需，然后东拼西凑搞了个vba出来。大家将就着用，如果有Bug欢迎评论区交流。详细代码如下：

Sub 校验非两位小数()
Dim myC As Range
For Each myC In Selection
    If IsNumeric(myC)Then   '判断是否问数值格式，文本格式不运行循环
       K=InStr(myC,".")     '计算小数点的位置
       If K>0 Then          '判断是否有小数点，有小数点才计算len-k
           If Len(myC)-K>2 Then
              myC.Font.Bold=True
              myC.Font.Colorlndex =3
           End If
       End If
     End If
Next
Set myC=Nothing              '释放内存
End Sub

使用以上代码的前提是能启用宏，先将这段代码保存之后，设置自己顺手的快捷键，一键运行代码就会对鼠标选中区域中的、小数位数超两位的数字标红。文本等其他格式不校验，带公式的数值单元格也会校验，有些带公式的单元格看着是两位的，实际粘贴成数字之后是超过两位的。

怎么样？用上这段代码一键就能将excel中小数位数超过2位的筛出来，是不是很方便？如果各位有好用的vba代码，也欢迎分享出来，让大家工作效率都能有所提高。