计算特定列表中没有多少个有价值的单元格

Question

I want to count how many cells of value are not in the list in the end and reflect the number in the MsgBox.

Below is the code from Xavier Navarro

Sub CheckDropDown()
Dim MyStringVar As Variant, i As Integer
Dim Lookup_Range, cel As Range, lastRow As Integer, check As Boolean
Set Lookup_Range = Worksheets("Lists").Range("C1:C21")
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
    For Each cel In Lookup_Range
        If ActiveSheet.Cells(i, 25) = cel.Value Then
            check = True: Exit For
        Else
            check = False
        End If
    Next
    If check Then
        'The cell is on the lookupRange
    Else
        'The cell is NOT on the lookupRange
        ActiveSheet.Cells(i, 25).Interior.Color = RGB(255, 255, 5)
    End If
Next i
End Sub

Answer 1

    Sub CheckDropDown()
    Dim MyStringVar As Variant, i As Integer, counter As Integer 'declare variable
    Dim Lookup_Range, cel As Range, lastRow As Integer, check As Boolean
    counter = 0
    Set Lookup_Range = Worksheets("Lists").Range("C1:C21")
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        For Each cel In Lookup_Range
            If ActiveSheet.Cells(i, 25) = cel.Value Then
                check = True: Exit For
            Else
                check = False
            End If
        Next
        If check Then
            'The cell is on the lookupRange
        Else
            'The cell is NOT on the lookupRange
        counter = counter + 1 'increment when not found
            ActiveSheet.Cells(i, 25).Interior.Color = RGB(255, 255, 5)
        End If
    Next I
    MsgBox counter 'output message
    End Sub