Sub Macro8()
Dim Dongcuoi_s As Long
Dongcuoi_s = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Range("A"&Dongcuoi_s+1:"E" & Dongcuoi_s + 1).Style = "Total"
End Sub
Xin hỏi, đoạn code trên sai chỗ nào ? tks Thầy
Công thức bạn sẽ như sau nhé
Option Explicit
Sub Macro8()
Dim Dongcuoi_s As Long
Dongcuoi_s = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Dongcuoi_s + 1 & ":E" & Dongcuoi_s + 1).Style = "Total"
End Sub
Phần nối Dongcuoi_s+1 cần nối : nữa nhé.