VBA提高篇_15 二维数组

二维数组的声明

Dim 数组名(最大行,最大列) as 数据类型

二维数组最小下标是从(1,1)开始,而不是(0,0)

声明一个动态数组
Dim a()
a = Range("A2:C3")

• 用于从Range读取内容的数组,
  • 必须声明为动态数组 s()
  • 而且必须为变体类型 s()
  • 动态数组下标自动从1开始,即使只有一行此时也是二维数组

二维数组的输出

如果数组用于把内容输出到Range,而不是从Range读取内容,那么 :
1. 可以是固定长度数组
2. 可以是任意类型数组
3. 下标可以是任意范围,不必从1开始

一维数组与Range对象

一维数组不能从Range中读入数据
但是可以把自己的内容写到Range中

1. 写入工作表某行: 直接复制给Range(的Value属性
2. 写入工作表某列: 先试用Transpose函数对数组转置

关于多维数组

可以引进方阵概念,更好理解

Sub 二维数组() '数组循环操作,尽量使用Ubound(最大下标) 和 Lbound(最大下标)来进行操作 优势: 代码灵活效率高

    Dim a(), i, j
    
    a = Range("A1:F9")
    
    For i = 1 To 9 'Ubound(a,1)
    
        For j = 1 To 6  'Ubound(a,2)
        
            a(i, j) = a(i, j) \ 25
        
        Next j

    Next i
    
    Range("A1:F9") = a