Tìm dòng đầu tiên và cuối cùng bằng vba
Đôi khi bạn cần code để tìm ra
dòng cuối cùng hoặc cột cuối cùng để giải quyết bài toán.
Dưới đây là code cho bạn giải quyết vấn đề ấy.
Sub Range_End_Method()
'Finds the last non-blank cell in a single row or column
Dim DongCuoi As Long
Dim CotCuoi As Long
'Find the last non-blank cell in column A(1)
DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row
'Find the last non-blank cell in row 1
CotCuoi = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Last Row: " & lRow & vbNewLine & _
"Last Column: " & lCol
End Sub
About the Author
0 nhận xét