Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何寻找最后一个记录

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

用 EXCEL 来处理数据 , 没可能只有一条吧 ~ 对不 ?

数据是一天比一天多的 , 那么 , 如果我们的程序设计不能够自动寻找最后一个数据的位置 , 来确定新数据的储存位置 , 那你的程序设计就肯定有问题了 ~

之前在那几十编的教学文章内有提到过的 , 现在再精要地再说一次吧 ~

首先 , 要做到这个效果的话 , 条件是数据的记录必须要是一行接一行的 , 当中不能够有任何空白 , 否则会出问题 .

假设你的报表中 , 从储存格 A1 到 A1000 全部都有记录 , 现在你要在储存格 A1001 要程序自动增加数据 , 首先要做的当然就是寻找最后一个记录的位置了 ~ 你当然会想到 , 就是 A1001 那个储存格嘛 ~ 但是我要告诉你 , 计算机很笨的 , 你不告诉它的话 , 它是不会知道的 , 看一下程序代码 , 这几句就足够叫你的计算机明白最后一个数据在那里了 ~

==================

Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row

==================

首先要计算机选择工作页 SHEET 1 的储存格 A1 , 然后由这个储存格开始往下找 , 直到找出最后一个数据的位置 , 然后再利用变量LastRec 把这个行号记下来 ~

当你要记录新数据的时候 , 只需要好好的利用变量 LastRec 所记下来的值就什么都好办了 ~

当然 , 之前的教学文章中有提过 , (xlDown) 这家伙是有亲戚的 , 当中包括了 UP , LEFT 和 RIGHT , 按照不同的情况需要而修改程序代码吧 ~

哦 ~ 对了 ~ 有些人会喜欢用另一种方法来寻找最后一个数据记录位置的 , 程序代码大概是这样 :

==================

Worksheets("Sheet1").Range("A65536").Select
ActiveCell.End(xlUp).Select
LastRec = ActiveCell.Row

==================

不过如果你的计算机比较笨 , 有时候会把那个档案的大小一下子变得很恐怖 , 我真的有这种经验 , 一下子把我的档案由几百个 KB 搞成 几个 MB , 真的是吓死我 , 打开的时候还要慢得要死 ~

所以记得哦 ~ 一定要小心点用 , 否则程序出了点小问题的话 , 很可能会有奇怪的事情发生哦 ~