返回选取的多个区域总行数(最简代码在1楼)

兰色幻想

<p>题目:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 用VBA编写一段代码,运行后返回选取的多个区域的总行数, 重复的算作一行.如下图所示.</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 最简代码奖励10个币币,请用回复可见方式回贴</p><p>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; 截止日期: 2008-5-26</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p><p>兰色的最简代码和解释如下: </p><p><font color="#2c902c"><strong>代码:</strong></font><font color="#ff0000"><br/></font><font color="#0808d6">MsgBox Intersect([A:A], Selection.EntireRow).Count</font></p><p><font color="#2d7d2d"><strong>解释:</strong></font></p><p>&nbsp;&nbsp;&nbsp;&nbsp; 1、&nbsp;除去所有多个区域重复行的方法,就是把他们合成为一行, 即: </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0808d6">Selection.EntireRow</font></p><p>&nbsp;&nbsp;&nbsp; 2、 得到选取行在A列的单元格个数，即可得到选取的总行数，即：</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#1010de"><font color="#e70808">Intersect</font>([A:A], Selection.<font color="#e70808">EntireRow</font>).Count</font></p><p><font color="#1f7a1f"><strong>&nbsp; 兰色注</strong></font>： 大家这里一定要关注<font color="#e70808">EntireRow</font>（单元格所在行，点转化为面）和<font color="#e70808">intersert</font>（返回区域的交集）的灵活运用</p><p>&nbsp;</p>

[此贴子已经被作者于2008-5-24 13:41:55编辑过]

至尊宝_98_76

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p><font color="#e70808">四个常用思路之一</font></p><p><font color="#e70808">&nbsp;&nbsp;&nbsp; --------兰色幻想</font></p>

[此贴子已经被兰色幻想于2008-5-22 12:16:54编辑过]

uranus1997

<p>先给一个取巧的，只限于在空表运行。[em01]</p><p><br/>

游客，如果您要查看本帖隐藏内容请回复

</p><p>&nbsp;</p>

[此贴子已经被作者于2008-5-22 18:55:22编辑过]

uranus1997

<p>再来一个正经点的。<br/><br/>

游客，如果您要查看本帖隐藏内容请回复

</p>

[此贴子已经被long_xiang于2008-5-24 12:26:57编辑过]

至尊宝_98_76

<p><font color="#0000ff"><strong>上面的几种方法，如果单元格超多速度会很慢。例如选1列会计算很长时间。</strong></font></p><p><font color="#0000ff"><strong>下面程序长点，但相信速度快的多，更实用。从实用角度出发，兰版多给个BB</strong></font></p><p>

游客，如果您要查看本帖隐藏内容请回复

</p><p><font color="#e73408">代码运行结果有误,可以选取不相邻的列测试一下</font></p><p><font color="#e73408">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ------------兰色幻想</font></p><p><font color="#3300ff" size="5">是有问题，没考虑周全。不过我测试，字典的没有集合快啊。2万单元格测试，集合是2.4秒，字典要3.9秒啊</font></p>

[此贴子已经被作者于2008-5-22 21:50:20编辑过]

小笨蛋

<p>学习来了!</p>

uranus1997

<p>&nbsp;</p><p>再发一个不用字典集合的。同样除声明和MsgBox外，3行</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p><p><font color="#d60808">思路不错,就是运行速度慢些</font></p>

[此贴子已经被long_xiang于2008-5-22 21:04:38编辑过]

北部湾

<p>学习中</p>

cjch1969

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p><font color="#e73408">程序运行结果有误, 可以选取不相邻的几列测试一下</font></p><p><font color="#e73408">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -----------兰色幻想</font></p>

[此贴子已经被兰色幻想于2008-5-22 21:02:44编辑过]

兰色幻想

大家继续