Skip to content

Instantly share code, notes, and snippets.

Created Jun 13, 2019
What would you like to do?
Sub AnHang()
Dim TuDong As Long, DenDong As Long
TuDong = Sheets("Sheet1").Range("B1").Value
DenDong = Sheets("Sheet1").Range("B2").Value
'Bo an tu dong 1 den 10000
Sheets("Sheet1").Range("A1:A10000").EntireRow.Hidden = False
'An dong duoc chon
Sheets("Sheet1").Range("A" & TuDong & ":A" & DenDong).EntireRow.Hidden = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment