
sub trova ()
conta = Application.WorksheetFunction.CountA(Range("a1:a65000"))
For i = 1 To conta
x = Mid(Range("a" & i), Len(Range("a" & i)) - 2, 3)
If x = 273 Then
num = num + 1
End If
Next i
MsgBox num
end sub
|
Function ContaStrZ(Stringa As String, Zona As Range) 'Restituisce numero di volte che stringa è contenuta in Zona
Dim testo As String
Stringa = UCase(Stringa)
For Each rng In Zona
Testo = UCase(rng.Value)
If InStr(Testo, Stringa) <> 0 Then
i = i + 1
End If
Next
ContaStrZ = i
End Function |
