问EXCEL 2007:比较workbook1中的每个A列单元格，看看它是否存在于工作簿2-4中A列的字符串中

EN

=IF(OR(TEXT(A2,0)=RIGHT('masterlist example.xlsx'!$A$2:$A$1000,4)),"YES","NO")

Sub findMissingNumbers()
    Dim numbers() As String
    With Worksheets("Master")
        For i = 2 To .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Count
            ReDim Preserve numbers(i)
            numbers(i - 2) = .Cells(i, 1).Value
        Next i
    End With

    For Each ws In Worksheets
        With ws
            If (Not ws.Name = "Master") Then
                For Each cell In .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
                    For i = 0 To UBound(numbers) - 1
                        last4master = Right(numbers(i), 4)
                        If (last4master = CStr(cell.Value)) Then
                            numbers(i) = ""
                        End If
                    Next i
                Next cell
            End If
        End With
    Next ws

    missingNumbers = ""
    For Each num In numbers
        If (Not num = "") Then
            missingNumbers = missingNumbers & num & vbNewLine
        End If
    Next num

    MsgBox missingNumbers
End Sub