VBA中数组的运用

未力忘

已于 2023-12-05 11:13:20 修改

阅读量935

点赞数

分类专栏： VBA 文章标签：笔记 list

于 2023-11-18 22:09:26 首次发布

本文链接：https://blog.csdn.net/m0_54284125/article/details/134483447

版权

VBA 专栏收录该内容

10 篇文章 4 订阅

订阅专栏

VBA中数组的运用

前言
一、Array
- 1. 数组定义
- 2. VBA对数组支持不是很好？
二、ArrayList

前言

处理量大的数据，还是用数组方便。学习记录备忘

一、Array

1. 数组定义

VBA中数组可以认为是基本类型。
几个基本点:

数组分单维、多维
定义时指定各维度大小的，为固定数组，定义时不指定的，为可变数组。可变数组用Redim [Preserve] array(大小)来重新定义大小
如果不指明，则下标是从0开始的
数组存储的值也有类型，如果定义时不指定，则为可变性

'定义单维固定长度数组
Dim arrSD(5) As String
'定义可变数组
Dim arrSD() As String
Redim Preserve arrSD(5,5)  '重新定义数组为5*5并且保留已有数据
Redim arrSD(10) '重新定义为单维11个大小的，不保留已有数据

2. VBA对数组支持不是很好？

貌似很多功能（比如排序）都不支持，要曲折实现.

将RecordSet数据提取到数组
可以用RecordSet.GetRow(行数) 函数
GetRow()函数返回一个二维数组，注意它的第一维是字段，第二维是记录行。相当于是一个转置的表。代码参考
从Range转为数组
从range转为数组非常简单，使用Range.Value属性赋值给数组即可, 注意得到的数组下标是从1开始的，不是从0开始的
如下例, Range数据如下
```
Sub test()
	Dim rg As Range, arr()
	
	Set rg = Sheets("sheet1").Range("C3:F8")
	arr = rg.Value
	
	Debug.Print UBound(arr, 1) & "x" & UBound(arr, 2)
	Debug.Print arr(2, 2)
End Sub
```
输出结果如下:
```
6x4
Row2 / Col:2
```
把数组值给Range
把数组值给Range时，需要正确地指定Range的大小，数组与range大小不一致时，规律如下:
(1) 对于重合的部分，取数组中的值
(2) 对于数组比range多出的部分，忽略
(3) 对于数组比range少的部分，补#N/A
如下图所示

注意：对于一维数组，赋值给Range时要小心。一维数组相当于一行，所以range是多列的行，没问题，但是如果只赋给一列，就会发现只能得到第一个数组元素。这时需要用application.Transpose(array)来先将数组转置然后再赋给range.

数组的筛选(Filter)
用Filter函数

其中include参数可以指定结果是包含匹配的结果，还是排除匹配的结果，这个还是比较实用的。
可惜只对一维数组，且只能设单一条件，且只能是字符串

二、ArrayList

实践下来, ArryList非常好用，完全可以取代VBA原生的Array

1. 要添加mscorlib.dll引用才能使用

在这里插入图片描述

2. 定义及使用

ArrayList是对象，所以有些特性.

定义后需要实例化才能使用。

'定义时直接实例化
Dim arrlistArr_1 As New ArrayList
'或者显式实例化
Dim arrlistArr_2 As ArrayList
SET arrlistArr_2 = New ArrayList

可以做为参数传递给子函数, 在子函数里做的操作会直接反映出来。美妙的是，它甚至都不需要显式指定ByRef 传递。

Sub test()
    Dim arrFileList As New ArrayList, strErrMsg$
    strErrMsg = fun_CheckUnZippedFiles(arrFileList)
    Set arrFileList = Nothing
End Sub
’注意定义函数时，不需要显式指明ArrayList是 ByRef 传递
Function fun_CheckUnZippedFiles(arrFileList As ArrayList) As String
	Dim arrlistPDF As New ArrayList, arrlistXBRL As New ArrayList
	‘..... 处理代码略过
	
	'对象赋值，需要用SET语句
    Set arrFileList = arrlistPDF.Clone
    Set arrlistPDF = Nothing
    Set arrlistXBRL = Nothing
    fun_CheckUnZippedFiles = strErrMsg   
End Function

ArrayList涉及的操作(原文参见这里)

Dim arrlistArr_1 As ArrayList, arrlistArr_2 As ArrayList, arr()
Dim arr()
Set arrlistArr_1 = New ArrayList
intLine = 3
For intLine = 3 To 1 STEP -1
    arrlistArr_1.Add (CStr(intLine))
Next intLine
arrlistArr_1.Sort  '排序，顺序
arrlistArr_1.Reverse  '没有逆序排序的选项，可以用Reverse曲折实现 
SET arrlistArr_2 = arrlistArr_1 'Clone一个Array List
arr = arrlistArr_1.ToArray   '转换为array