他山之石，可以攻玉，VBA中除可以利用的VBA函数外，还可以调用众多的Excel工作表函数对数组进行分解、查询和分析等，调用工作表函数可以省去循环判断的麻烦，进而提高运行效率。

        一、数组的最值

             1、Max和Min 

                   工作表函数Max和Min是求最大值和最小值的函数，同样在VBA中也可以求数组的最大值和最小值。如：

                   Sub t()
                        arr = Array(1, 35, 4, 13)
                        MsgBox Application.Max(arr)  '最大值
                        MsgBox Application.Min(arr)   '最小值
                    End Sub

             2、large和small

                  工作表函数large和small 是返回一组数的第N大和第N小，对VBA数组同样适用，如：

                     Sub t1()
                          arr = Array(1, 35, 4, 13)
                          MsgBox Application.Large(arr, 2) '第2大值
                          MsgBox Application.Small(arr, 2)  '第2小值
                      End Sub

           二、数组的统计与求和

                 1、Sum

                      Sum函数可以在工作表中求，同样也可以对VBA数组求和，如：

                    
                      Sub t2()
                          arr = Array(1, 35, 4, 13)
                          MsgBox Application.Sum(arr)  '对数组进行求和
                      End Sub

                2、Count和Counta

                     Count和Counta可以统计数组中数字的个数和数字+文本的个数。

                    Sub t3()
                         arr = Array(1, 35, "a", 4, 13, "b")
                         MsgBox Application.Count(arr)  '返回数字的个数4
                         MsgBox Application.CountA(arr)  ‘返回数组文本和数字的总个数
                    End Sub

          三、数组的查询和拆分

               1、Mach查询数组

                 Match函数可以查询一个指定值在一组数中的位置，它也可以用于VBA数组的查询。如：

                 Sub t4()
                        arr = Array(1, 35, 4, 13)
                        MsgBox Application.Match(4, arr, 0)  '查询数值4在数组Arr中的位置
                End Sub

             2、Index拆分数组

                  数组的拆分在VBA中是一个难题，如果是按行拆分数组，除了用循环外也只能借用API函数完成了。幸好我们可以借用工作表函数index达到按列拆分数组，即多列构成的数组，你可以任意拆分出一列构成新的数组。方法是：Application.Index(数组, , 列数) ，例：

                     Sub t2()
                         arr2 = Range("A1:B4") ‘把单元格区域A1：B4的值装入数组arr2
                         arr3 = Application.Index(arr2, , 2)  '把数组第2列拆分出来装入新数组arr3中，新数组为二维数组
                         MsgBox arr3(2, 1)  '取出新数组第2行的值
                    End Sub

        四、数组维数的转换

            Transpose转置数组在工作表中可以把行列转换。在VBA中同样也可以做到转换的效果。

            1、一维转二维。

                 Sub t9()
                      arr = Array(1, 35, "a", 4, 13, "b")
                      arr1 = Application.Transpose(arr)
                      MsgBox arr1(2, 1) ‘转换后的数组是1列多行的二维数组
                 End Sub

            2、二维数组转一维。

                  Sub t2()
                       arr2 = Range("A1:B4")
                       arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组
                      MsgBox arr3(2,)
                  End Sub     

               注：在转置时只有1列N行的数组才能直接转置成一维数组

            思考题：我要把a1:c1中的内容用“-”连接起来，下面代码中为什么用了两次transpose

          Sub t10()
              arr = Range("A1:C1")
              MsgBox Join(Application.Transpose(Application.Transpose(arr)), "-")
          End Sub

  编后话：用于VBA数组的工作表函数我只是列出了一部分，其实象vlookup，Lookup等等函数也可以用于处理VBA数组，大家有空了就去尝试下吧。 

VBA数组学习示例教程之2：了解数组的维数

VBA数组入门教程第3例：把单元格数据搬入内存

VBA数组入门第4例：数组导入到单元格中

VBA数组入门教程第5例：动态数组的声明

在解放思想、转变观念之后，问题居然变得这么简单......

详见附件