如果汉字在中间位置或者毫无规律,可采用如下两种方法。
1、复制到WORD中替换
复制所有数据到word中,使用替换功能。
通配符打勾,查找内容填入[!0-9],替换内容为空。
全部替换后,复制数据回到excel中。
2、VBA方法
复制如下代码到vba模块中,在excel中使用公式即可。
FunctionDel_Chi(myRange As Range)
On ErrorResume Next
Dim myText AsString
Dim i AsSingle
For i = 1 ToLen(myRange)
IfIsNumeric(Mid(myRange, i, 1)) Then
myText =myText & Mid(myRange, i, 1)
End If
Next
Del_Chi =myText
End Function
如果只是最后多了个"元"字,很简单,
如A1=240元
在B1输入:
=left(a1,len(a1)-1)
如果还有其他文字,且数字在单元格里面的位置不确定的话,公式要复杂点.
编辑--查找替换
输入“元” 替换成“”这里不输入字就行了
意思就是把“元”替换成没有了