- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Vb(VBA)数组操作
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单元格是以逗号分隔的姓名串,部分有重复,要求剔除其中重复的姓名,把不重复的姓名写入单元格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函数
m
文档评论(0)