如何用VBA找到excel表格中的数据最后一行进行合计计算？

Question

a列的行每次行随机数，这次为20行，下次也许就是21行，每次判断最后一行填上"合计数"，并在对应的B列对应行数进行合计

Answer 1

用cells(rows.count,1).end(xlup).row可以返回最后一个非空单元格的行数

sub z合计数()
dim i as long
i = cells(rows.count,1).end(xlup).row+1
cells(i,1) = "合计数："
cells(i,2) = worksheetfunction.sum(range("b1:b" & i-1))
end sub

Answer 2

以下三种方法都可以 i 为结果
设i为a列的行数
i = Cells(Rows.Count, 1).End(xlUp).Row
i=CountA(a:a)
i=Range("a65535").End(xlUp).row