作者unfinish (笑吟吟的淫淫笑)
看板Visual_Basic
标题Re: [VBA ] 如何在excel里抓取sheet中的最後一笔资 …
时间Mon Jul 31 22:26:23 2006
※ 引述《resamond (肥肥的鸵鸟一只)》之铭言：
: 我需要弄一个巨集
: 能够自动在excel 中里的sheet里
: 取每一个sheet的资料
: 但因为每个sheet的record数不一定
: 所以不能写死，用自动录的是写死的
: 如我要抓取A 栏中的记录
: 本来有找到一个可能函数range("A1",Range("A1").End(exdown))
: 可是这样它竟然就抓到65536笔记录去了
: 好像就跑到excel里所能存的最多笔数去了
: 我要的资料其实才一百多笔而已
: 所以我想请问有无函数可以抓取最後一笔有资料的record在那一列
: 如果可以的话最好能够知道列数
: 这样在设range就很方便了
请问是每次都抓最後一笔吗
用回圈不可以吗
Range("A1").select
Do
If ActiveCell.Offset(i, 0).Value = "" Then
Exit Do
End If
i = i + 1
Loop
从A1开始到最後一笔
只要储存格是空的就停了，如果是要知道笔数那就是i
因为不清楚你真正的需求是什麽
所以...
有帮到忙吗?
另外，如果指定的储存格已经是最後一个
再用.End(xlDown)的话，就会指到65535去了
也就是说只要你确定你的笔数每次绝对都大於2的话
你就可以用
Range("A1").Select
Selection.End(xlDown).Select
这样就直接指向最後一笔了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.168.52.192
※ 编辑: unfinish 来自: 218.168.52.192 (07/31 22:36)