定义数组时加括号和不加括号的区别

zhangxq1991

Sub d7()
  Dim arr, arr1()
     arr = Range("a1:d6")
     Dim x, k
     For x = 1 To UBound(arr)
      If arr(x, 1) = "B" Then
         k = k + 1
         ReDim Preserve arr1(1 To 4, 1 To k)
         arr1(1, k) = arr(x, 1)
         arr1(2, k) = arr(x, 2)
         arr1(3, k) = arr(x, 3)
         arr1(4, k) = arr(x, 4)
      End If
     Next x
    Range("a8").Resize(k, 4) = Application.Transpose(arr1)
   End Sub

如上面的代码，请问在定义数组书，arr 和 arr1() ，一个后面不带括号，一个后面带括号，这两中写法有什么区别呢？

maditate

arr是普通数组，arr1（）是动态数组。
在代码运行过程中，动态数组是可以根据需要在保持数组内数据不丢失的前题下更改数组下限。普通数组不可改变。

ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。

Dim MyArray() As Integer    '声明动态数组。
Redim MyArray(5)    '分配 5 个元素。
For I = 1 To 5    '循环 5 次。
    MyArray(I) = I    '初始化数组。
Next I

下一条语句重定义该数组的大小，并清除其中的元素。

Redim MyArray(10)    '大小重定为 10 个元素。
For I = 1 To 10    '循环 10 次。
    MyArray(I) = I    '初始化数组。
Next I

下面的语句重定义该数组的大小，但没有清除其中的元素。

Redim Preserve MyArray(15)    '大小重定为 15 个元素。

小花鹿

arr不是数组，只是一个变量

maditate

小花鹿 发表于 2017-5-29 12:28
arr不是数组，只是一个变量

正确，我上面写错了，arr是一个变量。当单元格区域赋值给arr时，arr变成了数组了。

zhangxq1991

maditate 发表于 2017-5-29 12:32
正确，我上面写错了，arr是一个变量。当单元格区域赋值给arr时，arr变成了数组了。

明白了 谢谢！

OKJSJSF

maditate 发表于 2017-5-29 12:32
正确，我上面写错了，arr是一个变量。当单元格区域赋值给arr时，arr变成了数组了。

原来如此，但还不全懂。

candyluo09250

OKJSJSF 发表于 2022-4-3 20:42
原来如此，但还不全懂。

就别管这差别，数组都不要放括号就行了

f406593103

小花鹿 发表于 2017-5-29 12:28
arr不是数组，只是一个变量

正解，dim arr在未赋值前有各种可能，dim arr() 就是动态数组。

fengbao008

candyluo09250 发表于 2022-4-3 21:16
就别管这差别，数组都不要放括号就行了

Redim Preserve，只要是数组都能加这个语句吗？