如何删除Excel数字中的空格!急啊!!

Question

比如数字14349 00010002 9933
14349 00010003 1573
...
...
要把中间的空格删了,我试过用替换或者做宏,我的宏如下:
Sub 删除空格()
Dim i%
For i=1 To 17
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, MatchByte:=False
Next i
End Sub
结果出来的数据如下:
14349000100029900
14349000100031500
...
...
全部把后面2位数化为整数了.
请问各位大侠,如何快速方面的把此类空格去除.并且删除空格后能保证不以科学记数方法表现.
整列数字中不是每个都是如此的排列,有的没有空格,有的有空格;如果用分列的方法的话,那些没空格的数字就出现了科学记数,如:1.4349E+16

替换功能我试过了,一替换一样出现科学记数,如:1.4349E+16 或者出现上述中的后2位数化整为零了.....

Answer 1

1、首先，打开需要操作的Excel表格，这里以删除字母间的空格为例。先输入以下数据，在数据单元格中输入公式=SUBSTITUTE(A1," ","")，A1可以根据需要来进行更换设置。

2、输入公式后点击回车，我们可以看到，B1中的空格已经都被删除了。

3、选择已经删除空格的B2单元格，下拉，我们可以看到，之后的空格都被删除了。

Answer 2

使用SUBSTITUTE函数把 空格 置换为 空,下图为SUBSTITUTE函数及参数介绍。

2.在B1单元格输入  =SUBSTITUTE(A1," ","")    回车 

即可删除Excel数字中的空格，如下图：

Answer 3

按下ALT+F11,然后插入-模块,复制下列代码.
例如你的数据在A列,那你在B1输入=dele(a1), 然后向下填充.这样B列就是没有空格的数据了.然后你把B列数值化.再把A列删除就可以了.

Public Function dele(ByVal n As String) As String
Dim a() As String
Dim sum As String
a = Split(" " & n, " ")
sum = ""
For x = 1 To UBound(a)
sum = sum & a(x)
dele = sum
Next
End Function

Answer 4

在excel里，有一个函数是专门去除空格的，就是TRIM。该函数的语法是=trim(text)，text表示文本或者是引用的单元格地址。具体可看office联机帮助。如果数据源存才比较规范的空格，可以考虑用数据分列来去除空格。

Answer 5

选中整列，数据->分列->下一步->勾选“空格”再勾选“连续分隔符号视为单个处理”（防止单元格里空格数量不一样）->下一步->完成