求Excel中忽略末尾零的最大有效小数位数计算方法

方法一：VBA自定义函数（结合正则表达式） #

如果想用正则处理，可以创建自定义函数遍历目标区域，提取清理后的小数部分并计算有效位数，最终返回最大值：

1. 按 Alt+F11 打开VBA编辑器，右键当前工作簿 → 插入 → 模块
2. 粘贴以下代码：

Function MaxEffectiveDecimals(rng As Range) As Integer
    Dim regEx As Object
    Dim cell As Range
    Dim decimals As String
    Dim maxLen As Integer
    maxLen = 0
    
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\.([0-9]*[1-9])0*$" '匹配小数部分，保留至最后一个非零数字
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            If cell.Value <> Int(cell.Value) Then '判断是否含小数部分
                Set matches = regEx.Execute(CStr(cell.Value))
                If matches.Count > 0 Then
                    decimals = matches(0).SubMatches(0)
                    If Len(decimals) > maxLen Then
                        maxLen = Len(decimals)
                    End If
                End If
            End If
        End If
    Next cell
    
    MaxEffectiveDecimals = maxLen
End Function

3. 返回Excel，在D2单元格输入公式：=MaxEffectiveDecimals(A1:C3)（将A1:C3替换为你的目标数据区域），回车即可得到结果。

方法二：纯工作表函数（无需VBA） #

不想用VBA的话，可通过函数组合实现，适合新版Excel（支持动态数组）：
在D2单元格输入：

=MAX(LEN(SUBSTITUTE(RIGHT(TEXT(A1:C3,"0.#############"),LEN(TEXT(A1:C3,"0.#############"))-FIND(".",TEXT(A1:C3,"0.#############"),1)),"0",""))*(ISNUMBER(FIND(".",A1:C3))))

• 原理：用TEXT将数值转为带足够小数位的文本，FIND定位小数点，RIGHT提取小数部分，SUBSTITUTE去除末尾零，LEN计算有效位数，最后用MAX取区域最大值。
• 旧版Excel需按 Ctrl+Shift+Enter 作为数组公式输入。

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