VBA数组运用.docVIP

VBA数组运用 VBA数组运用 ==================================================== ==================================================== 一、数组的分类 按元素数目分：元素数目大小固定的数组和元素数目大小不固定的动态数组。 按维数分：一维数组、多维数组。 Arr(1 to 12)、Arr1(0 to 24)----一维固定数组； Arr2(1 to 5,1 to 8)---- 二维固定数组； Arr3(5 to 10,6 to 12,1 to 100) ---- 三维固定数组。 动态数组 Dim Arr2(),r% r=r+1 ReDim Preserve Arr2(1 To r) ―――动态数组；可以重新声明（只有最后一维的数目才能重新声明）； 用了关键字 Preserve 可确保原来包含数据的数组中的任何数据都不会丢失 ==================================================== ==================================================== 二、数组的赋值 2.1，单元格区域保存到数组 arr = [e22:i24] arr=Range(“e22:i24”) 2.2，Array函数 myArray = Array(AAA, BBB, 200, 500, 2006-7-12) 如果代码头没有 Option Base 1 的语句，则数组myArray的上限为4，下限为0。 即下限LBound(myArr)=0 ，上限 UBound(myArr)=4 二维数组的第一维的上限：UBound(Arr,1) 二维数组的第二维的上限：UBound(Arr,2) 多维数组上限的求法一样。 2.3，把单元格区域公式赋给数组 如果a5=B4+1 arr = [a4:c8].Formula 将单元格绝对引用公式保存到数组 [e4:g8]=arr 此时e5中的公式也＝B4+1; 如果将单元格相对引用公式保存到数组 arr = [a4:c8].FormulaR1C1 如果a5=B4+1 [e4:g8]=arr 此时e5中的公式就＝E4+1; ==================================================== ==================================================== 三、数组的处理 3.1，数组里的最大值和最小值 最大值aa = Application.WorksheetFunction.Max(Arr) aa= Application.WorksheetFunction.Large(Arr,1) 最小值aa = Application.WorksheetFunction.Min(Arr) aa= Application.WorksheetFunction.Small(Arr,1) 3.2，数组里搜索 Temp = Filter(Arr, xm(i)) 搜索数组 Sub yy() Dim Arr(), aa$, x% aa = asssfffssssaaasss: bb = s For x = 1 To Len(aa) ReDim Preserve Arr(1 To x) Arr(x) = Mid(aa, x, 1) Next x temp = Filter(Arr, bb) cc = UBound(temp) + 1 ‘cc=”s”的个数 End Sub 用于对字符串数组进行搜索，得到一个新的数组temp， 缺点：只告诉你某元素是否存在于数组中，而不知道其具体位置； 数组精确搜索： Sub FilterExactMatch() 该函数在一个字符串数组中搜索那些 与搜索字符串完全匹配的元素。 Dim astrFilter() As String Dim astrTemp() As String Dim lngUpper As Long Dim lngLower As Long Dim lngIndex As Long Dim lngCount As Long astrItems = Array(a, sas, s, Sas, s, f, f, f, f, sas, s, sas, a, a, Sas, s, s) strSearch = Sas 为搜索字符串而过滤数组。 astrFilter = Filter(