Chào thầy, hàng cuối như thế này bị lỗi ạ. Thầy chỉnh lại giúp với ạ. Cảm ơn!
Sub Hangcuoi_03()
Dim Hangcuoi As Long
Hangcuoi = Sheet2.Range("8" & Columns.Count).End(xlToLeft).Column
Range("c1").Value = Hangcuoi
End Sub
bạn làm như sau nhé
Sub hangcuoi
LastCol = sheetname.Cells(1, .Columns.Count).End(xlToLeft).Column
End sub