Chào bạn bạn làm như sau:
Option Explicit
Sub tinhtongdulieu()
Dim dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet1.Range("B1").Value = Application.WorksheetFunction.Sum(Range("A1:A" & dc - 2))
End Sub
Mình muốn tính tổng tư A&dc -2 đến A&dc cơ
Bạn thay đổi như sau:
Option Explicit
Sub tinhtongdulieu()
Dim dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet1.Range("B1").Value = Application.WorksheetFunction.Sum(Range("A" & dc - 2, "A" & dc))
End Sub