Arr= .[a1].CurrentRegion遇到空列怎么办？

piaoxue1

如题，Arr= .[a1].CurrentRegion遇到空列怎么办？
For i = 2 To UBound(arr) 是不是就会出错？
可以用Range("C2").End(xlDown).Row获取行数后，Resize   arr吗？
然后UBound(arr)是不是就不能用了？

jpj123

首先，Arr= .[a1].CurrentRegion遇到空列时后面的数据区域就不在ARR 中了。
第二，For i = 2 To UBound(arr) 出错和空列无关。
第三，可以用Range("C2").End(xlDown)获取末行单元格，用Resize 扩展区域  ，然后赋值给arr。
不知道我说清楚没？

山菊花

中午要请客，我发了个微信，通知亲朋好友。
可是，老舅他没有微信，真的没有。
怎么办？怎么办？？
还能怎么办？老舅是要请的，骑着自行车到老舅家去请就是了。

山菊花

[a1].CurrentRegion可以获得与包括A1单元格在内的整个区域，但是，你要的数据不在此区域，用它就不灵光了。
改用其它获取方式，这是无疑的。方法很多，看实际情况选择。

山菊花

其实楼主也想到了解决办法，只是不太自信，为什么不一个一个去试试呢？我的体会是，程序是试出来的。
我几乎不用CurrentRegion，这东西有点小气，比如，把工作表保护了的时候。。。

piaoxue1

山菊花 发表于 2015-1-7 21:04
中午要请客，我发了个微信，通知亲朋好友。
可是，老舅他没有微信，真的没有。
怎么办？怎么办？？

额，我。。。。。。。。。。

piaoxue1

jpj123 发表于 2015-1-7 21:01
首先，Arr= .[a1].CurrentRegion遇到空列时后面的数据区域就在䓆ARR 中了。
第二，For i = 2 To UBo ...

䓆 啥意思？笔误？应该遇到空列后面的数据就不在arr中了吧？
第二，是承接上文的，如果有数据没在arr中，是不是ubound（arr）达不到目的了？
第三个，我理解了，我刚接触vba3天，有些命令表达方式不太熟，多见谅。
多谢jpj123解答。

piaoxue1

山菊花 发表于 2015-1-7 21:10
其实楼主也想到了解决办法，只是不太自信，为什么不一个一个去试试呢？我的体会是，程序是试出来的。
我几 ...

刚接触VBA，时间不长，编代码不太熟练，还在学习中。写出的代码各种错误，还不知道错在哪里，很伤学习兴趣，就没挨个试试的欲望了。我刚起步，以后还得多跟各位老师学习。望不吝赐教。

山菊花

piaoxue1 发表于 2015-1-7 21:52
写出的代码各种错误，还不知道错在哪里，很伤学习兴趣，就没挨个试试的欲望了。

增广贤文上有句话：人见白头嗔，我见白头喜。此刻我想到它，就是想说一个心态。
我们学习VBA，都会遇到问题，遇到问题怎么办？研究它，解决它，问题解决了，积攒下的经验就是自己的。

如何知道错在哪里是个很实际的问题。
写好的代码，常常都会搞不懂它会得到什么结果，或者它为什么会得到这么个不是我要的结果。
打开本地窗口，逐语句调试，将结果输出到立即窗口，都是必须的。或者说，都是读懂程序、分析代码的好办法。你是这样做的吗？

山菊花

当A1所在区域存在多个值时，[a1].CurrentRegion赋给Arr是一个数组：


当A1不在数据区域中，仅是单独一个单元格时，[a1].CurrentRegion赋给Arr是一个单值，不是数组：


所以，下一行代码中UBound(arr)返回错误，因为Arr不是数组，UBound()就没办法告诉你它的最大下标是多少，只能说sorry。