作者su198932 (秋ㄟ)
看板Office
标题[问题] VBA函数运算问题
时间Tue Nov 5 19:33:29 2019
(若是和其他不同软体互动之问题 请记得一并填写)
软体:Excel
版本:2010
用巨集写基本运算函数，但是因为每次撷取的资料库笔数不同，而用录制方式撷取到的程
式写法笔数会变成固定的...
有办法知道最後一笔的笔数，并将全部笔数执行函数运算嘛
恳请各位大大解答QQ
https://i.imgur.com/vTCv6Zx.jpg
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.47.178.197 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1572953611.A.F30.html
1F：→ soyoso: 是指最後一笔有资料的列号吗？如果是的话 11/05 19:39
2F：→ soyoso: range.end(..).row或range.find.row，如果资料连续的话 11/05 19:40
3F：→ soyoso: 工作表函数count或counta 11/05 19:40
4F：→ su198932: 就是我想要一列进行资料运算，但是每次的资料笔数不一定 11/05 20:36
5F：→ su198932: ~ 11/05 20:36
6F：→ su198932: 如文内A2:A9999, 但是A9999应该是不定值(最後一笔资料) 11/05 20:36
7F：→ su198932: ，卡关，不知道巨集该怎麽撰写QQ 11/05 20:36
8F：→ soyoso: 就以回文方式来取得最後一笔有值的列号 11/05 20:46
9F：→ soyoso: 看是否写入变数，变数的话就同上列所写的 "..:a" & 变数 11/05 20:48
10F：→ su198932: 感谢S大~我再试试看~抱歉EXCEL尚很少用，很薄弱。 11/05 21:04
11F：推 a29976137: i=range("a1").end(xldown).row 11/05 21:40
12F：→ a29976137: range("a2:a" & r) 11/05 21:41
13F：→ soyoso: 不正确，要写入变数i，那怎麽"a2:a" & r 却用r 11/05 21:56
14F：→ soyoso: 所举的例也要连结上也要用变数i 11/05 21:58
15F：→ soyoso: 且不确定资料是否连续，也不要回文上就是用xldown的方式 11/05 21:58
16F：→ soyoso: 要这样回也请假设资料是连续的情况下 11/05 21:59
17F：→ soyoso: 连续且连续资料是二个储存格以上再使用xldown 11/05 22:01
18F：→ soyoso: 不然请用xlup方式 11/05 22:01
19F：→ paul60209: LR=Sheets("工作表1").Cell(1,"A").End(xlUp).Row 11/06 15:02
20F：→ paul60209: Range(Cells(2,"A"),Cells(LR,"A")) 11/06 15:02
21F：→ soyoso: 不正确，1.不是cell而是cells 11/06 15:33
22F：→ soyoso: 2.就算是cells(1,"A").end(xlup).row也不正确，因为a1往上 11/06 15:34
23F：→ soyoso: 不论a1本身有无资料都只会回传1而已 11/06 15:35
24F：→ soyoso: 要取a栏不论是否连续资料的最後一笔有资料的列号 11/06 15:35
25F：→ soyoso: 以range("a1048576")或cells(1048676,1[或"A"]).end(xlup) 11/06 15:38
26F：→ soyoso: .row 11/06 15:38
27F：→ soyoso: 但有一限制就是a1048576这储存格为空白储存格 11/06 15:38
28F：→ soyoso: cells(1048576,...) 11/06 15:39
29F：→ soyoso: 这限制要排除的话，以range.find的方式 11/06 15:42
30F：→ su198932: 感谢S大，我的问题解决了~ 11/06 20:11