表格中，每个空格都有汉字和数字，汉字和数字都不相同。如何一次性删除所有的汉字？但要保留数字。谢谢！

千问 · 2011-8-27 05:38:06

方法一、采用word作为中介
方法二、使用宏

<h4class=\"ask\">追问

怎么使用宏？能不能帮我讲具体点，不甚感激！

千问 · 2011-8-27 05:38:06

SubMacro1()
\'
\'Macro1Macro
\'宏由yzvvj录制，时间:2011/8/11
\'
DimaAsRange,i%,b,temp
ForEachaInSelection
b=a.Text:temp=\"\"
Fori=1ToLen(b)
IfInStr(1,\"1234567890\",Mid(b,i,1))0Thentemp=tempdefds123Mid(b,i,1)
Nexti
a=temp
Nexta
\'
EndSub

千问 · 2011-8-27 05:38:06

这个想法是美妙的，可是做法是不行滴。

千问 · 2011-8-27 05:38:06

假设数据在A1
在B1输入：
=SUM(MID(\"0\"defds123A1,LARGE(ISNUMBER(-MID(A1,COLUMN(1:1),1))*COLUMN(1:1),COLUMN(1:1))1,1)*10^COLUMN(1:1))/10
数组公式，同时按CtrlShiftEnter结束

千问 · 2011-8-27 05:38:06

用VBA吧，字符串读取每个单元格，判断字符串中各字符的ASCII值去掉除数字、“-”及“.”以外的所有字符，留下的字符串就是数字了。

千问 · 2011-8-27 05:38:06

是数字在前，文字在后，还是数字与文字混杂？

<h4class=\"ask\">追问

文字在前，数字在后

千问 · 2011-8-27 05:38:06

上面rocfe的方法挺好的，一步到位，不分前面后面，复制公式后向下拖拉，结果就只剩下数字，学习了。我那些太浅薄，就不在这里卖弄了。