[已解决]再问把区域导入VBA数组

969341591

当我把一个数据区域range("a1:d5")导入到一个数组arr中时,那么此时生成的数组应该是属于静态数组,对不对?当导入后这个数组的每一个元素都已经被赋值(即D2:D4也是被赋了空值),那么我用如下代码计算金额列时是不是算给这个数组中的某些元素(D2:D4区域)中的arr(2,4),arr(3,4),arr(4,4),arr(5,4)重新赋值了?
Sub aa()
      Dim arr
      Dim x%
           arr = Range("a1:d5")
      For x = 2 To 5
          arr(x, 4) = arr(x, 2) * arr(x, 3)
      Next x
End Sub
xx.rar (5.79 KB, 下载次数: 5)

2014-2-22 20:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

风林火山

2014-2-22 20:10

1. Sub aa()
   
2.       Dim arr
   
3.       Dim x%
   
4.            arr = Range("a1:d5")'定义数组
   
5.       For x = 2 To 5
   
6.           arr(x, 4) = arr(x, 2) * arr(x, 3)'重新赋值
   
7.       Next x
   
8.       range("a1").resize(5,4)=arr‘将数组重新显示在目标区域
   
9. End Sub

复制代码

跳转到最佳答案楼层

风林火山

1. Sub aa()
   
2.       Dim arr
   
3.       Dim x%
   
4.            arr = Range("a1:d5")'定义数组
   
5.       For x = 2 To 5
   
6.           arr(x, 4) = arr(x, 2) * arr(x, 3)'重新赋值
   
7.       Next x
   
8.       range("a1").resize(5,4)=arr‘将数组重新显示在目标区域
   
9. End Sub

复制代码

l00l00

是的，已经赋值了。  你理解的应该是正确的

fffox

1、arr是一个variant变量，是可以随时变化的。当前把一个单元格区域的数值赋值给arr，arr就表现为数组。当把arr赋值为数组后，还可以把arr再次赋值为一个数值，或其他对象。
2、静态数组是指在声明时指定数组的维数、类型，在使用时不能变更其维数；动态数组在声明时没有指定维数，在使用前需要声明其维数。
3、数组的内容在代码中是可以变更的，不管是静态数组还是动态数组。