Excel Macro

Удаляет все пустые строки на всех листах

Sub DeleteBlanks()

    Application.ScreenUpdating = False

    For Each s In Sheets
        TotalRows = s.UsedRange.Rows.Count
        For i = TotalRows To 1 Step -1
           If (s.Cells(i, 1) = "") Then
                s.Rows(i).Delete
           End If
        Next i
    Next

    Application.ScreenUpdating = True

End Sub

Удалить все строки, содержащие выражение

Sub RemoveRowsWithSymbol()
    Application.ScreenUpdating = False

    Set r = ActiveSheet.UsedRange
    Set c = r.Find("}", LookIn:=xlValues)

    Do While Not c Is Nothing
        r.Rows(c.Row).Delete
        Set c = r.Find("}", LookIn:=xlValues)
    Loop

    Application.ScreenUpdating = True
End Sub