Excel-VBA-數組-01-定義數組

微信公衆號原文

系統：Windows 7
軟件：Excel 2016

• 本系列講講數組功能
• 今天說說如何定義數組

Part 1：背景

1. 數組有1維，2維，3維等多個維度。這個系列主要講1維和2維數組，一般也就夠用

• 1維數組簡單理解就是1行數據
• 2維數組簡單理解就是1個Excel的工作表，有行和列兩個維度

2. 數組一般是用於在程序運行過程中臨時存儲數據，從1-2維數組的作用來看，完全可以使用Excel工作表來代替。數組的優勢在於它是臨時存在於內存中，無需寫入硬盤中，它的讀寫速度非常快

Part 2： 數組的定義

1. 以下實現了三種方式定義數組
   • 已知數組的行和列數，Dim arr(1 To 3, 1 To 2)，行號範圍爲1-3，列號範圍爲1-2
   • 剛開始未知數組的行和列數，在程序運算的過程中得知當前的行數和列數，ReDim arr(0 To 2, 2 To 3)
   • 通過Array直接賦值

Part 3： 代碼

Sub test1()
    Dim arr(1 To 3, 1 To 2)
    
    arr(1, 1) = 1
    arr(1, 2) = 2
    
    arr(2, 1) = True
    arr(2, 2) = False
    
    arr(3, 1) = "Yes"
    arr(3, 2) = "ok"
    
End Sub

運行結果

Sub test2()
    Dim arr()

    ReDim arr(0 To 2, 2 To 3)
    
    arr(0, 2) = 2
    arr(0, 3) = 3
    
    arr(1, 2) = 4
    arr(1, 3) = 5
    
    arr(2, 2) = 6
    arr(2, 3) = 7
End Sub

運行結果

Sub test3()
    
    arr1 = Array(1, 2, 3)
    arr2 = Array(Array(1, 2, 3), Array(4, 5, 6))
    arr3 = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9))
End Sub

運行結果

Part 4： 部分代碼解讀

1. arr(1 To 3, 1 To 2)表示行號從1到3，列號從1到2，是一個3X2的數組，可以理解爲一個Excel的單元格區域
2. arr(1, 1) = 1，給行號爲1列號爲1的區域賦值爲1，類似Excel，不同的單元格可以賦值不同數據類型的值
3. ReDim arr(0 To 2, 2 To 3)，假如我們在剛建立數組時，並不知道它的行數和列數，可能通過一番運算才知道行數爲m，列數爲n，那麼可以通過該方法定義爲
   • ReDim arr(1 To m, 1 To n)
4. arr1 = Array(1, 2, 3)定義1維數組，注意這種方式定義的數組，索引默認從0開始
5. arr2 = Array(Array(1, 2, 3), Array(4, 5, 6))，這種方式相當於定義2行單元格，列數爲3

---

• 更多學習交流，可加小編微信號learningBin

---

更多精彩，請關注微信公衆號
掃描二維碼，關注本公衆號