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

使用Cstr（i）而不是Str（i） - Cstr不添加空格

Answer 2

从Str()

的“帮助”页面

  

当数字转换为字符串时，始终是前导空格   保留给号码的标志。如果数字为正数，则返回   string包含一个前导空格，暗示加号。

Answer 3

Str()为标志留出空间。

由于Excel具有隐式转换，您可以使用rg = "B" & i并获得所需的范围

Answer 4

使用format（）函数...

con = format(i)

rg = "B" & con
MsgBox (rg)

Answer 5

Excel根据int。

连接字符串

这是一个描述

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

Answer 6

使用修剪功能删除前导空格，如下所示：

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