EXCEL中如何去掉数字后面的0,如图:

发布网友 发布时间：2022-04-24 17:49

我来回答

共5个回答

热心网友 时间：2023-10-28 06:34

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" 换成你实际的 范围  然后点 运行就行了

热心网友 时间：2023-10-28 06:35

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

热心网友 时间：2023-10-28 06:35

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

热心网友 时间：2023-10-28 06:36

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

热心网友 时间：2023-10-28 06:37

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