删除单元格中的空格 - VBA

时间:2014-01-26 17:18:14

标签: vba excel-vba excel

我在excel中有以下字符串:

“163,40 3,10 1,86 163,30 163,40 167,00 163,30 435862329”

我将此列拆分为8个单独的列 - 每个数据块一个列都没有问题。但我看到第一列 - 这里163.40被截断,所以它变成163 - 从浮点数到整数。后来我意识到这是因为数字前面有四个空格 - “163.40”。

所以我的问题是如何删除这四个空格 - 而且只有这四个空格。 这将解决我的问题。

有什么想法吗?

2 个答案:

答案 0 :(得分:2)

使用下面使用的Mid功能解决您的问题。

Mid(text, 5, Len(text))

答案 1 :(得分:0)

假设您的源字符串位于单元格A1中,并且您需要第2行中的8列数据;请参考以下代码:

Function SplitMyData()

Dim var As Variant

var = Split(Trim(Range("A1").Value), " ", , vbTextCompare)

For i = 0 To UBound(var)
    Cells(2, i + 1).Value = var(i)  'Pasting vals in row 2
Next

End Function

您可以根据需要更改源和目​​标单元格引用。 :)