Question

在VBA中如何用一个数组给另一个数组赋值？

我有一个数组A是这样的，A（1，2，3，4，5，6，7，8，9)我想要设一个数组B，他的值是A数组的0，1，3，5位。也就是等于B（0，1，3，5）这个赋值应该怎么写？Dim B（4）B=A(0,1,3,5)我是这样写的，语法好像不对。

Answer 1

1．首先在Excel电子表格中选择要分配数组的单元格。

2．n、在界面中，点击“insert”和“formcontrol”中的“button”选项。

3．在接口版本的表中生成按钮控件，修改控制的名字。

4．接下来，在界面中，点击“查看代码”选项。

5．在VBA接口中继续，并输入定义一维数组的语句。

6．然后，在VBA接口中，输入一条为单元格分配权重数组的语句。

7．最后，在这个接口中，单元格成功地显示了数组分配结果。

Answer 2

通过数组循环的方式进行数组赋值。

示例：

  Dim names '定义一个初始化数组
  Dim dest(3) '定义一个要赋值的数组
  '赋值
  names = Array("小明", "小红", "效力", "张明", "王武", "", "", "", "", "", "")
  '通过Ubound()函数计算上界，LBound计算数组下界
  For i=LBound(dest) to UBound(dest)
      dest(i) = names(i);//数组赋值
  next i

Answer 3

应该循环数组并比较后赋值,或按位赋值

Answer 4

dim B() as double
redim B(4)

B(1) = A(0)
B(2) = A(1)
B(3) = A(3)
B(4) = A(5)

Answer 5

dim i%
dim A(0 Tto 8),B(0 to 3)
a=array(1,2,3,4,5,6,7,8,9)
B(0)=A(0)
B(1)=A(1)
B(2)=A(3)
B(3)=A(5)