Merhaba, aşağıdaki kodu hücre boş ise o satırı silsin diye kullanıyorum ama biraz yavaş çalışıyor
Bunun daha hızlı versiyonu var mıdır
Sub deneme()
Application.ScreenUpdating = False
For i = 30000 To 1 Step -1
If Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
-
- Destek
-
-
Özel Arama