Сортировка работала для одного списка, но несоответствие типов для другого? - PullRequest
0 голосов
/ 07 февраля 2020

У меня есть несколько макросов, сортирующих разные версии одного и того же списка. Они находятся на разных вкладках и имеют разные критерии. Первый макрос, который я создал, сработал, но второй с практически тем же кодом выдает несоответствие типов. Можете ли вы помочь мне найти проблему? Спасибо!

Ошибка возникает во втором наборе delRange в течение для l oop

Sub Sort_CFG_Unused()
Application.Calculation = xlManual
Dim delRange As Range
Dim wb As Workbook
Dim Ws As Worksheet
Set wb = Workbooks("TTB - Inv on hand - CFG_CL")
Set Ws = wb.Worksheets("Unused")
Ws.Activate

 Dim N As Long, i As Long
    N = Cells(Rows.Count, "V").End(xlUp).Row
    Set delRange = Range("V" & (N + 1))
    For i = N To 2 Step -1
        If (Cells(i, "V") <> "0" Or Cells(i, "X") <> "0") Then
            Set delRange = Union(delRange, Range("V" + i))
        End If

        If (Left(Cells(i, "H"), 2) = "US" Or Left(Cells(i, "H"), 2) = "PD") And Left(Cells(i, "I"), 3) <> "EFN" Then
            Set delRange = Union(delRange, Range("V" + i))
        End If

    Next i

    delRange.EntireRow.Delete

    MsgBox ("Sort Complete")
    Application.Calculation = xlAutomatic
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...