[問題] VBA函數運算問題

[su198932 (秋ㄟ)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel

版本:2010

用巨集寫基本運算函數，但是因為每次擷取的資料庫筆數不同，而用錄製方式擷取到的程
式寫法筆數會變成固定的...
有辦法知道最後一筆的筆數，並將全部筆數執行函數運算嘛
懇請各位大大解答QQ
https://i.imgur.com/vTCv6Zx.jpg

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.47.178.197 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1572953611.A.F30.html
→ soyoso: 是指最後一筆有資料的列號嗎？如果是的話
→ soyoso: range.end(..).row或range.find.row，如果資料連續的話
→ soyoso: 工作表函數count或counta
→ su198932: 就是我想要一列進行資料運算，但是每次的資料筆數不一定
→ su198932: ~
→ su198932: 如文內A2:A9999, 但是A9999應該是不定值(最後一筆資料)
→ su198932: ，卡關，不知道巨集該怎麼撰寫QQ
→ soyoso: 就以回文方式來取得最後一筆有值的列號
→ soyoso: 看是否寫入變數，變數的話就同上列所寫的 "..:a" & 變數
→ su198932: 感謝S大~我再試試看~抱歉EXCEL尚很少用，很薄弱。
推 a29976137: i=range("a1").end(xldown).row
→ a29976137: range("a2:a" & r)
→ soyoso: 不正確，要寫入變數i，那怎麼"a2:a" & r 卻用r
→ soyoso: 所舉的例也要連結上也要用變數i
→ soyoso: 且不確定資料是否連續，也不要回文上就是用xldown的方式
→ soyoso: 要這樣回也請假設資料是連續的情況下
→ soyoso: 連續且連續資料是二個儲存格以上再使用xldown
→ soyoso: 不然請用xlup方式
→ paul60209: LR=Sheets("工作表1").Cell(1,"A").End(xlUp).Row
→ paul60209: Range(Cells(2,"A"),Cells(LR,"A"))
→ soyoso: 不正確，1.不是cell而是cells
→ soyoso: 2.就算是cells(1,"A").end(xlup).row也不正確，因為a1往上
→ soyoso: 不論a1本身有無資料都只會回傳1而已
→ soyoso: 要取a欄不論是否連續資料的最後一筆有資料的列號
→ soyoso: 以range("a1048576")或cells(1048676,1[或"A"]).end(xlup)
→ soyoso: .row
→ soyoso: 但有一限制就是a1048576這儲存格為空白儲存格
→ soyoso:                      cells(1048576,...)
→ soyoso: 這限制要排除的話，以range.find的方式
→ su198932: 感謝S大，我的問題解決了~