EXCEL中如何去掉数字后面的0，如图：

Question

怎么用公式把图中数字后面的0去掉！！

Answer 1

alt+f11新建一个模块

粘贴下面代码
Private Sub RegExp_Replace()

    Dim RegExp As Object
    Dim SearchRange As Range, Cell As Range
    
    '此处定义正则表达式
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Pattern = "0*$"
     
    '此处指定查找范围
    Set SearchRange = ActiveSheet.Range("A1:A99")
    
    '遍历查找范围内的单元格
    For Each Cell In SearchRange
        Set Matches = RegExp.Execute(Cell.Value)
        If Matches.Count >= 1 Then
            Set Match = Matches(0)
            Cell.Value = RegExp.Replace(Cell.Value, "")
        End If
    Next

End Sub

"A1:A99" 换成你实际的 范围  然后点 运行就行了

Answer 2

用公式：
=LEFT(A1,LOOKUP(,0/MID(A1,ROW($1:$19),1),ROW($1:$19)))
下拉。

Answer 3

=--SUBSTITUTE(A1/10^18,".",)

Answer 4

=LEFT(B1,LEN(B1)-MAX(IF(--RIGHT(B1,ROW($1:$99))=0,ROW($1:$99),0)))
数组公式

Answer 5

是去掉所有0还是固定长度的0？