VBA中的数组下标

VBA 中的数组下标

 

一． 下标的取法

LBound ， UBound 分别返回 数 组 可用的最小下 标 和最大下标。也可以返回第二维，第三维的下标情况。默认为 LBound( array , 1 ) 。

二． 默认情况

dim strarr(10) as String

那么，相当于如下的 C 语言 String strarr[11] 。即第一个元素是 strarr(0) ，最后一个元素是 strarr(10) 。

三． 自定义

Dim user(3 To 10) As String

那么，第一个元素是 user(3) ，最后一个元素是 user(10) 。

四． Dictionary 的 key 对象

同默认的数组一样，从 0 开始。

五． Range 对象

Dim text As Variant

text = Sheet1.Range("A1:D13")

返回的是一个二维数组，下标都是从 1 开始。

第一维为行

MsgBox (LBound(text))           ---> 1

MsgBox (UBound(text))           ---> 13

 

第二维为列

MsgBox (LBound(text, 2))       ---> 1

MsgBox (UBound(text, 2))       ---> 4

六． 多维对象

Dim mul(10, 20) As String

 

MsgBox (LBound(mul))           ---> 0

MsgBox (UBound(mul))           ---> 10

 

MsgBox (LBound(mul, 2))       ---> 0

MsgBox (UBound(mul, 2))       ---> 20