在excel表中，如何一次性删除字母、字符、数字，保留单元中的文字

1、首先找到excel工作表，双击打开

2、在打开的列表中选中你所需要删除字符的区域

3、在工具栏中选择“查找和选择”，在下拉列表中选择“替换”

4、在弹出的对话框中，“查找内容”中输入你所需要删除的符号，“替换为”的框内不输入内容，点击“全部替换”

1. 把EXCEL表全选复制到word当中去。

   

   

2. 在word当中打开替换功能，并点击更多，在更多下边勾上使用通配符。
   

3. 查找内容输入或复制后边内容：中括号也要[!一-﨩]。

   
   

4. 替换内容无需输入任何东西，并且点击全部替换。

   

   
   

   

5. 剩下的不用说的吧？复制回去呗~ ~
   

你试试下面代码,试用一下，
Sub FW()
Dim arr, rng As Range, r%
For Each rng In ActiveSheet.UsedRange
If Len(rng.Value) > 0 Then
ReDim arr(1 To Len(rng.Value))
For r = 1 To Len(rng.Value)
arr(r) = Mid(rng.Value, r, 1)
Next r
For r = 1 To UBound(arr)
Select Case Asc(arr(r))
Case 48 To 57
arr(r) = ""
Case 65 To 90
arr(r) = ""
Case 97 To 122
arr(r) = ""
End Select
Next r
rng.Value = Join(arr, "")
End If
Next rng
End Sub

假如在A列，在B1输入=MID(A1,MIN(IF(LENB(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=2,ROW(INDIRECT("1:"&LEN(A1))),9^9)),LENB(A1)-LEN(A1))数组公式，试试看

在B1中输入公式:=IF(CODE(MID($A1,COLUMN(A1),1))>10,MID($A1,COLUMN(A1),1),"") , 公式右拉.