日记首页
|
列表
|
添加日记
|
管理登陆
标题：Range("B65535")逐行循环到B列最底行
<font face="Arial" style="font-size: 10.5pt; font-family: Arial;"><span style="font-size: 14px;">Myr = Range("B65535").End(3).Row</span></font><div style=""><span style="font-size: 10.5pt; font-family: Tahoma, "Microsoft Yahei", Simsun; color: rgb(68, 68, 68);"> For i = 2 To Myr </span><br><div style="font-size: 10.5pt; font-family: Arial;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">该循环语句中，从A(B)列第2行开始逐行循环到B列最底行</span></div><div style="font-size: 10.5pt;"><font color="#444444" face="Tahoma, Microsoft Yahei, Simsun"><br></font></div><div style=""><span style="color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif;"><font size="2" style="">For i = 9 To [a65536].End(3).Row</font></span></div><div style=""><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun; font-size: 14px;">该循环语句中，从A列第9行开始逐行循环到A列最底行</span><font color="#444444" style=""><font face="Microsoft Yahei, Hei, Tahoma, SimHei, sans-serif" size="2"><br></font></font><div style="font-family: Arial;"><div style=""><span style="color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif;"><font size="2" style="">是否可写成：</font></span></div><div style=""><span style="color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif;"><font size="2" style="">For i = 9 To</font></span><span style="font-size: 14px;"> </span><span style="font-size: 14px;">Range("</span><span style="font-size: small; color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif;">a65536").End(3).Row</span></div><div style="font-size: 10.5pt;"><span style="color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif; font-size: 16px; font-weight: 700;"><br></span></div><div style="font-size: 10.5pt;"><span style="color: rgb(68, 68, 68); font-family: "Microsoft Yahei", Hei, Tahoma, SimHei, sans-serif; font-size: 16px; font-weight: 700;"><br></span></div><div style="font-size: 10.5pt;"><font face="Arial"><span style="font-size: 14px;">End 属性适用于Range 对象描述返回 Range 对象，该对象代表包含源区域的区域结尾处的单元格。等同于按键 END+上箭头键、END+下箭头键、END+左箭头键或 END+右箭头键。只读。句法expression.End(Direction)expression必选。该表达式返回 Range 对象。DirectionLong 类型，必选。移动的方向。可为下列 XlDirection 常量之一： xlToLeft，xlToRight，xlUp或xlDown。</span></font></div><div style="font-size: 10.5pt;"><font face="Arial"><span style="font-size: 14px;">所以，3 就是 xlUp。</span></font></div><div style="font-size: 10.5pt;"><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style="font-size: 10.5pt;"><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style="font-size: 10.5pt;"><font face="Arial"><span style="font-size: 14px;"><br></span></font></div><div style="font-size: 10.5pt;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">Range对象有一个End属性，也许你在阅读别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句，这就是End属性的利用。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> End属性应用于Range对象，同样也返回一个Range对象。该对象代表包含源区域的区域结尾处的单元格。如果你还是不明白，那请你在工作表里试一试，分别按Ctrl+上、下、左、右方向键，看看得到的是什么？</span><font color="red" style="word-wrap: break-word; font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="word-wrap: break-word; font-weight: 700;">End属性返回的单元格就相当于在源单元格按住Ctrl键+上（或下、左、右）方向键所得到的单元格。</span></font><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">它的语句格式简单写为：</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> 源区域.End（移动方向）</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> 移动方向可以是：</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> </span><font color="green" style="word-wrap: break-word; font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="word-wrap: break-word; font-weight: 700;">xlToLeft </span></font><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">：向左移动，相当于在源区域按Ctrl+左方向键。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> </span><font color="green" style="word-wrap: break-word; font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="word-wrap: break-word; font-weight: 700;">xlToRight</span></font><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">：向右移动，相当于在源区域按Ctrl+右方向键。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> </span><font color="green" style="word-wrap: break-word; font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="word-wrap: break-word; font-weight: 700;">xlUp</span></font><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">：向上移动，相当于在源区域按Ctrl+上方向键。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> </span><font color="green" style="word-wrap: break-word; font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="word-wrap: break-word; font-weight: 700;">xlDown</span></font><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">：向下移动，相当于在源区域按Ctrl+下方向键。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> 所以在程序设计的过程中，很多人喜欢用“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号。</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> 如果当前活动工作表的A列填写的是学生的姓名，现在我们想在表中A列最后一个学生的后面增加一个叫“张三”的学生，则代码为：</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"> ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张三"</span><br style="word-wrap: break-word; color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;"><span style="color: rgb(68, 68, 68); font-family: Tahoma, "Microsoft Yahei", Simsun;">语句 [A65536].End(xlUp).Row + 1中，行号加1的目的是在最后一个非空单元格的下一个单元格里输入数据。需要注意的是：如果你的A列全为空的话，“[A65536].End(xlUp).Row”这个语句返回的是1。</span></div></div></div></div>
