Chào Thầy,
Thầy cho em hỏi là code xác định dòng cuối và code past giá trị vào dòng cuối phải nằm trong 1 sub phải không ạ. Vì em tách ra làm thành 2 sub riêng thì kết quả ra không đúng, trừ khi em code dòng cuối theo chức năng function thì mới ra được. Em cám ơn Thầy.
Chào bạn, đúng rồi nhé, hoặc bạn muốn tiết kiệm thời gian viết code bạn có thể tạo ra function dongcuoi để gọi như sau
Option Explicit
Function Timdongcuoi(ws As Worksheet, cot As String) As Long
Timdongcuoi = ws.Range(cot & ws.Rows.Count).End(xlUp).Row
End Function
Sub tim()
Dim a As Long
a = Timdongcuoi(Sheet1, "a")
MsgBox a
End Sub
Em cám ơn Thầy.
Cảm ơn bạn đã tin tưởng và ủng hộ gitiho, chúc bạn học tốt.