Question

在excel中怎样删除一列数据中的文字？

即我要删除这一列数据中（包含字母和数字）的文字，即文字是不要的，要从字母和数字组成的数据中删除，但是含有字母和数字的数据不受影响。文字是不确定的。请高手解答，不胜感激！！

Answer 1

如下代码可实现保留数字，字母（包括大小写）字符，删除单元各中其他字符。

Sub Delete_Db()
Dim myRange As Range
Dim i As Single
Dim myText As String
myText = ""
For Each myRange In Selection
For i = 1 To Len(myRange)
If (Asc(Mid(myRange, i, 1)) >= 48 And Asc(Mid(myRange, i, 1)) <= 57) _
Or (Asc(Mid(myRange, i, 1)) >= 65 And Asc(Mid(myRange, i, 1)) <= 90) _
Or (Asc(Mid(myRange, i, 1)) >= 97 And Asc(Mid(myRange, i, 1)) <= 122) Then
myText = myText & Mid(myRange, i, 1)
End If
Next
myRange = myText
Next

End Sub

Answer 2

用vba就行了，已测试通过
假设需要删除文字的是第一列
哪里不懂的话可以问我

Public Sub 痒痒养羊()
For i = 1 To Cells(1, 1).End(xlDown).Row
Dim strnum As String
strnum = ""
For j = 1 To Len(Cells(i, 1))
st = Mid(Cells(i, 1), j, 1)
If IsNumeric(st) Or (Asc(st) > 64 And Asc(st) < 91) Or (Asc(st) > 96 And Asc(st) < 123) Then
strnum = strnum & st
End If
Next
Cells(i, 1) = strnum
Next
End Sub

追问

那请问下VBA去哪里找呀，我对excel不熟，能不能说的具体点，谢谢啦！

追答

在打开excel后，按快捷键alt+F11可以进入vba界面，点击菜单栏——插入——模块，可以插入一个模块，然后把我的代码复制进去，然后用快捷键F5即可运行。
不过我的代码假设你需要操作的那一列是第一列，如果你的那个不是第一列还要稍微改一句代码
如果懒得自己弄可以发过来我帮你弄，
yang881119@sina.com
如果涉及数据保密不方便可以只把那一列发给我
还有啥问题也可以hi我

追问

非常感谢你的详细回答，可是我按alt+F11后没有反应，我在工具里面找到“宏”，然后后面除了“安全性”外，其他都是灰色的，我把安全性降到最低了，还是不行，请问是我要安装什么东西才行吗？

追答

很可能因为你的office当初安装时不是完全安装，而是自定义的安装，或者不是完整office版本，把那一列存到excel发过来我给你弄吧，这个问题用函数是没法实现的，只能用宏了
yang881119@sina.com
或者你重装一遍完整版的office，不过那样太费事咯

追问

非常谢谢你，我发给你了，麻烦你帮我弄下哈

追答

收到信了，没有附件，是不是忘传附件咯？再发一遍吧

Answer 3

除了手工一个一个改外，神仙也许有办法帮你。。。。。。。