Vb(VBA)数组操作
与Array()和Split()相比，由工作表区域创建数组更加直观而简易，一个等号便解决问题：
如：用Sheet2工作表A1:E83的数据创建一个数组：
Private Sub CommandButton1_Click()
arr = Sheet2.Range("a1:e83")
End Sub
如果把该数据复制到Sheet1工作表相同区域，用数组操作，代码如下：
Private Sub CommandButton1_Click()
arr = Sheet2.Range("a1:e83")
Range("a1:e83") = arr
End Sub
共两句，前一句把数据保存到数组，第二句，把数组内容写入到工作表。
选择第3行代码，按F9设置断点。点击按钮运行代码，到该行，程序自动中断，此时，可从本地窗口中观察到运行结果，一个83行2列的数组已经创建。
Filter()函数在一维数组中搜索文本型数据，并把结果保存到指定的数组中。
A1单元格是以逗号分隔的姓名串，部分有重复，要求剔除其中重复的姓名，把不重复的姓名写入单元格vba编程技巧A2向右的区域。
第一步，把所有姓名保存到数组xm()中；
第二步，建立一个数组Arr()保存结果，遍历xm()过程中，检查Arr()中是否存在当前的姓名，用命令：
Temp = Filter(Arr, xm(i)) '在数组Arr()中搜索当前值xm(i)，如果到，结果保存到Temp()数组中，如果不到，返回一个空的数组Temp()
根据Temp()数组的大小，可以知道当前值xm(i)是不是一个重复的值。
Split()把一个文本，根据指定的分隔符，建立一个数组。
看一个实例：
单元格A1中有一串姓名：
朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福
要求：用Split()，把这串文本创建为一个数组：
Sub test()
XM = Split(Range("a1"), ",")
End Sub
同样可以用本地窗口检查转换结果。
注意，Split()函数把文本转换成数组，并不受Option Base的影响，索引号总是从0开始。
有一个函数，是Split()的反向操作函数，把数组的元素连接成一个字符串，这个函数就是Join()。
在上例中，把要求改为，剔除重复值后，把结果依原样输出到A2单元格中。
我们只需改变最后一行代码：
把这一行：
'Range("a2").Resize(1, r) = Arr '填充到工作表
换成这一行，用上Join()函数，把Arr()数组中的元素用“,”连接成一个字符串：
Range("a2") = Join(Arr, ",")
对于数组感兴趣的朋友在您掌握了一些基本的取值、赋值、循环等技巧之后，不妨在了解一些也许你们不太了解的数组用法，这些都会是很有用的数组编程技巧
1、取工作表区域的绝对引用公式到数组：arr=[a1:c5].Formula
2、取工作表区域的相对引用公式到数组：arr=[a1:c5].Formular1c1
3、取工作表区域的转置到数组：arr=Application.Transpose([a1:c5]) 数组间也可以转置：arr1=Application.Transpose(arr)
4、取数组arr的第n列赋值到某列区域：[e1:e5]=Application.Index(arr, , n) 或者赋值产生一个新数组：arr1=Application.Index(arr, , n)
5、同理，取数组arr的第n行赋值到某行区域：[a6:c6]=Application.Index(arr,n , ) 或者赋值产生一个新数组：arr1=Application.Index(arr, n, )
一、数组的分类
按元素数目分：元素数目大小固定的数组和元素数目大小不固定的动态数组。
按维数分：一维数组、多维数组。
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;
三、数组里的最大值和最小值
最大值aa = Application.WorksheetFunction.Max(Arr)
aa= Application.WorksheetFunction.Large(Arr,1)
最小值aa = Application.WorksheetFunction.Min(Arr)
aa= Application.WorksheetFunction.Small(Arr,1)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。