Создание книги и перенос данных листа в дргую несуществующюю книгу

[OgE®_M@G]

SAS888 я дико извиняюсь просто меня торопят а я разобраться не могу, формулы он не удаляет. Просто мне надо если даже строка с формулой пустая ее тоже удалить. Извините пожалуйста за пост №9.

[SAS888]

мне надо если даже строка с формулой пустая ее тоже удалить.

А разве не так все происходит?

[OgE®_M@G]

Нет если в строке есть формула, но нет данных. Например скажем F13=D13*C13, при том што в D13 и С13 нет данных конечно в F13 формула покажет "0". Так вот мне надо чтобы и это формула удалялась автоматически, но если есть формула с данными они не удалялись. Вот помоему все. Ща прикреплю лучше файлик, а то чет я намудрил.

[SAS888]

Ясно. У Вас в параметрах Excel стоит установка "Отображать нулевые значения". В таком случае, в макрос нужно добавить пару строк:

Sub Main()
    Dim i As Integer: Application.ScreenUpdating = False
    Sheets("Лист1").Copy
    ActiveWindow.DisplayZeros = False
    For i = 19 To 8 Step -1
        If Rows(i).Text = "" Then Rows(i).Delete
    Next
    ActiveWindow.DisplayZeros = True
End Sub

[OgE®_M@G]

Я не понимаю почему он не удаляет здесь.

[The_Prist]

Попробуйте так

Sub Main()
    Dim i As Integer: Application.ScreenUpdating = False
    Sheets("Лист1").Copy
    For i = 25 To 2 Step -1
        If Application.Sum(Rows(i)) = 0 Then Rows(i).Delete
    Next
    Application.ScreenUpdating = True
End Sub

[SAS888]

почему он не удаляет здесь.

Потому, что макрос контролирует на пустоту всю строку. Если требуется только в столбцах "A:F", тогда нужно так:

Sub Main()
    Dim i As Integer: Application.ScreenUpdating = False
    Sheets("Лист1").Copy
    ActiveWindow.DisplayZeros = False
    For i = 25 To 2 Step -1
        If Range(Cells(i, "A"), Cells(i, "F")).Text = "" Then Rows(i).Delete
    Next
    ActiveWindow.DisplayZeros = True
End Sub

[OgE®_M@G]

SAS888 спасибо большое все работает. Только вот очень долго считает. У меня комп на четыре ядра и четыре гига и все равно 2-3 минуты считает. Во всем файле 4000 строк. Моно ли как то ускорить?

[SAS888]

Думаю, что можно. И значительно. Попробую.
Если есть возможность, дайте этот большой файл (можно через "личку").

[OgE®_M@G]

Ща отправлю