Thầy cho hỏi, e muốn chèn vào ô A1 Công thức =Sum từ C2 tới Dòng cuối thì viết như nào?
Option Explicit
Sub tinhtong()
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).Value)
End Sub