Excel怎么删除单元格中汉字、数字、符号、字母？

这个只针对数字有效，无法对文本字符进行设置，比如输入数字6,设置自定义："第["0"]行"，变成第[6]行，设置自定义："星期"0，变成星期6等。

我来补充一个只留下数字的公式：
=MID(A2,MIN(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),"")),MAX(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),""))-MIN(IF(ISNUMBER(MID(A2,ROW($1:$99),1)*0),ROW($1:$99),""))+1)

Public Function getnumber(rng, Optional x)
Dim regex
Set regex = CreateObject("VBSCRIPT.REGEXP")
With regex
.Global = True
If IsMissing(x) Then
.Pattern = "[^0-9]"
Else
If x = 1 Then
.Pattern = "[^0-9]"
Else
If x = 2 Then
.Pattern = "[0-9u4e00-u9fa5]"
Else
.Pattern = "[^u4e00-u9fa5]"
End If
End If
End If
End With
getnumber = regex.Replace(rng, "")
Set regex = Nothing
End Function
1或省略后面参数,提取数字
2是提取字母或其它符号
3以上是提取汉字