Cacher is the code snippet organizer for pro developers

'声明一维数组：
Dim a(5) As String

'声明多维数组：
Dim a(5, 8) As String

'声明不确定维数的数组：
Dim a() As String

'不确定维数数组的重定义：
ReDim a(3, n + 1) As String             '清空数组原内容，各个维数均可重新定义
ReDim Preserve a(3, n + 1) As String    '保留数组原内容，只能重定义最末维数

'返回数组最大下标值：
Dim arr(5)
Msgbox Ubound(arr) '返回 5

Dim arr(6,9)
Msgbox Ubound(arr,1) '返回第一维最大下标： 6
Msgbox Ubound(arr,2) '返回第二维最大下标： 9