他山之石——VBA数组的使用-Part3（VBA Array）

学习任何东西，往往坚持到最后，才能学到“干货”。试想，如果新手两三下就能学会的东西就能在现实中排上大用场，那老手还有存在的必要吗？

Option Explicit

'
'1、数组的最值
    Sub s()
    Dim arr1()
    
    arr1 = Array(1, 12, 4, 5, 19)
    
    MsgBox "1, 12, 4, 5, 19最大值" & Application.Max(arr1)
    MsgBox "1, 12, 4, 5, 19最小值" & Application.Min(arr1)
    MsgBox "1, 12, 4, 5, 19第二最大" & Application.Large(arr1, 2)
    MsgBox "1, 12, 4, 5, 19第二最小" & Application.Small(arr1, 2)
    
    End Sub
    
 '2、求和

    '用application.Sum（数组）
    
'3、统计个数

  'counta和count函数可以统计VBA数组的数字和数及所有已填充内容的个数
  
     Sub s1()
     
     Dim arr1, arr2(0 To 10), x
     arr1 = Array("a", "3", "", 4, 6)
     For x = 0 To 4
       arr2(x) = arr1(x)
     Next x
     
     MsgBox "数组1的数字个数" & Application.Count(arr2)
     
     MsgBox "数组2的已填充数值的个数" & Application.CountA(arr2)
     
     End Sub
 
 '3、在数组里查找
     
     Sub s2()
      Dim arr
      On Error Resume Next
      arr = Array("a", "c", "b", "f", "d")
      MsgBox Application.Match("f", arr, 0)
     If Err.Number = 13 Then
        MsgBox "查找不到"
      End If
     End Sub


 

Option Explicit

' 1、split函数
     '按分隔符把字符串截取成VBA数组,该数组是一维数组，编号从0开始
 
     'split(字符串,分隔符)
   
    Sub t1()
      Dim sr, arr
      sr = "A-BC-FGR-H"
      arr = VBA.Split(sr, "-")
      MsgBox Join(arr, ",")
    End Sub
     
' 2、Filter函数：
     '按条件筛选符合条件的值组成一个新的数组

     'Filter(数组,筛选条件,是/否)
     
     '注：如果是（true）则返回包含的数组，如果否则返回非包含的数组
    Sub t2()
     Dim arr, arr1, arr2
     arr = Application.Transpose(Range("A2:A10"))
     arr1 = VBA.Filter(arr, "W", True)
     arr2 = VBA.Filter(arr, "W", False)
     Range("B2").Resize(UBound(arr1) + 1) = Application.Transpose(arr1)
     Range("C2").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
    End Sub
    
'3、index函数：
    '调用该工作表函数可以把二维数组的某一列或某一行截取出来，构成一个新的数组。
     ' Application.Index(二维数组,0,列数)) 返回二维数组
     ' Application.Index(二维数组,行数,0)) 返回一维数组
    Sub t3()
     Dim arr, arr1, arr2
      arr = Range("a2:d6")
      arr1 = Application.Index(arr, , 1)
      arr2 = Application.Index(arr, 4, 0)
      Stop
    End Sub

'4、vlookup函数
      'Vlookup函数的第一个参数可以用VBA数组，返回的也是一个VBA数组
    Sub t4()
    Dim arr, arr1
      arr = Range("a2:d6")
      arr1 = Application.VLookup(Array("B", "C"), arr, 4, 0)
    End Sub
'5 Sumif函数和Countif函数
     'Countif和sumif函数的第二个参数都可以使用数组，所以也可以返回一个VBA数组，如：
     Sub t5()
     Dim T
     T = Timer
       Dim arr
       arr = Application.SumIf(Range("a2:a10000"), Array("B", "C", "G", "R"), Range("B2:B10000"))
     MsgBox Timer - T
     Stop
     End Sub
 
   Sub t55()
     Dim T
     T = Timer
      Dim arr, arr1(1 To 4, 1 To 2), x
      arr1(1, 1) = "B"
      arr1(2, 1) = "C"
      arr1(3, 1) = "G"
      arr1(4, 1) = "R"
     ' arr = Range("a1:d10000")
      For x = 2 To 10000
         Select Case Cells(x, 1)
         Case "B"
            arr1(1, 2) = arr1(1, 2) + Cells(x, 2)
         Case "C"
            arr1(2, 2) = arr1(2, 2) + Cells(x, 2)
         Case "G"
            arr1(3, 2) = arr1(3, 2) + Cells(x, 2)
         Case "R"
            arr1(4, 2) = arr1(4, 2) + Cells(x, 2)
         End Select
      Next x
     MsgBox Timer - T
   End Sub