墙上那一串串红辣椒——数组入门讲座

zhy8138 · 发表于 2017-3-7 23:24

学习学习~~

kevinhsia · 发表于 2017-3-24 17:02

山老师辛苦了！

莫愁湖 · 发表于 2017-7-4 01:16

确实是好帖,顶一下

wds1061 · 发表于 2017-7-4 11:44

数组学习，来得晚了，谢谢分享

sh205 · 发表于 2017-8-21 11:37

谢谢版主分享！！！

excel玉米 · 发表于 2017-10-25 22:21

山老师您好，今天在学习您墙上那一串串红辣椒——数组入门讲座数组入门09.xls时发现，s = UBound(Xm) '求最大下标后
ReDim Arr(0 To s, 1 To 2) ，因为下标为20，实际是有21个名字，好象是丢失了最后一个名字曾德福，这要怎么避免呢？求教！

山菊花 · 发表于 2017-10-26 07:48

excel玉米发表于 2017-10-25 22:21
山老师您好，今天在学习您墙上那一串串红辣椒——数组入门讲座数组入门09.xls时发现，s = UBound(Xm) '求 ...

谢谢你，一直没注意到这里有个错误。
实际有21个名字，前面定义数组到写入数组都没问题，到最后输出到工作表时丢失了最后一个名字，错误出在最后一行：
把原来的s改为s+1：
Range("b6").Resize(s + 1, 2) = Arr '把结果保存到工作表指定的单元格中

谢谢你的指正！

excel玉米 · 发表于 2017-10-26 10:12

山菊花发表于 2017-10-26 07:48
谢谢你，一直没注意到这里有个错误。
实际有21个名字，前面定义数组到写入数组都没问题，到最后输出到工 ...

山老师您太客气了。感谢您和其他前辈的无私教程，才能让我们这些小白见识一番新天地。

我的电子表1516 · 发表于 2018-1-4 11:04

楼主辛苦了，好文章要顶起来！

zhangjinsong · 发表于 2018-2-3 18:39

学习之中！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

		自动登录	找回密码
密码			免费注册