VBA提高篇_15 二维数组

pigerr杨

已于 2023-02-06 09:29:16 修改

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： # VBA基础和提高篇文章标签：数据结构算法

于 2023-02-03 14:48:18 首次发布

本文链接：https://blog.youkuaiyun.com/pigerr/article/details/128863920

VBA基础和提高篇专栏收录该内容

48 篇文章

订阅专栏

文章介绍了在VBA中如何声明和使用二维数组，包括固定长度和动态数组的声明，以及从Range读取和写入数据的方法。强调了动态数组通常需要声明为变体类型，并且在循环操作数组时使用Ubound和Lbound函数的优势。还提到了一维数组与Range对象交互的限制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

二维数组的声明

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中

写入工作表某行: 直接复制给Range(的Value属性
写入工作表某列: 先试用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