sửa code để chaỵ cho nhanh hơn các bác vba! (1 người xem)

[anhchanghamhoc]

Sub HiddRows()

Dim c As Range

Dim firstAddress As String

Application.ScreenUpdating = False

Rows("07:891").Hidden = False

With Range("C07:C91")

Set c = .Find(What:="", LookIn:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

c.EntireRow.Hidden = True

Set c = .FindNext(c)

Loop While Not c Is Nothing

End If

End With

End Sub

 

[vu_tuan_manh_linh]

Filter cho lành!

 

[VetMini]

sửa code để chaỵ cho nhanh hơn các bác vba!

Không co "bác VBA" nào chạy nhanh hơn code đâu. Không cần phải sửa.