当前位置：网站首页 > 热门文章 > 正文

Vba第三十二课（vba教程80集）

bigegpt 2025-05-02 16:44 7 浏览

Vba第三十二课

数组概念

数组是一个列表或者一组数据表

数组位置

数组存储在内存中

数据特点

a、读写速度快；b、无法永远保存（内存只是暂存空间）

数组分类

a、常量数组、静态数组、动态数组

b、按维度分为：1维、2维、……60维

所以以前讲的对单元格的操作在数据量大的情况下会运行的非常缓慢，有必要将它们放入数组进行数据清洗运算，将会大大提高数据处理能力，缩短运行时间；

例：

Sub test1()

Dim arr1(3)

Dim arr2(1 to 3)

Dim arr3(1 to 3,1 to 2)

end sub

如图：

Dim arr1(3)

声明一个数组，但数组从0开始计数到3 为止，有4行，如图1 ，因为我们只是声明一个数组，并没有赋值，所以值都为空值；可以简单的认为这个一维数组就相当excel表格中的一行，比如相当于A1：D1；

Dim arr2(1 to 3)

声明一个数组，从1开始计数到3 为止，有3行，如图2 ，它也是一个一维数组，我们不习惯从0开始，所以一般我们自定义从1开始比较符合我们的习惯；

Dim arr3(1 to 3,1 to 2)

声明一个数组，它是一个二维数组，前1 to 3是确认它有三行，后1 to 2 是确认它有二列，也可以简单的认为这个二维数组相当于excel表格中的三行二列，比如相当于A1：C2，arr3(1,1)就表示A1，arr3(3,2)表示C2，虽然这个比喻不太恰当，但比较好理解。

Array用法

例：

Sub test2()

Dim arr1, arr2

arr1 = Array(1, 2, 3, 4)

arr2 = [{"甲",1;"乙",2;"丙",3}]

Sheets("Sheet1").[a1].Resize(, 4) = (arr1)

Sheets("Sheet1").[a3].Resize(3, 2) = (arr2)

End Sub

如图：

arr1 = Array(1, 2, 3, 4)

array() 函数用于创建数组，arr1 = Array(1, 2, 3, 4)表示对arr1一维数组赋了4个值，如上图红框；

arr2 = [{"甲",1;"乙",2;"丙",3}]

生成了一个二维数组，如上图红框中每一行，每一列都赋值，可能一些没接触过数组的可能无法理解，我们接着往下看，大家就容易理解了；

如图：

Sheets("Sheet1").[A1].Resize(, 4) = (arr1)

这名代码的意思就是把arr1一维数组的值赋给单元格，.Resize(, 4)表示从单元格A1向右扩展4个单元格，如果没有逗号.Resize(4)表示向下扩充4个单元格，如图单元格A1：D1就被赋于了数组arr1内的值;

Sheets("Sheet1").[A3].Resize(3, 2) = (arr2)

这是一个二维数组赋值给单元格，.Resize(3, 2)表示从单元格A3向下扩展了3个单元格，同时也向右扩展了2个单元格，正好可以放下二维数组的内所有的值；

如果觉得有帮助的话记得关注和点赞,有不懂的地方可以私信我，需要表格素材的也可私信给我转发给你们。

如果各位在实际工作中遇见excel常规方法无法解决的或操作比较复杂的报表可以私信我，可以免费编写代码来解决！

resize函数

上一篇：C语言实现一个动态数组（c语言的动态数组）
下一篇：C++标准容器类第1节，支持首尾插入，双端队列deque使用实例详解

Vba第三十二课（vba教程80集）

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

Ceph运维手册(基于P版本)

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程