Function SumByRow(range, row) 'Hàm tính tổng theo dòng bất kỳ trong mảng
    With Application.WorksheetFunction
        SumByRow = .Sum(.Index(range, row, 0))
    End With
End Function