我在使用“&”和两个值 VBA excel 连接时遇到问题

Question

我对这段代码有疑问，它向我显示错误，为什么会这样？

dim aData   as Variant
dim TBNumV  as Long
eRows       as Long
aData.value="433-333-"
TBNumV.value=0635
eRows=15
Range(eRows, 2).Value = aData.Value & TBNumV.Value

Answer 1

如果你用点写东西，你指的是一个方法或一个对象的属性。 Range 是一个对象并且具有（除其他外）属性 Value（它还具有其他属性，如字体、地址、内部...）。

像 Long 这样的简单变量不是 VBA 中的对象，它没有属性，您只需写成 TBNumV = 0635.

Variant 是一个特例，Variant 可以是任何东西，这取决于你如何使用它。您可以将对象分配给变体变量（但您不会在代码中这样做）。您将它用作一个简单的变量，并希望为其分配一个字符串：aData = "433-333-"。您可以考虑将 aData 声明为 String，仅在确实需要时才使用 Variant。

那么您在声明 eRows 时遇到语法错误，缺少 Dim 语句。

Range 的语法错误。要么写 Range("B" & eRows) 要么你可以使用 Cells(eRows, 2).

Dim aData   As Variant
Dim TBNumV  As Long
Dim eRows       As Long
aData = "433-333-"
TBNumV = 635
eRows = 15
Cells(eRows, 2).Value = aData & TBNumV

我在使用“&”和两个值 VBA excel 连接时遇到问题

I have problem Concatenate with "&" and two value VBA excel

vba