[問題] VBA函數運算問題

作者: su198932 (秋ㄟ)   2019-11-05 19:33:29
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
用巨集寫基本運算函數,但是因為每次擷取的資料庫筆數不同,而用錄製方式擷取到的程
式寫法筆數會變成固定的...
有辦法知道最後一筆的筆數,並將全部筆數執行函數運算嘛
懇請各位大大解答QQ
https://i.imgur.com/vTCv6Zx.jpg
作者: soyoso (我是耀宗)   2019-11-05 19:39:00
是指最後一筆有資料的列號嗎?如果是的話range.end(..).row或range.find.row,如果資料連續的話工作表函數count或counta
作者: su198932 (秋ㄟ)   2019-11-05 20:36:00
就是我想要一列進行資料運算,但是每次的資料筆數不一定~如文內A2:A9999, 但是A9999應該是不定值(最後一筆資料),卡關,不知道巨集該怎麼撰寫QQ
作者: soyoso (我是耀宗)   2019-11-05 20:46:00
就以回文方式來取得最後一筆有值的列號看是否寫入變數,變數的話就同上列所寫的 "..:a" & 變數
作者: su198932 (秋ㄟ)   2019-11-05 21:04:00
感謝S大~我再試試看~抱歉EXCEL尚很少用,很薄弱。
作者: a29976137 (billy)   2019-11-05 21:40:00
i=range("a1").end(xldown).rowrange("a2:a" & r)
作者: soyoso (我是耀宗)   2019-11-05 21:56:00
不正確,要寫入變數i,那怎麼"a2:a" & r 卻用r所舉的例也要連結上也要用變數i且不確定資料是否連續,也不要回文上就是用xldown的方式要這樣回也請假設資料是連續的情況下連續且連續資料是二個儲存格以上再使用xldown不然請用xlup方式
作者: paul60209 (我是保羅小小)   2019-11-06 15:02:00
LR=Sheets("工作表1").Cell(1,"A").End(xlUp).RowRange(Cells(2,"A"),Cells(LR,"A"))
作者: soyoso (我是耀宗)   2019-11-06 15:33:00
不正確,1.不是cell而是cells2.就算是cells(1,"A").end(xlup).row也不正確,因為a1往上不論a1本身有無資料都只會回傳1而已要取a欄不論是否連續資料的最後一筆有資料的列號以range("a1048576")或cells(1048676,1[或"A"]).end(xlup).row但有一限制就是a1048576這儲存格為空白儲存格cells(1048576,...)這限制要排除的話,以range.find的方式
作者: su198932 (秋ㄟ)   2019-11-06 20:11:00
感謝S大,我的問題解決了~

Links booklink

Contact Us: admin [ a t ] ucptt.com