Помогите с макросом

[EducatedFool]

надо перед макросом удалить те строки, у которых в колонках минус (колонка "V" или ''W")

Так надо было сразу сказать...
Если нужно, можно изменить макрос, чтобы он не обрабатывал строки с отрицательными значениями.

[Romuald]

А можно отдельно макрос ,который бы удалял всю строку ,если в V или W стоит минус?
Рома

[EducatedFool]

А можно отдельно макрос

Можно:

Sub УдалитьСтрокиСОтрицательнымиЗначениями()
    Dim pi As New ProgressIndicator
    pi.Show "Формирование отчётов": pi.ShowPercents = True

    Dim coll As New Collection, ADDRcoll As New Collection
    Dim ra As Range: Set ra = ActiveSheet.UsedRange.Offset(1)

    Const A$ = "$", b$ = ",", c$ = ":": n = 0
    Dim ro As Range, cv As String
    pi.StartNewAction 0, 50, , "Обработка строк ...": st = 20
    pi.CurActionCount = ra.Rows.Count / st
    On Error Resume Next

    With ra.Parent
        addr = ""
        For Each ro In ra.EntireRow
            rn = ro.Row: If rn Mod st = 2 Then pi.CurAction 0, 0, , , "Обрабатывается строка  " & rn
            DoEvents
            If ro.Cells(22) < 0 Or ro.Cells(23) < 0 Then
                n = n + 1
                r = A$ & CStr(rn): addr = addr & b$ & r & c$ & r:
                If Len(addr) > 200 Then addr = Mid$(addr, 2): ADDRcoll.Add addr: addr = ""
            End If
        Next
        If Len(addr) > 1 Then addr = Mid$(addr, 2): ADDRcoll.Add addr: addr = ""

        pi.StartNewAction 50, 100, , "Удаление строк с отрицательными значениями...": st = 4

        addrc = ADDRcoll.Count: pi.CurActionCount = addrc / st
        For i = addrc To 1 Step -1
            DoEvents
            .Range(ADDRcoll(i)).Delete    ' удаляем ненужные строки блоками по нескольку штук сразу (так быстрее всего)
            If i Mod st = 1 Then pi.CurAction 0, 0, , , "Удаляется блок ненужных строк  " & addrc - i & " из " & addrc
        Next
    End With
    pi.Hide
    MsgBox IIf(n > 0, "Удалено  " & n & "  строк", "Строки для удаления не найдены"), vbInformation, "Готово"
End Sub

В коде, конечно, много лишнего, но он работает.

[Romuald]

Все работает, спасибо!!