Public Function trn(wyn As Range, zakr As Range) As Integer
    Dim traf As Integer
    traf = 0
    For Each Co In wyn
        If Application.WorksheetFunction.CountIf(zakr, Co) > 0 Then
            traf = traf + 1
        End If
    Next
    trn = traf
End Function

Function IleRazy(Gdzie, Co)
   IleRazy = Application.WorksheetFunction.CountIf(Gdzie, Co)
End Function
'Gdzie = zakres
'Co = szukana

Public Function trn(ByVal wyn As Range, ByVal zakr As Range) As Integer
    traf = 0
    With zakr
        For Each c In wyn
            Set jest = .Find(c, LookIn:=xlValue, LookAt:=xlWhole)
            If Not jest Is Nothing Then
                traf = traf + 1
            End If
        Next
    End With
    trn = traf
End Function