Str добавляет дополнительное пространство

Question

Dim i As Integer 

i = Int((8 - 2 + 1) * Rnd + 2) 

Dim rg As String 
Dim con As String 

con = Str(i) 

rg = "B" & con 
MsgBox (rg) 

Это возвращает «B 4» не «B4 кто знает проблему

Answer 1

На странице Помощи по Str()

Когда числа преобразуются в строки, ведущее пространство всегда зарезервировано для обозначения номера. Если число положительное, строка содержит ведущее место, и подразумевается знак плюса.

Answer 2

Str() оставляет место для знака.

В Excel есть неявное преобразование, вы можете использовать rg = "B" & i и получить диапазон, который вы хотите

Answer 3

EXcel Concatonate строки, основанную на междунар.

Вот Дайте описание

https://stackoverflow.com/a/10004244/1504882

Answer 4

Использовать формат функции() ...

con = format(i) 

rg = "B" & con 
MsgBox (rg) 

Answer 5

с помощью функции Обрезать удалить ведущее место как в:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Dim i As Integer 

i = Int((8 - 2 + 1) * Rnd + 2) 

Dim rg As String 
Dim con As String 

con = Str(i) 

rg = "B" & Trim(con) 
MsgBox (rg) 
End Sub 

Answer 6

использования Cstr (i), а не Str (i) - Cstr не добавляет пробел