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

我正在寻找一种方法来删除单元格中的任何文本，只留下数字，到目前为止，我已经find了一些例子，但他们要么定位到预定义的文本或专门的字符。

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

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

 lorem1001ipsum ipsum01lorem 0101lorem 

Answer 1

select你的细胞并运行这个小macros：

 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