=ЕСЛИ(ЕНД(ВПР(J2;$F$2:$F$4;1;0));1;0)

Sub NullIfFind()
    Const lFst_ROW& = 2, lValues_COL& = 6, lLookup_COL& = 10, lResult_COL& = 7
    Dim avals, alookup, aresult, x
    Dim lr&, llastr&
    'значения для поиска
    llastr = Cells(Rows.Count, lValues_COL).End(xlUp).Row
    If llastr < lFst_ROW Then
        Exit Sub
    End If
    avals = Range(Cells(lFst_ROW, lValues_COL), Cells(llastr, lValues_COL)).Value
    'значения для просмотра искомых
    llastr = Cells(Rows.Count, lLookup_COL).End(xlUp).Row
    If llastr < lFst_ROW Then
        Exit Sub
    End If
    alookup = Range(Cells(lFst_ROW, lLookup_COL), Cells(llastr, lLookup_COL)).Value
    'перезаписываемый результат (2 столбца)
    aresult = Range(Cells(lFst_ROW, lResult_COL), Cells(llastr, lResult_COL + 1)).Value
    'ищем
    For lr = 1 To UBound(avals, 1)
        x = Application.Match(avals(lr, 1), alookup, 0)
        If Not IsError(x) Then
            aresult(x, 1) = 0
            aresult(x, 2) = 0
        End If
    Next
    'перезаписываем результат
    Cells(lFst_ROW, lResult_COL).Resize(UBound(aresult, 1), UBound(aresult, 2)).Value = aresult
End Sub

Public Sub loadColumn( _
 pColumnElem As MSXML2.IXMLDOMElement, _
 Optional pSetupColumnElem As MSXML2.IXMLDOMElement = Nothing, _
 Optional setupPresent As Boolean = False _
)
 If Not fSubclass_Table Is Nothing Then
   fSubclass_Table.loadColumn pColumnElem, pSetupColumnElem, setupPresent
 ElseIf Not fSubclass_StaticTable Is Nothing Then
   fSubclass_StaticTable.loadColumn pColumnElem, pSetupColumnElem, setupPresent
 Else
   doLoadColumn pColumnElem, pSetupColumnElem, setupPresent
 End If
End Sub

Cells(I, 6).Characters(Start:=4, Length:=3).Font.Superscript = True

Const sToFndLink$ = "*kpi*"

formulaRange142.formula = "=VLOOKUP($K4&$EL$3,'[" & wb2.Name & "]" & ws2.Name & "'!$X:$Z,3,FALSE)"

Set rFilter = ActiveSheet.ListObjects(1).AutoFilter.Range

ActiveSheet.Range("$A$9:$XEZ$2000").AutoFilter Field:=13, Criteria1:="<" & CDbl(Date) + 14

=СЧЁТЕСЛИ(C1:C10;НД())

wsV.Range("A1:G" & lastRow).Value2 = arr

wsV.Range("A1:G" & lastRow).Formula = arr