một cách tà đạo nhưng, tốc độ thì nhanh nhất:
Sub hiderow()
Application.ScreenUpdating = False
Dim arr As Variant, t As Double, i As Long
t = Timer
i = Columns.Count
arr = [A1:A10000].Value
Cells(1, i).Resize(10000, 1).Value = arr
Range(Cells(1, i), Cells(10000, i)).SpecialCells(4).EntireRow.Hidden = True
Cells(1, i).Resize(10000, 1).ClearContents
Application.ScreenUpdating = True
MsgBox Timer - t
End Sub