数组入门Word文档格式.docx
- 文档编号:17711343
- 上传时间:2022-12-08
- 格式:DOCX
- 页数:10
- 大小:26.63KB
数组入门Word文档格式.docx
《数组入门Word文档格式.docx》由会员分享,可在线阅读,更多相关《数组入门Word文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
Array()很好用,但有时Split()更好用,我们取出这瑞士军刀的第二利器。
Split()把一个文本,根据指定的分隔符,建立一个数组。
看一个实例:
单元格A1中有一串姓名:
朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福
要求:
用Split(),把这串文本创建为一个数组:
QUOTE:
Subtest()
XM=Split(Range("
a1"
),"
"
)
EndSub
同样可以用本地窗口检查转换结果。
注意,Split()函数把文本转换成数组,并不受OptionBase的影响,索引号总是从0开始。
很自然想知道,A1单元格中有多少个姓名?
创建的数组有多少个元素?
瑞士军刀中有把小尺子,可以量一量:
Ubound()——返回数组的最大下标。
xm=Split(Range("
MsgBox"
数组最大下标是"
&
UBound(xm)&
Chr(13)_
"
数组共有"
UBound(xm)+1&
个元素"
参考:
数组入门04.xls
应用实例:
[求助]快速输入问题[复制链接]
一些快速输入的问题,希望各位老师帮忙一下,
[em06][em06][em06][em06]
NGveAaba.rar(3.5KB,下载次数:
434)
2006-10-3013:
35上传
下载次数:
434
[求助]快速输入问题
回复:
(zaq159)[求助]快速输入问题
试试:
eXg5zVa6.rar(8.54KB,下载次数:
886)
2006-10-3118:
47上传
886
(zaq159)[求助]快速输入问题
ULEPJcQo.rar
2006-10-3014:
16上传
618
10.19KB,下载次数:
[求助]快速输入问题
5、三维表示一个空间,四维、五维、六维呢?
三维已经可以代表宽广无垠的宇宙,而数组却允许声明为4维、5维、6维,直至60维。
这是一个什么样的概念?
我曾经打过一个这样的比方:
[讨论]大家谈谈函数返回的“维数”问题[复制链接]
看了apolloh版主的
浅谈引用函数产生的多维引用及其应用
很想弄清出什么是Excel函数返回的“内存数组”的“维数”。
根据自己一点点初中数学知识(我只是一个体育老师),想当然的认为:
一维:
也就是一条线上的数,用坐标表示就是一条直线。
二维:
就是两条线相互交叉,组成一个平面,用坐标轴表示就会有X轴
和Y轴,也就是一个平面,平面中的任何一个位置都可以用A(x,y)来表示
三维:
是两个平面交织在一起,形成一个空间,也就是2个二维形成一个3维的立体空间,如正方体、长方体等等。
一个三维空间里面的任何一点,都可以用
A(x,y,z)来表示。
4维:
(我真的不知道4维怎么表达)根据前面的推理,2个一维的直线组成一个二维平面,2个二维的平面组成一个3维空间,那么,是不是2个三维的空间组成一个整体形成4维……
5维:
2个4维又组成一个5维……(我不知道啊,知道的进来讨论一下)
那么对于函数而言,如果返回的是:
{a,b,c,d,e,……}或者{a;
b;
c;
d;
e;
……}这样的一个内存数组,是不是就是一个一维的数组呢?
而返回的的如果是:
{a,b,c;
1,2,3;
d,e,f;
4,5,6}
是不是一个二维的内存数组?
而内存数组结果为“三维”的是不能看见的,因为你用“抹黑,按F9”来看,看到的是#Value!
,但又可以用sumif或者countif等函数赖进一步计算。
Excel函数返回的4维内存数组是怎么样,我不得而知。
希望各位“家人”来讨论一下,我想很多人还是不很清楚函数的结果的这种“概念”并能够理解的。
举个例子吧
举个例子进行讨论,否则大家都不进来了!
FLDurJu1.rar(2.48KB,下载次数:
454)
2006-8-2911:
40上传
454
[讨论]大家谈谈函数返回的“维数”问题
(chenhuafu)[讨论]大家谈谈函数返回的“维数”问题
“维”源自空间概念,在Excel中,在计算机语言中,“维”应该是一种引用概念,用来表示“序”和“区域”,用“直线、平面、空间”来领会计算机语言中的“维”,还是相通的,还是直观的。
但要以此思维方向领会“四维”、“五维”,有些牵强。
想像一下我们常用的稿纸,写文章用的稿纸。
每一个格子是一个元素
一行构成“一维”
行向下延伸,若干行构成“页”,相对“格子”而言,是“二维”
将“页”层叠,构成“本”,相对每一个“格子”,“本”是“三维”,第3页第4行第5个格子,每一个格子,与三个因素有关。
把若干“本”汇集一起装在“柜”中,“柜”相对“格子”而言,是“四维”,引用每一个“格子”,你必须说“第A本第B页第C行第D格”,与四个因素相关。
依此下去,若干“柜”还可以组成“室”,“室”相对“格子”而言,是“五维”。
直至六维、七维、八维,也不过如此。
维是一种相对的概念,如“本”,相对于“格子”而言,它是“三维”,相对“行”而言,它是“二维”,称呼每一个“行”,只须说“第?
页第?
行”就行,“本”相对“页”而言,是“一维”,称呼每一“页”,只须说“第?
页”。
这样解释是否“牵强”?
6、由工作表区域创建数组。
与Array()和Split()相比,由工作表区域创建数组更加直观而简易,一个等号便解决问题:
如:
用Sheet2工作表A1:
E83的数据创建一个数组:
PrivateSubCommandButton1_Click()
arr=Sheet2.Range("
a1:
e83"
如果把该数据复制到Sheet1工作表相同区域,用数组操作,代码如下:
Range("
)=arr
共两句,前一句把数据保存到数组,第二句,把数组内容写入到工作表。
选择第3行代码,按F9设置断点。
点击按钮运行代码,到该行,程序自动中断,此时,可从本地窗口中观察到运行结果,一个83行2列的数组已经创建。
7、随心所欲创建数组
以上几种办法都是根据已有的数据创建数组。
实际使用中,更多时候,程序需要先创建数组,然后对数组进行赋值和修改。
Private、Public、Dim、Static,这些语句都可声明数组变量,区别在于声明的数组的使用范围,可查看各语句的帮助。
新建一个过程:
Sub声明数组()
DimMyArray(10)'
在过程中间声明一个数组,过程结束,本数组将被释放。
MyArray
(1)=100'
给数组赋值
MyArray(5)=90
按F8逐行运行程序,在本地窗口中可以看到数组MyArray()已成功创建。
8、进阶操作声明数组
⑴声明数组还可以根据需要自己指定下标和上标,而且不受OptionBase的影响:
DimcArr(11To20)‘声明一个数组cArr,下标从11到20,共有10个元素。
cArr(11)="
上"
cArr(12)="
中"
cArr(13)="
下"
数组的索引值还允许为负整数:
DimnArr(-10To10)‘声明一个数组nArr,下标从-10到10,共21个元素。
nArr(-10)=123
nArr(-9)=456
nArr(-2)=789
可变的下标给你的程序带来灵活性,推荐另一个函数:
UBound()函数的姐妹花LBound()。
LBound()可以返回指定数组维可用的最小下标。
xb=LBound(nArr)
MsgBoxxb
⑵声明数组时,还允许像声明单值变量一样为数组指定为数据类型。
DimcArr(11To20)AsString
AsString表示数组cArr()是一个字符型变量,在本地窗口中可以看到,没有赋值的元素默认为空文本。
DimnArr(-10To10)AsInteger
AsInteger表示数组nArr()是一个整型变量,在本地窗口中可以看到,没有赋值的元素默认为0。
没有指定类型的变量,默认为Variant,没有赋值的元素默认为“空值”。
如果要声明级别更高的变量,可使用Public语句。
详见帮助。
9、动态数组
以上声明的数组都属于“静态数组”,每个数组有确定的维数,每维有确定的最大下标。
与之相对应的是动态数组。
程序中,数组的大小有时不是固定的,而是随数据的变化而变化。
声明数组的时候,不指定数组的维数与下标,这样的数组就是动态数组,在程序中可用命令Redim为动态数组变量重新分配存储空间。
例:
把名单整理成两列,第一列是姓名,第二列是性别,把它输出到B:
C两列。
与例4相同,用Split(),把这串文本创建为一个数组,然后根据这个数组的大小,创建另一个数组:
ReDimArr(1Tos,1To2)
其中s是数组xm()的最大下标,xm()有多少行,Arr()就有多少行,列数为2,一列是姓名,另一列是性别。
数组入门09.xls
允许使用ReDim语句反复地改变数组的元素以及维数的数目,请自己练习。
10、对同一数组的反复定义
对同一数组反复改变大小的时候,也有规则必须遵守。
如果数组中存在数据,再次定义的时候默认把原数据清除,重新定义后的数组是一个空的数组。
如果你要保留原来的数据,必须加上参数Preserve。
使用Preserve参数又有一个限制,只能改变最后一维的大小,比如二维数组,只能改变第2维(列)的大小而不能改第1维(行)的大小。
还是使用上个示例,要求把A1单元格中的女同学的姓名整理成两列,第一列序号,第二列是姓名。
使用数组Arr()记录整理结果,我们在遍历原始数组xm()的时候,根据性别的判断即时改变Arr()的大小。
但不能把数组Arr()定义为n行2列,第1列保存序号,第2列保存姓名,因为我们必须使用Preserve参数保留原来的数据,此时数组Arr(n,2)的第一维是不允许改变的。
为了解决为个矛盾,我们可以把数组定义为2行n列,第一行记录序号,第二行记录姓名,列数在程序过程中反复改变。
n=n+1
ReDimPreserveArr(1To2,1Ton)'
改变动态数组的大小,共2行,n列
数组第1行记录序号,第2行记录姓名:
Arr(1,n)=n
Arr(2,n)=Left(Xm(i),Len(Xm(i))-3)
对数组xm()遍历结束后,把结果写入工作表,因为数组的方向与结果要求的方向不一致,所以要加一个转置函数:
Range("
b6"
).Resize(n,2)=WorksheetFunction.Transpose(Arr)
数组入门10.xls
11、搜索数组
园子里是不是有红苹果?
你手中的牌是不是有红桃K?
我们用眼睛一瞄就知道。
数组元素中是不是有“张三”,是不是有“李四”,我们如何知道?
不用担心,Filter()函数刚好可以帮你忙。
Filter()函数在一维数组中搜索文本型数据,并把结果保存到指定的数组中。
A1单元格是以逗号分隔的姓名串,部分有重复,要求剔除其中重复的姓名,把不重复的姓名写入单元格A2向右的区域。
第一步,把所有姓名保存到数组xm()中;
第二步,建立一个数组Arr()保存结果,遍历xm()过程中,检查Arr()中是否存在当前的姓名,用命令:
Temp=Filter(Arr,xm(i))'
在数组Arr()中搜索当前值xm(i),如果找到,结果保存到Temp()数组中,如果找不到,返回一个空的数组Temp()
根据Temp()数组的大小,可以知道当前值xm(i)是不是一个重复的值。
数组入门11.xls
在对联库中检索对联
批量检索难题求助
现在有对联库
上联放A列
下联放在B列
需要输入名字按要求批量查找对应的对联并输出
说明:
A为上联,B为下联C要输入的名字D对应的对联
规律:
在C处输入名字如两字“刘岛”取"
刘岛"
为检索值,,如三个字“刘留非”:
取“留非”为检索值,,如四字“欧阳留非”取“留非”为检索值
第一个检索的字在上联的任意位置,第二个检索字在下联的任意位置,上联与下联用空格隔开如果结果有多个全部输出到D列与名字对应单元格中并显示找到的数量每格对联用逗号隔开,如找不到对应的对联输出“找不到匹配的对联"
此问题比较复杂
望各位高手多帮忙
4ra95BHV.rar(40.78KB,下载次数:
168)
8Chk7PBB.rar(40.88KB,下载次数:
130)
2008-1-811:
32上传
130
参考参考
感谢yoka
=INDEX(ROW($A$1:
$A$1182)&
"
行-"
&
$A$1:
$A$1182&
$B$1:
$B$1182,SMALL(IF(ISNUMBER(FIND(LEFT(RIGHT($C$4,2)),$A$1:
$A$1182))*ISNUMBER(FIND(RIGHT($C$4),$B$1:
$B$1182)),ROW($A$1:
$A$1182)),ROW(1:
1)))
在第四行可以用,D4的公式往下拉没有用
我想要在C列批量查找
一次一千个以上
06上传
168
批量检索难体求助
12、连接数组元素
有一个函数,是Split()的反向操作函数,把数组的元素连接成一个字符串,这个函数就是Join()。
在上例中,把要求改为,剔除重复值后,把结果依原样输出到A2单元格中。
我们只需改变最后一行代码:
把这一行:
'
a2"
).Resize(1,r)=Arr'
填充到工作表
换成这一行,用上Join()函数,把Arr()数组中的元素用“,”连接成一个字符串:
)=Join(Arr,"
13、清除数组
当数组不需要使用时,可用Erase语句清除数组元素,释放变量占用的空间。
语句:
Erasexm,Arr
每条Erase语句,可清除一个数组,也可同时清除多个数组,数组名之间用逗号分隔。
学习数组14
对于数组感兴趣的朋友在您掌握了一些基本的取值、赋值、循环等技巧之后,不妨在了解一些也许你们不太了解的数组用法,这些都会是很有用的数组编程技巧
1,取工作表区域的绝对引用公式到数组:
arr=[a1:
c5].Formula
2,取工作表区域的相对引用公式到数组:
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,)
[2005-10-14]感谢山菊花朋友为本贴提供精彩演示附件:
0bK0Oljb.rar(17.16KB,下载次数:
1749)
2005-10-1417:
13上传
1749
[原创][数组]补充一些大家不太了解的数组用法
VBA入门之一《与代码亲密接触》
学习数组15
综合应用示例:
本程序没有考虑速度的最优化,因为写了一个数组的讲座帖,而采用数组的方法去处理,但比工作表函数肯定快得多。
用VBA(数组)进行人员分类:
o4cPmnYn.rar(15.65KB,下载次数:
746)
2006-11-210:
27上传
746
求教高手:
优化公式或指点提高表格运算速度的办法
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数组 入门