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

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

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

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

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

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

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

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

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

示例：

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

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

dim B() as double
redim B(4)

B(1) = A(0)
B(2) = A(1)
B(3) = A(3)
B(4) = A(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)