excel中怎么去除数字保留文字

2024-11-10 20:17:58

推荐回答（3个）

回答（1）：

您好，去掉单元格中的数字字符可以用VBA来实现。这个是去掉单元格中所有数字的

Public Sub a()
Dim a As String
x = Range("A65536").End(xlUp).Row
For i = 1 To x
m = Len(Cells(i, 1))
For k = 1 To m     '使用for循环将单元格内字符历便
If IsNumeric(Mid(Cells(i, 1), k, 1)) = False Then
a = a & Mid(Cells(i, 1), k, 1) '将得到的数值赋值给变量a
   End If
Next
Cells(i, 2) = a
a = ""
 Next
End Sub

如果只是去掉最后面的数值，可以用下面的程序。

Public Sub a()
Dim a As String
x = Range("A65536").End(xlUp).Row
For i = 1 To x
m = Len(Cells(i, 1))
a = Cells(i, 1)
For k = 1 To m
If IsNumeric(Right(a, 1)) = True Then

a = Left(Cells(i, 1), m - 1)
m = Len(a)
   End If
Next
Cells(i, 2) = a
a = ""
 Next
End Sub

回答（2）：

方法如下：

1、将Excel中的数据拷贝到Word中，在Word中按下Ctrl+H快捷键，调出“查找\替换”对话框。

2、在“查找”后面输入：[0-9]

3、在“替换”后面不输入任何字符，默认为空

4、在“Use Wildcards（使用通配符）”选项前打勾。

5、然后点击“Replace All（替换全部）”

6、将替换后的数据拷贝回Excel。

详细的步骤和说明请参见以下经验：

Excel中字符数字混合的计算

网页链接

回答（3）：

如下图，在B2中输入公式

=SUBSTITUTE(A2,LOOKUP(9E+307,--RIGHT(A2,ROW($1:$11))),"")

回车确认后下拉填充。