跟着校长学VBA之第21集:VBA数组2

hwc2ycy

一、VBA数组的读取
1.  在内存中读取
      在内存中读取后用于继续运算，直接用下面的格式
        数组变量 (序号)
        数组变量(行数,列数)

1. Sub d1()
   
2.     Dim arr, arr1()
   
3.     Dim x As Integer, k As Integer, m As Integer
   
4.     arr = Range("a1:a10")    '把单元格区域导入内存数组中
   
5.     m = Application.CountIf(Range("a1:a10"), ">10")    '计算大于10的个数
   
6.     ReDim arr1(1 To m)
   
7.     For x = 1 To 10
   
8.         If arr(x, 1) > 10 Then
   
9.             k = k + 1
   
10.             arr1(k) = arr(x, 1)
    
11.         End If
    
12.     Next x
    
13.     Stop
    
14. End Sub

复制代码

2.读取存入单元格中

1. Sub d2()    '二维数组存入单元格
   
2.     Dim arr, arr1(1 To 5, 1 To 1)
   
3.     Dim x As Integer
   
4.     arr = Range("b2:c6")
   
5.     For x = 1 To 5
   
6.         arr1(x, 1) = arr(x, 1) * arr(x, 2)
   
7.     Next x
   
8.     Range("d2").Resize(5) = arr1
   
9. End Sub
   
10. 
    
11. Sub d3()    '一维数组存入单元格
    
12.     Dim arr, arr1(1 To 5)
    
13.     Dim x As Integer
    
14.     arr = Range("b2:c6")
    
15.     For x = 1 To 5
    
16.         arr1(x) = arr(x, 1) * arr(x, 2)
    
17.     Next x
    
18.     Range("a13").Resize(1, 5) = arr1
    
19.     Range("d2").Resize(5) = Application.Transpose(arr1)
    
20. End Sub
    
21. 
    
22. Sub d4()    '数组部分存入
    
23.     Dim arr, arr1(1 To 10000, 1 To 1)
    
24.     Dim x As Integer
    
25.     arr = Range("b2:c6")
    
26.     For x = 1 To 5
    
27.         arr1(x, 1) = arr(x, 1) * arr(x, 2)
    
28.     Next x
    
29.     Range("d2").Resize(5) = arr1
    
30. End Sub

复制代码

kiinly

k = k + 1看不懂哦