Đặng Minh Quân 
Đặng Minh Quân 
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 152 lượt xem

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ì

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.

Thảo luận 1 câu trả lời
Lượt xem 152 lượt xem
Vỗ tay vỗ tay
Đặng Minh Quân  10:03 - Mar 04, 2021

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
Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông