VBA（实验6）VBA

本文链接：https://blog.csdn.net/xuemanqianshan/article/details/89163636

 

方法1：循环法取数后，放在array里

• 循环方法
• 要求数据是有规律的，如连续等？
• 数组必须定义大小后才可以使用？
• 如果是用for，一般需要知道循环次数，也就是单元格个数
• 如果用 for each ,while等，能吗？能

比如原始数据

ID

11

47

11

48

27

30

43

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：数组大小不定，但也需要指定

• 好处是，不用知道 要找的行，或者列的具体多少个
• 局限性就是，只能取 1行，或1列的数据，也许有时这是个优点？
• 局限性：中间不能有空格，如果有，得先用 对原始数据，VBA删掉空格后，这个之前写过
• 还有种方法，用的 cells(a1) cells(65536) ？ 能弄吗？

 

ID
11	12	13	14	15	16	17	18	19	20
47
11
48
27
30
43
60
86
99

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---归纳

取一列最大非空单个元行号方法

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

 

取一列最小非空单个元行号方法

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

 

 

取一行最大非空单个元行号方法

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列不能是空的

 

 

取一行最小非空单个元行号方法

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对象读到一个变量里，然后这个变量就是一个二维表对象
rem 然后把另外一个数组，取这个二维数组的一个维度，取回数据
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     '这样又写回去了，嗯
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行开始读
oDic(vArr(nRow, 1)) = nRow '以第一列为字典关键字为例
Next

Debug.Print oDic.Count

End Sub