Cho mình hỏi:
Nếu muốn tính tổng của 1 cột mà không biết dòng cuối của cột đó, thì mình áp dụng code như thế nào ạ? Dưới đây là đoạn code mình viết:
Sub Tinh_Tong ()
Dim DongCuoi as Long
DongCuoi = sheet1.range("A" & rows.count).end(xlup).row
Range("B5").formulaR1C1 = "=SUM(RC[-1]:R[-DongCuoi]C[-1])
End Sub
Thì mình thấy hiện lỗi ngay trong công thức, vậy thì mình nên sửa lại như thế nào ạ? Xin cảm ơn.
Chào bạn bạn có thể sử dụng công thức sau nhé
sub tinh_tong()
dc = sheet1.Range("C" & sheet1.Rows.Count).End(xlUp).Row
Range("f" & dc + 1) = Application.WorksheetFunction.Sum(Range("f9:f" & dc))
end sub