Tổng quát hơn, chọn vùng tính tổng bất kỳ rồi chạy code sau
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 =...