Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/An_Cot_Vidu03.bas

Created February 9, 2018 11:46
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 DuongAQ/f68578b4f6f57b4f77d8ac6e23ca0240 to your computer and use it in GitHub Desktop.
Save DuongAQ/f68578b4f6f57b4f77d8ac6e23ca0240 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
An_Cot_Vidu03.bas
Sub An_Cot_Vidu03() 'Ẩn từ dòng 5 tới dòng cuối cùng có chứa dữ liệu
Dim i As Integer
'Tìm dòng cuối cùng trong bảng
Dim LastRow As Long
LastRow = Sheet1.Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Ẩn hàng
Sheet1.Range("A5:A" & LastRow).EntireRow.Hidden = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment