在VBA Excel中

Question

删除空格我从细胞移动文本一些代码，细胞

Dim startIndex As Integer 
Dim toIndex As Integer 
Dim f As String 
Dim g As String 

For startIndex = 50 To 60 Step 2 
toIndex = Str(startIndex + 1) 
f = "F" & Str(toIndex) 
g = "G" & Str(startIndex) 
Range(f).Value = Range(g).Value 
Range(g).Value = "" 
Next startIndex 

但变量f有“F 51”值，而不是“F51”。

如何解决这个问题？ p.s.这是我在vba上的第一个代码。

Answer 1

你可以TRIM()的toIndex或REPLACE空间的最终结果，即

Replace ("alphabet", "a", "e") 'would return "elphebet" 

例如从这里升起：http://www.techonthenet.com/excel/formulas/replace.php

所以......

f = Replace (f, " ", "") 

Answer 2

您应该使用
CStr
不
Str

则需要为Str

移除unncessary空间

即

f = "F" & CStr(toIndex) 
g = "G" & CStr(startIndex) 

从Excel帮助没有解决方法当数转换为字符串，一领先的空间总是保留给号码的符号。