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