如何从 Excel 单元格中删除文本/字符答案

【问题标题】：How to remove text/characters from an Excel cell如何从 Excel 单元格中删除文本/字符
【发布时间】：2018-07-28 20:47:26
【问题描述】：

我正在寻找一种方法来删除单元格中的任何文本并只留下数字。到目前为止，我已经找到了一些示例，但它们要么针对预定义的文本，要么针对特殊字符。

SUBSTITUTE(A1, ".", "")
SUBSTITUTE(text, old_text, new_text, [nth_appearance])

例如，我的单元格可以在任何位置包含混合文本和数字，那么我该如何留下数字并删除任何字符...

lorem1001ipsum
ipsum01lorem
0101lorem

【问题讨论】：

标签： excel excel-formula

【解决方案1】：

选择您的单元格并运行这个小宏：

Sub qwerty()
    For Each r In Selection
        vout = ""
        v = r.Text
        n = Len(v)
        For i = 1 To n
            ch = Mid(v, i, 1)
            If ch Like "[0-9]" Then
                vout = vout & ch
            End If
        Next i
        r.Value = vout
    Next r
End Sub

【讨论】：

这会保留数字并删除其他所有内容，这很酷。如何保留所有数字和句点 (.)，但删除其他所有内容？

【解决方案2】：

如果要保留所有数字和句点（例如，十进制数字），请添加 elseif 以检查句点。代码：

Sub qwerty() 
    For Each r In Selection
        vout = ""
        v = r.Text
        n = Len(v)
        For i = 1 To n
            ch = Mid(v, i, 1)
            If ch Like "[0-9]" Then
                vout = vout & ch
            ElseIf ch Like "." Then
                vout = vout & ch
            End If
        Next i
        r.Value = vout
    Next r
End Sub

【讨论】：