-
Tính tổng một vùng bất kỳ theo cột
Xuân Thanh > 07-03-20, 08:01 AM
Đây là một câu hỏi bên GPE tôi đưa về đây để mọi người tham khảo
Hỏi : Tôi có một vùng số từ A1 đến E10. Khi tôi chọn một vùng bất kỳ trong bảng trên (Ví dụ chọn vùng B2:E8) thì tại vùng B11:E11 hiển thị kết quả là tổng giá trị các cột trong vùng đã chọn (Ví dụ B11 = Sum(B2:B8))
Trả lời : Chọn vùng bất kỳ của bảng tính rồi chạy code sau
Mã:Sub TinhTong()
Dim rng As Range, Cot As Integer, Dong As Integer, n As Long, i As Integer
Dim rd As Integer, rc As Integer, cd As Integer, cc As Integer
Set rng = Selection
Cot = rng.Columns.Count
Dong = rng.Rows.Count
rd = rng.Row
rc = rd + Dong - 1
cd = rng.Column
cc = cd + Cot - 1
n = Range("A65000").End(xlUp).Row
For i = cd To cc
Cells(n + 1, i) = "=Sum(R" & rd & "C" & i & ":R" & rc & "C" & i & ")"
Next
End Sub
Các bạn có thể mở rộng ra theo yêu cầu riêng