• Trang chủ click to expand contents 

  • Tính tổng một vùng bất kỳ theo cột

  • 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