Chuyên gia cho e hỏi muốn đặt công thức sum vào ô dòng cuối nào đó để tính tổng từ dòng đầu đến dòng cuối thì thể hiện trong vba thế nào. E đã thử để công thức nhưng khi chạy không ra được công thức.
Sub tinhtong
Dim lr as long
Lr = range ("A"&rows.count).end(xlup).row
Range("F"&lr+1).fomular ="= sum(F9:F""&lr"")"
End sub
bạn sử dụng phương thức application.worksheetfunction.sum() nhé.
Sub tinhtong
Dim lr as long
Lr = range ("A"&rows.count).end(xlup).row
Range("F"&lr+1).value=application.worksheetfunction.sum(range("F9:F"&lr))
End sub