Soru Büyük Excel ve Tablo'da boş satırları silmek

[KoNFiCuS]

Değerli Üstadlar,

Elimde 65 MB boyutunda binlerce satırdan oluşan bir veri tablom var. Tablo içerisinde Ekim öncesi tüm verilerin değerlerini sildim ( bu işlem bile çok zaman aldı )

Şuan elimde 100k satırdan oluşan aralarda 35k lık boş satırlar olan bir tablom oluştu.

Buradaki ve yabancı kaynaklardaki birçok boş satır silme macrosunu denedim sadece biri başarılı oldu ama o da tabloyu aralığa çevirim sağ tarafta bulunan tüm formüllerimi sildi.

Çok basit ama hızlı çalışan A1 den A100000 e kadar gidip boş bulduğu satırı komple silen ama exceli kitlemeyen bir çalışma elinizde mevcut mudur?

aşağıdaki kod çok yavaş çalışıyoru

Option Explicit

Sub deleteRow()

    Dim i As Long, LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1")

        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = LastRow To 1 Step -1


            If .Cells(i, 1).Value > 7 Then
                .Rows(i).EntireRow.Delete
            End If

        Next i

    End With

End Sub

Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Sub Test()
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub