我有问题 连接"&"和两个值 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。

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

那么你有一个语法错误，声明erow,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