vba function 定义数组类型 vba定义为数组

 

VBA 数组入门

[size=10.5pt]

一、初识数组

1 、数组就是一个列表或一组数据表。我们学习数组的目的，就是为了加速我们代码的效率。

2 、我们如何运用数组呢？

首先，必须声明数组。

其次，给数组赋值，可以是经过一系列的运算后再赋值给数组。

最后，将数组返回到工作表区域中。最终的目的是在工作表中显示我们想要的结果。

3 、调试数组的手段：本地窗口

我们可以通过设置Stop语句，或F8逐步执行代码，在本地窗口中观测数组的变化。

Sub test()  
 
 Dim arrSheetName(5) As String  
 
  
 
 Stop  
 
End Sub

4 、数组的优势与不足

数组的速度优势是明显的，但不足也很明显，因为，数组处理的都是数据，因此，它不能给EXCEL数据添加颜色，删除行列，插入行列等等动作。

5 、VBA数组没有内存数组和一般数组之分。我们在声明数组时，就已经将数组写入内存里。

[

二、声明数组

1 、声明一个数组变量，也是用Dim语句来声明。当声明了一个数组，便决定了这个数组用于存储数据所用的内存空间。

Dim arrCnt(10) As Integer  
  
Dim arrSheetName(5) As String  
  
Dim arr(7) As Variant

1 ）、这里我们看到，与一般定义不同的是多了个带括号的数字。这个数字，就是这个数组所能存储的最大元素数。

2 ）、数组可以根据我们的需要存储不同类型的数据，这与我们平常变量定义的类型一样，可以是Integer，Long，String，Variant 等等。

[size=10.5pt]2

[size=10.5pt]、注意，上面定义数组的例子是静态数组，所以，我们在声明数组时，就决定了数组用于存储数据所用的内存空间大小。后面我们会讲到动态数组。

三、数组的上界和下界

1 、VBA中，数组默认的下界是0，也就是Option Base 0

如果，我们习惯了用1作为我们的下界，可以强制声明：Option Base 1

注：Option Base 0（1）必须放在所有模块之前。

2 、当然，我们也可以忽略这个强制声明，那我们就需要在声明数组时，指明数组的上界和下界，如：

Dim arrSheetName(1 to 3) as String

表明这个数组的上下界分别是1和3。

四、静态数组和动态数组

[size=10.5pt]

我们之前所定义的数组，都是静态数组。静态数组的特点是具有大小的数组。当我们事先知道数组的大小，那么，我们可以直接声明为静态数组。

如果我们不知道数组大小，那么我们应定义成动态数组。

1 、动态数组是可以改变大小的数组，通过在数组名称后附带空括号来声明，如：

Dim arrSheetName() as String

2 、在定义动态数组之后，必须使用ReDim来设置动态数组的上界和下界，为数组重新分配存储空间。

3 、我们可以使用ReDim语句反复地改变数组的元素已经维数。

Sub arr1()  
  
 Dim arr() As Long  
  
 Dim i As Long  
  
  
  
 ReDim arr(1 To 3)  
  
 For i = 1 To 3  
  
 arr(i) = i  
  
 Next  
  
 Sheet1.[a1].Resize(1, 3) = arr  
  
 Stop  
  
 ReDim arr(1 To 10)  
  
 For i = 1 To 10  
  
 arr(i) = i  
  
 Next  
  
 Sheet1.[a1].Resize(1, 10) = arr  
  
End Sub

4 、ReDim Preserve语句

Preserve 英文的意思是保留，保存。顾名思义，就是重新定义数组时，将数组元素保留在数组中。

与ReDim不同的是，使用了ReDim Preserve，只能通过改变上界，即最末维的大小，来改变数组的大小，且不能改变数组维数。如果改变了下界，就会出现错误信息。

[size=10.5pt]例子，见后面的过程Join2。

五、一维数组和多维数组

我们前面所举的例子都是一维数组，数组可以定义多达60维。

但我们很少看到多过2维的代码。这也是因为对于Excel的工作表来说，行和列，就是表示2维，我们处理的数据区域很多都是围绕行和列进行处理。因此，我们只要掌握的二维数组，就掌握了对Excel的数据处理。

下面通过2幅图来理解二维数组：

1 、定义一个二维数组

Dim arrSource(1 to 100, 1 to 10) As Long

2 、定义一个三维数组

Dim arrSource(1 To 10, 1 To 6, -1 To 5) As Long

注：我们可以通过节点的多少来判断数组维数。

六、数组函数

1 、Array 函数

返回一个包含数组的 Variant。

Array 函数在运行代码执行期间创建数组，而不必事先知道数组的大小。

Sub Array1()

Dim arr As Variant

arr = Array(1, 2, 3)

MsgBox arr(0)

End Sub

2 、Lbound、Ubound函数

LBound 函数：

返回一个 Long 型数据，其值为指定的数组维可用的最小下标。

UBound 函数：

返回一个 Long 型数据，其值为指定的数组维可用的最大下标。

Sub ULbound1()  
  
 Dim arr As Variant  
  
  
  
 arr = Array(1, 2, 3)  
  
 MsgBox UBound(arr)  
  
 MsgBox LBound(arr)  
  
End Sub  
  
   
  
   
  
Sub ULbound2()  
  
 Dim arr(1 To 100, 1 To 10, -1 To 3) As Integer  
  
  
  
 MsgBox UBound(arr, 1)  
  
 MsgBox UBound(arr, 2)  
  
 MsgBox LBound(arr, 3)  
  
End Sub

3 、Split函数

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

语法：Split(expression[, delimiter[, limit[, compare]]])

[size=10.5pt]expression [size=10.5pt]	[size=10.5pt]必需的。包含子字符串和分隔符的字符串表达式 。如果expression 是一个长度为零的字符串("")，Split 则返回一个空数组，即没有元素和数据的数组。
[size=10.5pt]delimiter [size=10.5pt]	[size=10.5pt]可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter 是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression 字符串。
[size=10.5pt]limit [size=10.5pt]	[size=10.5pt]可选的。要返回的子字符串数，–1表示返回所有的子字符串。
[size=10.5pt]compare [size=10.5pt]	[size=10.5pt]可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。

Sub Split1()  
  
 Dim strJoin As String  
  
 Dim arrSplit As Variant  
  
  
  
 strJoin = "a,b,c"  
  
 arrSplit = Split(strJoin, ",")  
  
 Sheet1.[a1].Resize(1, 3) = arrSplit  
  
End Sub

4 、Join函数

返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。

语法：Join(sourcearray[, delimiter])

[size=10.5pt]sourcearray [size=10.5pt]	[size=10.5pt]必需的。包含被连接子字符串的一维数组。
[size=10.5pt]delimiter [size=10.5pt]	[size=10.5pt]可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格(" ")来分隔子字符串。如果delimiter 是零长度字符串("")，则列表中的所有项目都连接在一起，中间没有分隔符。

Sub Join1()  
  
 Dim strJoin As String  
  
  
  
 strJoin = Join(Array("a", "b", "c"), ",")  
  
 MsgBox strJoin  
  
End Sub

5 、Filter函数

返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。

语法：Filter(sourcesrray, match[, include[, compare]])

[size=10.5pt]sourcearray [size=10.5pt]	[size=10.5pt]必需的。要执行搜索的一维字符串数组。
[size=10.5pt]match [size=10.5pt]	[size=10.5pt]必需的。要搜索的字符串。
[size=10.5pt]include [size=10.5pt]	[size=10.5pt]可选的。Boolean 值，表示返回子串包含还是不包含match 字符串。如果include 是True ，Filter 返回的是包含match 子字符串的数组子集。如果include 是False ，Filter 返回的是不包含match 子字符串的数组子集。
[size=10.5pt]compare [size=10.5pt]	[size=10.5pt]可选的。数字值，表示所使用的字符串比较类型。有关其设置，请参阅下面的“设置值”部分。

‘ 查找2数组的差集

Sub Filter1()  
  
 Dim varArr1 As Variant  
  
 Dim varArr2
 As Variant  
  
 Dim i As Integer  
  
  
  
 varArr2 = Array(1021, 1023, 1025)  
  
 varArr1 = Array(1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028)  
  
 For i = 0 To UBound(varArr2)  
  
 varArr1 = VBA.Filter(varArr1, varArr2(i), False)  
  
 Next i  
  
 MsgBox Join(varArr1)  
  
End Sub

注意，filter函数在此是模糊查找，下面代码将无法返回我们想要的值

Sub Filter1()  
  
 Dim varArr1 As Variant  
  
 Dim varArr2
 As Variant  
  
 Dim i As Integer  
  
  
  
 varArr2 = Array( 10 , 1023, 1025)  
  
 varArr1 = Array(1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028)  
  
 For i = 0 To UBound(varArr2)  
  
 varArr1 = VBA.Filter(varArr1, varArr2(i), False)  
  
 Next i  
  
 MsgBox Join(varArr1)  
  
End Sub

七、释放数组

在某些情况下，我们根据需要来释放数组来重新定义数组，或避免数据堆栈。

Erase 语句

重新初始化大小固定的数组元素，以及释放动态数组的存储空间。即，Erase可以删除静态数组和动态数组里的数据元素。

Sub Erase1()  
  
 Dim arr(1 To 100) As Integer  
  
  
  
 arr(1) = 1  
  
 MsgBox arr(1)  
  
 MsgBox UBound(arr)  
  
  
  
 Erase arr  
  
 MsgBox arr(1)  
  
 MsgBox UBound(arr)  
  
End Sub

从上面的代码中，我们可以看到，Erase语句用于清除数组元素，对静态数组维数和上标是没有改变的。

而对于动态数组，Erase 语句在释放动态数组所使用的内存后。在下次引用该动态数组之前，程序必须使用 ReDim 语句来重新定义该数组变量的维数。

Sub Erase2() 
 Dim arr() As Integer 
 ReDim arr(1 To 100) 
 arr(1) = 1 
 MsgBox arr(1) 
 MsgBox UBound(arr) 
 Erase arr 
 'ReDim arr(1 To 10) 
 MsgBox arr(1) 
 MsgBox UBound(arr) 
End Sub

八、数组与单元格区域

通过上面的几个概念，我们明白了数组的定义、赋值。我们最终的目的是通过数组来操作工作表区域中的数据，下面我们通过几个例子来进一步理解数组。

1 、将单元格区域赋值给数组

见过程RangeArray1，RangeArray2，RangeArray3

2 、拆分合并特定单元格数据

见过程 Split2,Join2,Split3

3 、维数转置

见过程RangeArray4

九、数组实例

1 、提取不重复数据。见UniqueData过程

2 、转置数据区域。 见TransposeData过程