(若是和其他不同软件互动之问题 请记得一并填写)
软件:Excel
版本:2010
用宏写基本运算函数，但是因为每次撷取的数据库笔数不同，而用录制方式撷取到的程
式写法笔数会变成固定的...
有办法知道最后一笔的笔数，并将全部笔数执行函数运算嘛
恳请各位大大解答QQ
https://i.imgur.com/vTCv6Zx.jpg

是指最后一笔有资料的列号吗？如果是的话range.end(..).row或range.find.row，如果资料连续的话工作表函数count或counta

就是我想要一列进行资料运算，但是每次的资料笔数不一定~如文内A2:A9999, 但是A9999应该是不定值(最后一笔资料)，卡关，不知道宏该怎么撰写QQ

就以回文方式来取得最后一笔有值的列号看是否写入变量，变量的话就同上列所写的 "..:a" & 变量

感谢S大~我再试试看~抱歉EXCEL尚很少用，很薄弱。

i=range("a1").end(xldown).rowrange("a2:a" & r)

不正确，要写入变量i，那怎么"a2:a" & r 却用r所举的例也要连结上也要用变量i且不确定资料是否连续，也不要回文上就是用xldown的方式要这样回也请假设资料是连续的情况下连续且连续资料是二个储存格以上再使用xldown不然请用xlup方式

LR=Sheets("工作表1").Cell(1,"A").End(xlUp).RowRange(Cells(2,"A"),Cells(LR,"A"))

不正确，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的方式

感谢S大，我的问题解决了~