4

テキストをセルからセルに移動するためのコードがいくつかあります

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 の値は「F51」ではなく「F 51」です。

この問題をどのように解決しますか? ps vbaでの私の最初のコードです。

4

2 に答える 2

15


CStr
notを使用する必要があります
Str

その後、不要なスペースを削除するための回避策は必要ありません

すなわち

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

エクセルのヘルプからStr

数値が文字列に変換されるとき、先頭のスペースは常に数値の符号用に予約されています。

于 2012-05-14T00:12:10.263 に答える
8

TRIM()最終結果にtoIndexまたはREPLACEスペースを含めることができます。

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

ここから持ち上げた例: http://www.techonthenet.com/excel/formulas/replace.php

そう...

f = Replace (f, " ", "")
于 2012-05-13T18:08:10.533 に答える