VBA数组和操作符

我正在尝试在VBA中为excel编写几行代码，这里是VB.Net版本的代码。

ThisVariable <<= 8 Variable.Add(ThisVariable) 

如何在VBA中编写这些代码行？ VBA没有“<< =”运算符，也没有数组的.Add属性。 任何帮助将不胜感激。

Answer 1

对于第一个问题，VBA没有内置位移，但是你可以添加一个为你做的function。 试试这个。

对于第二个问题，要增加数组大小，您必须使用ReDim命令。 这是关于这方面的信息。

另外，您可以使用集合而不是数组。 通过collections，您可以随意添加和删除项目。

祝你好运

Answer 2

<<=将数字左移8个二进制数字，即将数字乘以256.若要向数组中添加某些内容，可以重新调整数组的值：

 ThisVariable = ThisVariable * 256 Dim U As Long Dim L As Long L = LBound (Variable) U = UBound (Variable) ReDim Preserve Variable (L To U+1) Variable (U+1) = ThisVariable 

注意，为了添加一个元素而rediming数组效率不高。 你应该尝试find另一种方法（例如，使用一个更大的数组并将“有效”元素的数目存储在一个计数器variables中 – 或者甚至为此创build一个类模块）。