返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

excel VBA数组入门 基础教程

时间:2012-06-17 02:22来源:Office教程学习网 www.office68.com编辑:麦田守望者

一、初识数组

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 等等。

2、注意,上面定义数组是静态数组,所以,我们在声明数组时,就决定了数组用于存储数据所用的内存空间大小。

三、数组的上界和下界

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

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

注:Option Base 0(1)必须放在所有模块之前。

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

Dim arrSheetName(1 to 3) as String

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

四、静态数组和动态数组

我们之前所定义的数组,都是静态数

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

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

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,只能通过改变上界,即最末维的大小,来改变数组的大小,且不能改变数组维数。如果改变了下界,就会出现错误信息。

例子,见后面的过程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函数

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 UBound(arr, 3)

End Sub

3、Split函数

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

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

expression

必需的。包含子字符串各分隔字符的字串表达式。如果expression中一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。

必需的。包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。

delimiter

可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。

limit

可选的。要返回的子字符串数,–1表示返回所有的子字符串。

compare

可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分。

 

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])

sourcearray

必需的。包含被连接子字符串的一维数组。

delimiter

可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项,则使用空格(" ")来分隔子字符串。如果delimiter是零长度字符串(""),则列表中的所有项目都连接在一起,中间没有分隔符。

Sub Join1()

Dim strJoin As String

strJoin = Join(Array("a", "b", "c"), ",")

MsgBox strJoin

End Sub

5、Filter函数

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

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

sourcesrray

必需的。要执行搜索的一维字符串数组。

match

必需的。要搜索的字符串。

include

可选的。Boolean值,表示返回子串包含还是不包含match字符串。如果include是True,Filter返回的是包含match子字符串的数组子集。如果include是False,Filter返回的是不包含match子字符串的数组子集。

compare

可选的。数字值,表示所使用的字符串比较类型。有关其设置,请参阅下面的“设置值”部分。

 

‘查找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

注意,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
 

顶一下
(1)
100%
踩一下
(0)
0%
标签(Tag):excel excel2010 excel2007 excel2003 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣