Excel VBA基础与应用2

VBA中数组的声明与赋值

要声明数组，需要指定数组的名称和数据类型，指定数组的大小。声明的语句如下：

Dim 数组名（索引号） As 数据类型

例如：要声明业务部有25名员工，这些人的姓名都用String类型的字符串来存储。则使用的语句为：Dim yub(1 To 25) As String。

声明多维数组时：Dim yub（1 to 15,1 to 20）As String

声明动态数组时：Dim yub() As String

要给数组赋值，与变量赋值相同，不同的是要指定数组的下标。使用的语句如下：

[let] 数组名称（元素索引号）=数组，其中，因let可以省略。

例如：

Dim yub(1 To 25) As String

    Yub(1) = “张三”

小例：

Sub cs()

  Dim arr() As String  //先定义一个动态数组

  Dim n As Long     //定义一个Long类型的数据

    n = Application.WorksheetFunction.CountA(Range("A:A"))

//获取A列中有多少个非空的单元格

  ReDim arr(1 To n) As String//重新指定arr数组的大小。

End Sub

注：使用ReDim语句时，会把原数组清空，重新定义数组的大小。如果需要保存原数组中的数据。应当使用Preserve。如：ReDim Preserve arr(1 To n) As String

 

VBA中的运算符号：

算术运算符		比较运算符		通配符		逻辑运算符
+	加法	=	等于	*	代替任意多个字符	And	与
-	减法	<	小于	？	代替任意一个字符	Or	或
*	乘法	>	大于	#	代替任意一个数字	Not	非
/	除法	<=	小于或等于	[charlist]	代替位于charlist中的任意一个字符	Xor	异或
\	取商运算符	>=	大于或等于	[!charlist]	代替不在charlist中的任意一个字符	Eqv	等价
^	乘方运算符	<>	不等于			Imp	蕴含
Mod	取余运算符	Is	比较两个对象的引用
		Like	比较两个字符串是否匹配