MsgBox "开始学习VBA" '提示框 Dim str As String '声明str变量是string类型 Let str = "一起来看流星雨" '给变量赋值 给文本,数值,日期等数据赋值的时候,let可以省略 Range("A1").Value = str '将变量值写入活动工作表的A1单元格 Dim dat As Date dat = #7/2/2013# '日期赋值用 #时间# Dim rng As Range '声明rng为range变量 Set rng = Worksheets("sheet1").Range("A1") '给变量赋值 给对象变量赋值的时候,必须戴上set rng.Value = "欢迎光临" '将文本写入变量指代的单元格 Const p As Single = 3.14 '定义一个常量 Dim stu(1 To 50) As String '定义一个数字组,(a to b)a,b都必须是整数,分别是数组的起止和终止索引号,确定数组中的元素个数是(b-a+1) stu(1) = "白居易" '给数组第一个数赋值 stu(3) = "李白" '给数组第三个数赋值 Dim jiangyou(1 To 3, 1 To 20) '声明多纬数组 等同于jiangyou(2,19),起始索引从0开始。 '定义动态的数组 Dim arr() As String Dim n As Integer n = Application.WorksheetFunction.CountA(Range("A:A")) '统计A列有多少个非空单元格。 ReDim arr(1 To n) As String '重新指定数组的大小,注意用ReDim '使用Array函数创造数组,变量必须为Variant类型 Dim av As Variant av = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) MsgBox "av数组的第2个元素为:" & av(1) '使用split函数创建数组 Dim arrb As Variant arrb = Split("邓成,清风,孔佳,林岳", ",") MsgBox "arr的第二个元素是:" & arr(1) '通过Range对象直接创建数组 Dim arra As Variant arra = Range("A1:C3").Value Range("E1:G3").Value = arra 'UBound 和 LBound函数 Dim max As Integer, min As Integer max = UBound(arr) '获取数组的最大索引号 min = LBound(arr) '获取数组的最小索引号 MsgBox "数组的元素个数是" & max - min + 1 '多维数组的最大和最小索引号,需要指定数组的维数 Dim arr1(1 To 10, 1 To 100) MsgBox "第一维的最大索引号是" & UBound(arr1, 1) & "_第二维的最小索引号是" & LBound(arr1, 2) 'Join 函数 Dim arr3 As Variant, txt As String arr3 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) txt = Join(arr3, "@") MsgBox txt