一数组 array

1.1 什么是数组？具体的例子

以这个语句为例子
arr1=array(1, 2, 3)
左边：变量名=数组名

右边：数组，集合，多个元素集合，多个数据集合，
右边的单个内容，1,2,3 是数组的元素/下标变量
每个元素存储时，会标记1个（看不见的）index 索引下标

1.2 什么是数组，抽象的定义：数组也是变量，是一种可存储多个数据的特殊变量

VBA或其他语言里，变量是用来存储数据的。
而一般来说，1个变量只能用来存储1个数据
现在来了1个特例，有高手发明了数组的概念：数组是一个特殊的变量，可以用来存储多个数据！（甚至是多维的多个数据！）
数组就是多个单位/元素（element）有序的,连续存储在一起作为一个整体，统一叫1个名字（数组名）

1.3 数组的特点，index有序不重复，但数组的元素却可以重复

什么叫有序？
就是数组的内容存储是有序的
index 是有序（一般是从小到大）
index也应该是连续的，暂时没见过 index不连续的情况
index也不能重复
但是数组存储的内容，是可以重复的

数组的index下标默认是从0开始的，比如split生成的，还有未指定index下标的，如 dim arr1(5)
但是数组的index下标也有从1开始的情况，比如range 赋值的变量，默认下标从1开始，如 arr2=range("b1:d5")
数组的index下标受控制的情况模块最前面 option base -1
数组index下标最好自己定义好，如 dim arr3(1 to 5)

Dim arr1(3) '其实是0-3，有4个元素
Dim arr1( 1 to 3) '其实是1-3，有3个元素
Option base 1

Sub test_array1()
Dim arr1()
Dim arr2()
arr1() = Range("c1:c13")
arr2() = Range("c1:o1")
For i = 1 To 13
   Debug.Print arr1(i, 1)
Next i
For i = 1 To 13
   Debug.Print arr2(1, i)
Next i
End Sub

1.4 数组的核心内容：就4个: 维数，每个维度大小，数据类型，数据

举例：

dim arr1(5) as integer

dim arr2(2 to 6) as string

dim arr3(3,5) as integer

数组的维数 : 数组可以是1维，2维等等，但数组的维数和嵌套不同！
每个维数大小：每个维数的 lbound() to ubound()
数组存储数据的类型：可以是单一的，也可以是variant 变化的
数组存储的内容：每个值的具体内容

2 数组的分类

这些概念拿到前面说，是因为自己作为新手，发现很容易弄混概念，分不清什么静态数组，什么是界定清晰的数组？
数组定义和静态动态是相关的，
数组赋值也是和这些概念相关的，比如，静态数组不能被整体赋值，动态数组赋值前，要先界定清晰维数和大小等。

2.1 什么叫完备(界定清晰)的数组，什么叫不完备的数组?---主要是指数组的维数，维数大小（一般不管数组的数据类型）

完备（界定清晰）数组：数组的维数，每个维度长度都确定的数组。这样的数组可以给单一元素赋值操作，但如果是静态数组，数组不能被整体赋值。
不完备（界定清晰）数组：数组的维数，每个维度长度不确定的数组，这样的数组可以整体赋值（变相确定数组维数和大小），但是没法单一元素赋值

举例
dim arr1(5) as integer 这个就是一个界定清晰的数组！ dim arr1(5) as integer 等价于 dim arr1(0 to 5) as integer
而
dim arr2() 等价于 dim arr2 () as variant 这个其实就没有界定数组的维数，每个维数的大小是不清晰的。

Sub try2()
Dim arr1(5)
Dim arr2()
Dim arr3()
ReDim arr4(2)
arr1(0) = 1
'arr1 = array(1, 2, 3, 4, 5)   '不能给数组赋值，是不能给静态数组整个赋值？
'arr1() = Array(0, 1, 2, 3, 4, 5)
Debug.Print Array(1, 2, 3, 4, 5)(0)
arr2() = Array(1, 2, 3)
'arr3(0) = 1   '数组使用前，必须先redim 界定清晰(并不就是静态数组, redim arr3(2)虽然是动态的，也是界定清晰的)才可以赋值和使用
ReDim arr3(2)
arr3(0) = 555
Debug.Print arr3(0)
arr3 = Array(10, 20, 30, 40, 50)   '动态数组可以被整体赋值
Debug.Print arr3(1)
End Sub

2.2 什么叫静态数组，动态数组 ( VBA里没有static 和 dynamic关键字，不好判断)

数组何谓静态，动态？
数组的4个关键要素：维数，维数大小，数据类型，数据。
数据肯定可以改变，这是变量的基本特点。而数据类型，在数组定义时已经显式的声明，或者缺省为 variant了
所以数组可以动态改变就是指：数组的维数和每个维数大小是否可以改变
静态还是动态，和数组的变量类型无关
静态还是动态，不是dim的一定是静态数组，dim arr1() 是动态数组

静态 static 一般指定义后不再可以修改的。在这里具体指数组的维数，每个维数的大小不可改变
动态 dynamic 一般指定义后，在运行代码过程中还可以被改变的。在这里具体指数组的维数，每个维数的大小可改变
如果可以 dim arr1() as static 或 dim arr2() as dynamic 就很清晰，但VBA里不是这样

但是VBA里不是这样----和数组的变量类型无关。
静态数组：
dim arr1(4) 这样就是静态数组

动态数组：
dim arr1() 这样就是动态数组，dim arr1() 和 redim arr1() 联动
redim arr2(3) 这样也可以动态定义，redim就是动态定义，不能redim arr1(5)

静态数组特点：

静态数组不能再次dim，也不能redim
静态数组不能在改变大小
静态数组也不能被一个数组赋值（整体赋值）

动态数组特点：

动态数组，可以被整体赋值为一个数组。
动态数组如果想对某一个值进行赋值或修改，需要先把维数和维数大小声明清楚后才可以。

2.3 数组的数据类型：只是决定了，数组存储的数据的数据类型，和动态/静态无关

数组的数据类型

integer
string
variant （默认缺省）可以存储变量的数组，而因为变量本身可以存储各种类型，所以数组可以存储各种类型的数据。但是占据空间大。

定义数组的数据类型的差别

如果定义为如下几种，所有元素都只能是这种类型的数据，否则会报错
如果 dim arr1(3) as integer
如果定义为 din arr1() as variant 或 dim arr1() 缺省，都会默认为，可以存储变量的数组。

2.4 什么叫1维数组，什么叫2维数组？

数组的维数
1维数组，arr1(i)
2维数组，arr2(i,j)
3维数组，arr3(i,j,k)

维度这个概念，一般是空间的概念
我理解数组的维数，肯定是多维坐标轴能表示的，虽然不一定和多维空间联系起来。
我理解多和维度是相乘的关系。
比如具体到EXCEL的数据，1维是行，2维是行*列，3维是行*列*sheet名，4维是行*列*sheets* workbooks

直接VBA定义的数组，少数特殊
array(1,2,3) array() 只能生成1维数组
而直接 dim arr1(i,j,k) 是3维数组，或更高维都可以。

来自工作表的数组，最多只可能是2维数组，不可能是3维数组（少数特殊情况下是一维数组）
[{}] 这个类[a1:c10] 和 range("a1:c10") 其实就是类工作表的区域
[{1,2,3}] 是1维数组， [{1,2,3;4,5,6}] 是2维数组， [{1,2,3;4,5,6;7,8,9}] 并不是3维数组，而是2维数组
range("a1") range("a1:a10") range("a1:c10") 都是二维数组虽然EXCEL也会行列首尾相连，视为一维数组，但是还是当二维数组来的准确
用transpose 转化1列为1行，只是1维数组，而不是二维数组，这个很难记住。我觉得还是不用transpose 全当二维数组用来的准确

Sub try4()
a = [{1,2,3}]
Debug.Print a(2)
b = [{1,2,3;4,5,6}]
Debug.Print b(1, 1)
c = [{1,2;3,4;5,6}]
Debug.Print c(3, 2)
Debug.Print "数组区域如果是来自EXCEL的1行或1列，本质是2维数组，但EXCEL会把区域先行后列前后连接为1个1维数组，也可以看做1维度"
Debug.Print Range("a1:a3")(3)
Debug.Print Range("a1:a3")(3, 1)
Debug.Print Range("a1:c1")(3)
Debug.Print Range("a1:c1")(1, 3)
Debug.Print "取的EXCEL表的区域，也可以自动前后组合为1个1维数组"
Debug.Print Range("a1:c2")(5)
Debug.Print Range("a1:c2")(2, 2)
Debug.Print "单行但列也可以trasnpose"
Debug.Print Range("a1:a3")(3)
Debug.Print Range("a1:a3")(3, 1)
Debug.Print Application.Transpose(Range("a1:a3"))(3)
'Debug.Print Application.Transpose(Range("a1:a3"))(1, 3)  '工作表的1列组被transpose为1行，只被识别为1维数组，记不住！还不如不transpose 当二维数组用简单，真麻烦
'd = Application.Transpose(Range("a1:a3"))
'Debug.Print d(1, 3)
'Debug.Print Application.Transpose(Range("a1:a3"))(1, 3)
Debug.Print Application.Transpose(Application.Transpose(Range("a1:a3")))(3, 1)
End Sub

举例

一维数组
dim arr1(1) '并且index从0开始
array(1,2,3,4,5) '并且index从0开始
[{1,2,3}] '因为来自工作表，所以index从1开始

二维数组
range("a1")
range("a1:a10")
[{1,2,3,4,5;6,7,8,9,10}]
[{1,2,3;4,5,6;7,8,9;7,8,9;7,8,9;7,8,9;7,8,9;7,8,9;7,8,9}]
dim arr1(3,5) '并且index从0开始

三维数组
dim arr1(5,6,3) '并且index从0开始

2.4 什么叫嵌套数组

数组作为其他数组的元素，叫嵌套数组，并不是多维数组
arr1=array(1,2,3)
arr2=array(arr1,1,2,3)

3 数组的定义

3.1 如何定义数组？类定义变量

定义变量
dim a
定义数组，需要带括号。
dim a()
dim b(1,2)

3.2 数组定义有哪些方式？

只有3种方式
dim
dim 配合 redim
redim

声明数组需要用到 dim 和redim
声明静态数组
dim arr1(5) 或 dim arr1(5,3)

声明动态数组
dim arr1()
redim 用于过程级声明动态数组变量，配合 dim arr1() 使用

3.3 dim的一定是静态数组，redim 一定是动态数组吗？ NO，dim可以定义静态数组或动态数组

dim 可以定义静态/动态数组。

dim arr1() 数组只能dim 一次，否则就是重复dim定义数组了
redim 是动态定义， redim时，必须带上维数，长度等

数组定义
dim 数组名()
dim arr1(4) 这样就是静态数组
dim arr1() 这样就是动态数组，dim arr1() 和 redim arr1() 联动

redim 其实算不上定义
与 Dim 语句、Static 语句不同，ReDim 语句是一个可执行语句，由于这一语句，应用程序在运行时执行一个操作。
redim arr2(3)
注意，如果是 redim preserve 则只能修改数组的最后1维的大小，而且不能修改数组的维数！！
只是redim 则很自由，随意

Sub try6()
Dim arr1()
ReDim arr1(5)
arr1(3) = 111
ReDim Preserve arr1(6)
Debug.Print arr1(3)
ReDim Preserve arr1(10)     '因为1维数组只1维，用preserve 保持1维，随便改大小
Debug.Print arr1(3)
'ReDim Preserve arr1(2 To 12)     '因为1维数组只1维，用preserve 保持1维，但可以改变上界，扩大缩小都可以
'Debug.Print arr1(3)
ReDim Preserve arr1(0 To 9)     '也可以缩小
Debug.Print arr1(3)
'ReDim Preserve arr1(1 To 15)     '用preserve 不能改变index的下界限
'Debug.Print arr1(3)
ReDim Preserve arr1(0 To 2)     '因为1维数组只1维，用preserve 保持1维，但如果preserve 掉了老数据，则可能取不到 arr1(3)
'Debug.Print arr1(3)             ' 这样取不到arr1(3)
'ReDim Preserve arr1(5, 5)   ' 会提示下标越界,因为用了preserve关键字，则只能改变最后一维的大小，而不能改变维数
'Debug.Print arr1(3, 1)
ReDim arr1(5, 5)             '不用preserve 则 redim 随便改
Debug.Print arr1(3, 1)
End Sub

3.4 数组定义的总结

什么叫数组的定义？定义什么?
基础定义：就是把一个变量定义为数组
完整定义，声明：把1个变量定位为数组，并且声明数组的维数，大小，数据类型！

定义时可以完备，也可以不完备
不完备的声明，把变量定义为数组，如 dim arr1() 这种一般要和 redim arr1 配合使用
比较完备的声明：把变量定义为数组的同时，也定义数组的维数，维数的大小，数组的数值类型 dim arr1(5) as interger 或 redim arr2(2)

例子

Sub try1()
Dim arr1()
Dim arr2(1 To 3)
ReDim arr3(1, 5)
ReDim arr1(2)
arr1(0) = 1
arr2(1) = 55
arr3(1, 1) = 666
a = arr1
c = arr1()
ReDim arr1(5)
'ReDim c(6)        '变量a,b.c.d等只是指向数组，本身还是个变量，并不是数组
b = arr3
d = arr3()
ReDim arr3(2, 6)
'ReDim b(2, 6)    '变量a,b.c.d等只是指向数组，本身还是个变量，并不是数组
Debug.Print arr1(0)
Debug.Print arr2(1)
Debug.Print arr3(1, 1)
Debug.Print a(0)
Debug.Print b(1, 1)
Debug.Print c(0)
Debug.Print d(1, 1)
c = "abc"        '变量a,b.c.d还是变量，还可以改变其指向的内容
Debug.Print c
End Sub

3.5 不同的数组，index的下界 lbound() 默认值不同，VBA的数组一般默认是0，来自EXCEL表的默认为1

不同的数组

数组函数定义的内容，arr1= array(1,2,5)
数组可以是excel的range() 单位赋值而成的变量/对象，如 arr1=range("a1:c10")
比如这样也是数组 arr1=[{1,2,3}]
MS 出了一个 sequence() 函数，暂时还没用过

VBA的数组定义

用VBA的一维数组函数array() 或者 dim 或者 redim 这几种方法，默认index从0开始
当然 dim 或者 redim 可以声明从1开始或从其他开始
比如 dim arr2(1 to 3) 或 option base 2 等等

来源于工作表的数组定义

而从工作表区域赋来的数组，无论是1维还是2维，index都从1开始
[{}] 这种赋值方式，我认为是偏工作表的，所以index也从1开始
因为 [a1:b5] 就等同于 range("a1;b5")
一般情况下，存储相同类型的多个数据 dim arr1 as variant
也可以存储不同类型的多个数据

Option Explicit
Sub testArr1()
'Dim arr1() As Integer  '这样定义数组是不够的，只定义了是数组，没定义维数和大小，可以试试这样会在赋值时报错
Dim arr1(3) As Integer  '定义为integer了，默认至少是0,而不是空
Dim i
arr1(0) = 0
arr1(1) = 1
arr1(2) = 2
'arr1(3) = "abc"  '这样会报类型不匹配
For i = LBound(arr1, 1) To UBound(arr1, 1)
   Debug.Print arr1(i)
Next
End Sub
Sub testArr2()
'静态数组，静态在维数不变，长度不变，具体的某个内容可以变化
'Dim arr2 As Variant '错误写法
Dim arr2(2) As Variant   '定义了一个静态数组，且为存储为变量类型
Dim i
arr2(0) = 1
arr2(1) = "a"
For i = LBound(arr2, 1) To UBound(arr2, 1)
   Debug.Print arr2(i)
Next
End Sub

4 把数组赋值给其他变量 (变量只是指向数组，但变量不是数组！)

直接给变量赋值一个数组，相当于把变量定义为了数组，比如 dim arr1() 然后 a=arr1() ，也有 b=array(1,2,3)
随便 a=arr1()
变量指向了数组，可以用 a(1) 指向arr1(1)
但是a 仍然是变量，不是数组，所以不能redim a
所以我现在这种写法里，虽然没有声明 option explicit ，如果声明了 option explicit 就必须先定义 dim a 或 dim a as variant ，也就是a 是变量，而不是数组。只是数组也可以赋值给变量a
每个变量的类型是，定义时声明的，赋值不改变数据类型，只能改变变量里存储的内容。

5 给数组赋值

静态数组
可以给静态数组的单个元素赋值改变，但不能给静态数组整体赋值
动态数组
可以给动态数组的单元元素改变赋值，也可以整体改变赋值
但给动态数组单个元素赋值时，需要先声明数组的维数和大小，否则报错

Sub try2()
Dim arr1(5)
Dim arr2()
Dim arr3()
ReDim arr4(2)
arr1(0) = 1
'arr1 = array(1, 2, 3, 4, 5)   '不能给数组赋值，是不能给静态数组赋值？
arr2() = array(1, 2, 3)
'arr3(0) = 1   '数组使用前，必须先redim 界定清晰(并不就是静态数组, redim arr3(2)虽然是动态的，也是界定清晰的)才可以赋值和使用
ReDim arr3(2)
arr3(0) = 1
End Sub

二数组的使用(老文档！)

2.1 数组使用前，必须先定义维数和大小

特别是动态数组，使用前必须先redim() 数组大小后才可以使用

静态数组因为事先声明过了，所以可直接使用
变量可以不事先定义，也可以不赋初值，不同类型的变量，默认初值不同
数组必须实现声明大小后才可以使用，包括运算，或者赋值

Sub test4()
Dim arr1()
ReDim arr1(11)  '不redim会报错
j = 1   'j=1也不会出错，但是arr1(0)会为空，不会被赋值
For i = 1 To 11 Step 1
If Not IsEmpty(Cells(i, 1)) Then
 arr1(j) = Cells(i, 1)
 j = j + 1
End If
Next i
For j = 0 To UBound(arr1())
Cells(j + 1, 9) = arr1(j)  '单元格得从1开始，arr()得从0开始
Next j
End Sub

2.2 数组的赋值与数组项的赋值

静态数组的数组名不能被（整体）赋值，只有数组的元素，变量，对象可以被赋值

变量，对象，本身是可变的，可以被赋值为数组，也可以赋值为其他内容，其他数组，可以被整体赋值
动态数组，也可以整体赋值，甚至改变维数
静态数组，只能赋值改变其1个元素，不能被整体赋值改变为其他内容

Sub test001()
Dim arr1(3)               '如果已经声明为数组名了，arr1就代表arr1(),以后就不能给数组赋值
Dim arr2  As Variant      '相当于dim arr2
Dim arr3 As Object
'arr1 = Range("a1:c1")     '不能给数组整体赋值？ 只能给数组里的元素赋值？arr1 = Range("a1:c1").value 也不行
arr1(0) = Range("a1")      '可以给数组的某个元素赋值
arr2 = Range("a1:c1")      '可以给变量赋值，赋予这个变量整个数组
Set arr3 = Range("a1:c3")  '可以把EXCEL的range 赋值给变量，或对象。然后默认都成为了2维数组。
Range("b2:c2") = 9999
Debug.Print "arr1(0)=" & arr1(0)
Debug.Print "arr2(1,1)=" & arr2(1, 1)
Debug.Print "arr3(1,1)=" & arr3(1, 1)
End Sub

Sub test1002()
Dim arr1(10)
Dim arr2()
Dim arr3
'如果先定义为静态数组
arr1(0) = "a"    '注意如果写成arr1(0)=a ，赋值内容其实为空,因为变量是a,未赋值。
arr1(1) = 1001
For Each i In arr1
    Debug.Print i & " ";
Next
Debug.Print
'arr1 = Range("a1:a11")  '不能给数组赋值，其实就是不能整体赋值
For Each i In arr1
    Debug.Print i & " ";
Next
Debug.Print
'如果先定义为动态数组,也很灵活
arr2 = Range("a1:a5")
For Each i In arr2
    Debug.Print i & " ";
Next
Debug.Print
arr2 = Range("b1:b7")
For Each i In arr2
    Debug.Print i & " ";
Next
Debug.Print
'变量是很灵活的
arr3 = Range("a1:a3")
For Each i In arr3
    Debug.Print i & " ";
Next
Debug.Print
arr3 = Range("b1:b5")    'arr3是变量，可以改变维度，大小都行
For Each i In arr3
    Debug.Print i & " ";
Next
Debug.Print
End Sub

3 数组的范围

3.1 数组的index 下限和上限：LBound(arr) 和 UBound(arr) ，数组的维数从1开始 lbound(arr1,1 ) 或 lbound(arr) 默认都是第1维

没有第0维得概念，
不要和index可能从0开始搞混!

1维下限 lbound(arr,1) lbound(arr)
2维下限 lbound(arr,2)
3维下限 lbound(arr,3)

Sub 测试1()
Dim arr1 As Variant
arr1 = Range("a1:c4")    
Debug.Print arr1(3, 3)
Debug.Print LBound(arr1)
Debug.Print UBound(arr1)
Debug.Print LBound(arr1, 2)  '二维数组，第1维默认是行数，往下数！
Debug.Print UBound(arr1, 2)  '二维数组， array(row,column)
Sub 测试2()
Dim arr2()
arr2 = Range("a1:c4")
Debug.Print arr2(3, 3)
Debug.Print LBound(arr2)
Debug.Print UBound(arr2)
Debug.Print LBound(arr2, 2)
Debug.Print UBound(arr2, 2)
End Sub
Sub 测试3()
Dim arr2()
arr2() = Range("a1:c4")
Debug.Print arr2(3, 3)
Debug.Print LBound(arr2)
Debug.Print UBound(arr2)
Debug.Print LBound(arr2, 2)
Debug.Print UBound(arr2, 2)
End Sub
End Sub

4 静态数组

4.1 静态数组定义等

静态数组定义的语法：
dim arr1(10) as string ，index是从0开始,包含11个元素
dim arr2(5 to 10) as string

Sub t3()
Dim arr(10) As String
For i = 1 To 10 Step 1
arr(i) = i
Debug.Print (arr(i))
Next i
Debug.Print arr(5)
Debug.Print arr(0)   '不显示下标越界
Debug.Print arr(11)  '会显示下标越界
End Sub

4.2静态数组是不能redim的

Sub t3()
Dim arr5(1 To 5) As Integer
ReDim arr5(1 To 10) As String   '不能对静态数组redim改变大小
End Sub

5 动态数组

5.1 动态数组定义

dim arr1() 或 dim arr3() as string
不定义，直接赋值，比如arr1=range() 或 set arr1=range()

数组重定义：redim
只能重定义动态数组！也必须重定义大小！不redim前无法使用
redim时，下标可以是变量

Sub t3()
Dim arr3() As Integer  '如果定义dim arr3 as integer 会成为一个变量
Dim arr4() As Integer
For i = 1 To 5 Step 1
   ReDim arr3(1 To i)  '使用数组的内容之前，必须先redim 否则会显示下标越界
   ReDim arr4(1 To i)
    arr3(i) = i
    arr4(i) = i
    Debug.Print (arr3(i))
    Debug.Print (arr4(i))
Next i
End Sub

5.2 只有动态数组才能，也必须redim，静态数组不要redim

静态数组就不要再redim
动态数据就一定需要redim

Sub t4()
Dim arr2()
Rem Dim arr2(5, 6)  '使用动态数组 redim就不要和 静态数组定义格式混用
For i = 0 To 5 Step 1
For j = 0 To 6 Step 1
ReDim arr2(0 To i, 0 To j)  '动态数组，必须在使用前redim '如果要用静态数组也可以，但不要再redim了！
arr2(i, j) = i + j
Debug.Print arr2(i, j)
Next j
Next i

5.3 如果数组赋值时指向EXCEL对象，是二维数组，不能这么使用arr(1)，而是arr(i,j)

指向excel对象，比如range() 的默认为2维数组，因为EXCEL表本身就是二维数组！
二维数组的下标，需要用excel里的r1c1模式
因为是二维数组，不能这么使用，即使只是1行或者1列数，但仍然是二维数据结构！
arr1()=range("a1:e1") 虽然看起来只是a1 b1 c1 d1 e1 这5个数，但由于是在excel表里的对象，是二维的

Sub t3()
Rem Dim arr6 As Integer
arr6 = Range("a1:a5")
Debug.Print arr6(1, 1)
Debug.Print arr6(2, 1)
Debug.Print arr6(3, 1)
Debug.Print arr6(4, 1)
Debug.Print arr6(5, 1)
End Sub

6 二维数组

dim arr1(4,5) as string
dim arr1 (0 to 4,0 to 5) as intege

Sub t4()
Dim arr1(0 To 4, 0 To 5) As Integer
arr1(0, 0) = 999
Debug.Print arr1(0, 0)
End Sub

7 定义三维数组

定义静态3维数组

Sub t4()
Dim arr3(3, 4, 5)
arr3(0, 0, 0) = 888
Debug.Print arr3(0, 0, 0)
End Sub

定义动态3维数组


Sub test1001()
Dim arr1()
m = 1
For i = 1 To 3
    For j = 1 To 3
        For k = 1 To 3
            ReDim arr1(i, j, k)
            arr1(i, j, k) = m
            Debug.Print "arr1(i, j, k)=" & arr1(i, j, k)
            m = m + 1
        Next
    Next
Next

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。

一 数组 array