VBA ARRAY 函数

17 Mar 2025 | 5 分钟阅读

在任何编程语言中，数组都用于将一组相似的对象收集在一起。相同的概念适用于VBA。在VBA中，数组主要用于在变量中存储多个值。

VBA包含九个不同的数组函数。本教程将介绍有关VBA数组函数的详细信息，包括其定义，语法，参数，返回类型以及解释如何使用VBA ARRAY函数编写宏代码的不同示例。

什么是VBA数组函数？

“VBA数组函数返回一个包含相似数据类型数组的变体。此函数用于在宏模块中快速轻松地初始化数组。 VBA数组函数通常用于在变量中存储多个值。“

VBA数组函数从逗号分隔的元素列表中创建一个Variant VBA数组。如果未提供任何参数，则会创建零长度的数组。

语法

参数

Arglist(必需)：此参数表示一个逗号分隔的元素列表，这些元素被指定为Variant中包含的数组的值。如果未传递任何参数，则会创建零长度的数组。

VBA *Array function* 返回一个包含数组的变体。

要记住的事情

使用数组函数，您可以存储两种类型的数组，即二维数组和多维数组。
数组的定位从0而不是1开始。 Arr(0) 表示第一行和第一列。

示例

#VBA 数组示例 1：使用VBA数组函数存储字符串值

按照分步指南使用VBA数组函数存储字符串值

步骤1： 转到您的Excel工作簿。通过单击开发人员窗口-> Visual Basic编辑器或直接单击快捷键Alt + F11来打开Visual Basic窗口。

步骤 2：将显示 VB 编辑器窗口。下一步是创建一个模块。从功能区选项卡中单击插入 -> 单击模块。

步骤3： 将插入一个模块。我们只在此模块窗口中编写宏。通过输入程序的名称以及变量的声明来启动程序。

请参考以下给出的宏代码

Sub VBA_Array_Example1()
    'Declaring the variable to store our array
    Dim arr As Variant
End Sub

步骤4： 接下来，我们将调用Array函数，并在其参数中传递三个字符串元素。稍后，我们将使用MsgBox打印arr(0)，aar(1)和arr(2)。

在此代码中，我们使用了UBound和LBound函数来计算数组长度。

请参考以下给出的宏代码

Sub VBA_Array_Example1()
    'Declaring the variable to store our array
    Dim arr As Variant
    'Using the Array function to store elements of variant data type
    arr = Array("VBA", "Programming", "Lanaguage")
    'Print all elements of the array
    MsgBox arr(0) & " " & arr(1) & " " & arr(2) 'Result: John
    'Printing the array length of our array
    MsgBox "Array Length: " & UBound(arr) - LBound(arr) + 1 'Result: 3
End Sub

输出

通过单击VBA功能区工具栏上的“运行”选项或按F5键来运行宏。您会注意到Excel会立即显示MsgBox。

单击“确定”，VBA将打开另一个MsgBox，显示数组大小。

#VBA 数组示例 2 - 另一个数组函数内的数组函数

按照分步指南使用VBA数组函数存储字符串值

步骤1： 转到您的Excel工作簿。通过单击开发人员窗口-> Visual Basic编辑器或直接单击快捷键Alt + F11来打开Visual Basic窗口。

步骤 2：将显示 VB 编辑器窗口。下一步是创建一个模块。从功能区选项卡中单击插入 -> 单击模块。

步骤3： 将插入一个模块。我们只在此模块窗口中编写宏。通过输入程序的名称以及变量的声明来启动程序。

请参考以下给出的宏代码

Sub VBA__Array_Example2()
    'Declaring the variable to store our array
    Dim arr As Variant
End Sub

步骤4： 接下来，我们将调用Array函数，并在其参数中传递三个字符串元素。稍后，在同一个数组函数中，我们将调用另一个数组函数并传递其参数。

请参考以下给出的宏代码

Sub VBA__Array_Example2()
    'Declaring the variable to store our array
    Dim arr As Variant
    'Calling an Array function inside another array function
    arr = Array(Array(20, 40, 60), Array(10, 20, 30))
    'display the output
    MsgBox arr(0)(1) 'Output: 40
    MsgBox arr(1)(0) 'Output: 10
End Sub

输出

通过单击VBA功能区工具栏上的“运行”选项或按F5键来运行宏。您会注意到Excel会立即显示MsgBox。

单击“确定”，VBA将打开另一个MsgBox，显示另一个输出

#VBA 数组示例 3 - 使用内置数组函数创建一个自定义的月份函数。

在以上两个示例中，我们已经看到了如何使用数组函数，它们的语法，如何添加元素以及如何打印它们。现在，我们将看到如何使用Array函数创建一个自定义的VBA函数。

按照分步指南使用VBA数组函数存储字符串值

步骤1： 转到您的Excel工作簿。通过单击开发人员窗口-> Visual Basic编辑器或直接单击快捷键Alt + F11来打开Visual Basic窗口。

步骤 2：将显示 VB 编辑器窗口。下一步是创建一个模块。从功能区选项卡中单击插入 -> 单击模块。

步骤3： 将插入一个模块。我们只在此模块窗口中编写宏。使用Function关键字启动程序，后跟函数名称。

请参考以下给出的宏代码

Function Months_List()
'Calling the array function 
 Months_List = Array("January", "Febuary", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
End Function