Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/gist:d51a00a96d816426cab1b750b5400ce4

Created December 22, 2016 09:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/d51a00a96d816426cab1b750b5400ce4 to your computer and use it in GitHub Desktop.
Save ndthanh/d51a00a96d816426cab1b750b5400ce4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.bas
Sub LastRowInOneColumn()
'Tìm dòng cuối cùng có dữ liệu trong cột A
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment