方法1：循環(huán)法取數后，放在array里

• 循環(huán)方法
• 要求數據是有規律的，如連續等？
• 數組必須定義大小后才可以使用？
• 如果是用for，一般需要知道循環(huán)次數，也就是單元格個(gè)數
• 如果用 for each ,while等，能嗎？能

比如原始數據

Sub get_arr()
Dim arr1(10)    'array必須定義大小后才能使用
For i = 1 To 10
    arr1(i) = Sheets("sheet3").Cells(i + 1, 1)
    Debug.Print (arr1(i))
Next i
End Sub

方法2：數組大小不定，但也需要指定

• 好處是，不用知道 要找的行，或者列的具體多少個(gè)
• 局限性就是，只能取 1行，或1列的數據，也許有時(shí)這是個(gè)優(yōu)點(diǎn)？
• 局限性：中間不能有空格，如果有，得先用 對原始數據，VBA刪掉空格后，這個(gè)之前寫(xiě)過(guò)
• 還有種方法，用的 cells(a1) cells(65536) ？ 能弄嗎？

Sub get_arr()
Dim arr1()       'array必須定義大小后才能使用
    Rem 取第一列的數據試試
    max_row = Sheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Row
    ReDim arr1(1 To max_row)
    i = 2
Do
    i = i + 1
    arr1(i) = Sheets("sheet3").Cells(i, 1)
    Debug.Print (arr1(i))
Loop While (i + 1) <= max_row

Sub get_arr()
Dim arr1()       'array必須定義大小后才能使用
    Rem 取第2行的數據試試
    max_column = Sheets("sheet3").Cells(2, Columns.Count).End(xlToLeft).Column
    ReDim arr1(1 To max_column)
    i = 0
Do
    i = i + 1
    arr1(i) = Sheets("sheet3").Cells(2, i)
    Debug.Print (arr1(i))
Loop While (i + 1) <= max_column

方法3---歸納

取一列最大非空單個(gè)元行號方法

max_row = Sheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Row

max_row = Sheets("sheet3").Cells(65536, 1).End(xlUp).Row

 max_row = Sheets("sheet3").Range("a:a").End(xlDown).Row

取一列最小非空單個(gè)元行號方法

 max_row = Sheets("sheet3").Range("a:a").End(xlup).Row

取一行最大非空單個(gè)元行號方法

max_column = Sheets("sheet3").Cells(2, Columns.Count).End(xlToLeft).Column

max_column = Sheets("sheet3").[iv2].End(xlToLeft).Column

max_column = Sheets("sheet3").Range("iv2").End(xlToLeft).Column

錯誤的  max_column = Sheets("sheet3").Cells("iv2").End(xlToLeft).Column

max_column = Sheets("sheet3").Range("2:2").End(xlToRight).Column   '好像第1列不能是空的

取一行最小非空單個(gè)元行號方法

max_column = Sheets("sheet3").Range("2:2").End(xltoleft).Column    '好像第1列不能是空的

如果數據不規則呢？

當前工作表中已使用的列數
ActiveSheet.UsedRange.Columns.Count

方法3？

https://zhidao.baidu.com/question/1987985423240470147.html

Sub test1()
Dim arr1
Dim arr2
rem 思路是，先把EXCEL對象讀到一個(gè)變量里，然后這個(gè)變量就是一個(gè)二維表對象
rem 然后把另外一個(gè)數組，取這個(gè)二維數組的一個(gè)維度，取回數據
rem 重新輸入回去也好做吧
arr1 = Sheets("ganzhi2").UsedRange   '這里不能用set arr1 也不能都為數組？只能變量？
ReDim arr2(1 To UBound(arr1, 2))
For i = 1 To UBound(arr1, 2) Step 1
arr2(i) = arr1(1, i)
Debug.Print arr2(i)
Next
For i = 1 To UBound(arr2) Step 1     '這樣又寫(xiě)回去了，嗯
Cells(3, i) = arr2(i)
Next
End Sub

http://club.excelhome.net/thread-1250877-1-1.html

需要熟悉 lbound ubound(arr,1)

https://zhidao.baidu.com/question/562477244.html

方法3？

http://club.excelhome.net/forum.php?mod=viewthread&tid=1310859

Sub test1()
Dim vArr
Dim oDic
Set oDic = CreateObject("Scripting.Dictionary")
 

vArr = Sheets("ganzhi2").UsedRange.Value '數組讀表數據
For nRow = 1 To UBound(vArr) '一般第一行是標題，就從第2行開(kāi)始讀
oDic(vArr(nRow, 1)) = nRow '以第一列為字典關(guān)鍵字為例
Next

Debug.Print oDic.Count

End Sub