VBA makro - usuwanie pustych wierszy we wszystkich arkuszach

Question

Witam, 

Napisałam makro, które usuwa wiersze, jeżeli w kolumnie A komórka jest pusta, a sprawdza od dołu po kolumnie C. Chciałabym, żeby działało od razu we wszystkich arkuszach, ale niestety tego jeszcze za bardzo nie umiem. Proszę o pomoc. 

Sub empty_rows()

   For i = Cells(Rows.Count, "c").End(xlUp).Row To 5 Step -1
    If Cells(i, "A").Value = "" Then
    Rows(i).Delete shift:=xlUp
    End If

Next

End Sub

 

Answer 1

Witam,

można to zrobić w podobny sposób jak z Twojego ostatniego posta dotyczącego usuwania daty, tylko trzeba przyjąć puste kryteria w autofiltrze:

Sub empty_rows()
Dim MySheet As Worksheet, MyRange As Range
Dim LastRow As Long, LastCol As Long
  

Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each MySheet In ActiveWorkbook.Worksheets
    With MySheet
        LastRow = .Range("C" & .Rows.Count).End(xlUp).Row
        Set MyRange = .Range("A4:Q" & LastRow)
    End With

    With MyRange
        .AutoFilter Field:=1, Criteria1:="="
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete ' jesli w wierszu 4 sa naglowki
    End With

    With MySheet
        .AutoFilterMode = False
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With
Next

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Polecam rejestrator makr, można się wiele nauczyć.

Pozdrawiam

Comments

Tak zrobię, bardzo dziękuję!

Answer 2

Lub może w jakiś inny sposób można to zrobić, bo to bardzo powoli działa nawet na jednym arkuszu. Chodzi o to, że danych w kolumnach od C do Q jest więcej, a chcę, żeby ich było tyle, ile w kolumnie A. Niekoniecznie trzeba usuwać wiersze, można też wyczyścić te wiersze. Ktoś ma jakiś pomysł? :)