删除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".

怎么解决这个问题？ps这是我在vba上的第一个代码.

Answer 1

你应该用
CStr
不
Str

然后,不需要解决方法来移除不必要的空间

即

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

从Excel帮助 Str

将数字转换为字符串时,始终为数字符号保留前导空格.

Answer 2

你可以在最终结果中TRIM()使用toIndex或者REPLACE空格,即

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

示例从这里解除:http://www.techonthenet.com/excel/formulas/replace.php

所以...

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