Excel VBA

Dim sht As Worksheet        '声明一个工作表类型的变量
Dim IntCount As Integer     '声明一个Integer变量IntCount

Dim sht As Worksheet, IntCount As Integer

Dim Str As String 等价于 Dim Str$

强制声明变量
Option Explicit

声明本地变量
Sub Test1()
    Dim a As String
    Static b As Integer
End Sub

声明一维数组
Public | Dim 数组名称(a To b) As 数据类型
该数组可保存数据的个数:(b-a+1)个。
Dim arr(1 To 100) As Byte
Dim arr(99) As Byte '该数组有(99-0+1),即100个元素
  'OPTION BASE 1

声明多维数组
Dim arr(1 To 3, 1 To 5) As Integer
Dim arr(2, 4) As Integer

声明动态数组
Sub Test()
    Dim a As Integer '定义一个Integer类型的变量，名称为a
    '用工作表函数COUNTA求A列中的非空单元格个数，将结果保存在变量a中
    a = Application.WorksheetFunction.CountA(Range("A:A"))
End Sub

Sub Test()
    Dim a As Integer '定义一个Integer类型的变量，名称为a
    '用工作表函数COUNTA求A列中的非空单元格个数，将结果保存在变量a中
    a = Application.WorksheetFunction.CountA(Range("A:A"))
    Dim arr() As String '定义一个String类型的动态数组
    ReDim arr(1 To a) '重新定义数组arr的大小
End Sub

3.5.8
1. 使用 Array函数创建数组
Sub ArrayTest()
    Dim arr As variant
    arr = Array(3,8,1,9,6,4,7,5)
    MsgBox "arr数组的第2个元素为: "& arr(1)
End Sub