Thầy ơi cho e hỏi
Câu lệnh tìm dòng cuối dùng cho sub này rồi
Qua viết một sub khác thì dùng câu lệnh tìm dòng cuối ở sub đó dc ko ạ.
Chào bạn bạn tạo ra function rồi gọi nhé.
Function Timdongcuoi(ws As Worksheet, cot As String)
Timdongcuoi = ws.Range(cot & rows.Count).End(xlUp).Row
End Function
Sub Dongcuoi()
dim dc as long, dc1 as long
dc = Timdongcuoi(Sheet1, "A")
Sheet1.range("B1").value = dc
dc1 = Timdongcuoi(Sheetn, "A")
Sheet1.range("B2").value = dc1
End sub