Chào thầy,
Thầy cho em hỏi nếu mình muốn điền vào cột cuối thay vì dòng cuối thì code sẽ như thế nào ạ?
Ví dụ: Dữ liệu được nhập theo cột lần lượt từ cột B -> C -> ...
Chào bạn sẽ tạo ra function để tái sử dụng nhé.
Function Timdc(ws As Worksheet, Cot As String) As Long
Timdc = ws.Range(Cot & ws.Rows.Count).End(xlUp).Row
End Function
sub dongcuoi()
dim dccota as long
dccota = timdc(sheetname,"A")
end sub