Class06. 數組

定義

下面是幾種常見定義數組的方法。

' 定義一個一維數組，數據類型為Variant，長度從0到5，實際控件有六個，長度為5 Dim arr(5) as String ' 定義一個一維數組，數據類型為Variant，長度從1到5，實際控件有六個，長度為5 Dim arr(1 to 5) as String ' 可以省略As后面部分，等于 Dim arr2 () as Variant Dim arr(5) ' 一維數組，下標從0開始 arr2 = Array("你好", "世界") ' 一維數組，下標從0開始 arr3 = [{1,2,3,4}]

計算數組長度

'數組下限： LBOUND(數組） '結果：一般為0 '數組上限： UBOUND(數組） '數組長度： UBOUND(數組）-LBOUND(數組）+1

動態分配數組

建議打斷點查看數組容量的變化。

Sub test()v_count = ActiveSheet.UsedRange.Rows.CountReDim arr(1 To v_count) As Stringarr(1) = 1arr(v_count) = v_count' 二次擴充數組容量ReDim Preserve arr(1 To 2 * v_count)arr(2 * v_count) = 2 * v_countFor Each v_item In arrIf v_item <> "" ThenMsgBox (v_item)End IfNextEnd Sub

ReDim 后面如果不加 Preserve，結果會有所不同。

從區域中（Range）獲取

' 可以直接將工作表中A1:E1區間內的二維表的數據寫到數組中。 arr = Range("A1:E100")

Split 函數

Split 函數可以將字符串按某一個特定的分隔符分割成數組。

Sub test()v_Str = "A-BC-d-E-"arr = Split(v_Str, "-")MsgBox (arr(2)) End Sub

[“A”,“BC”,“d”,“E”,""]

Join 函數

Join 函數和 Split 函數相反，可以將數組按特定的字符串連接起來。

arr2 = Array("你好", "世界") v_str = Join(arr2,"-")

“你好-世界”

總結

以上是生活随笔為你收集整理的VBA实战(6) - 数组的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。