Contare numeri uguali in una colonna

[OscarPartecipante Oscar Karma: 45 pts]

Salve ragazzi ,una domanda , ho una macro che mi confronta e conta i numeri uguali  in colonna A e nella macro , la macro funziona benissimo , ma chiedo se è possibile abbreviare il codice senza utilizzare un colonna di supporto , grazie a tutti

Allegati:

You must be logged in to view attached files.

[MirkoPartecipante Mirko Karma: 2 pts]

Ciao

Una formula:

=SOMMA(CONTA.SE(A1:A5;{1.3.5.7.9.12.14.16.18.19.21.23.35.27.30.32.34.36}))

La formula matriciale deve essere confermata con Ctrl Maiusc Invio, non solo Invio.

[OscarPartecipante Oscar Karma: 45 pts]

Ciao Mirco e grazie per la risposta , ma mi serve la macro

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Se i "numeri" da considera sono sempre quelli che hai indicato prova con questa macro

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, k As Integer, conta As Integer, ur As Long, numeri
[D1].ClearContents
ur = Cells(Rows.Count, 1).End(xlUp).Row
numeri = Array(1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36)
For i = 1 To ur
  For k = 0 To UBound(numeri) - 1
    If numeri(k) = i Then conta = conta + 1
  Next
Next i
  [D1] = conta
End Sub

Ciao,

Mario

[OscarPartecipante Oscar Karma: 45 pts]

Grazie Mario è perfetta

[Mister_xPartecipante Mister_x Karma: 11 pts]

ciao

una UDF  da inserire in un modulo

Option Explicit
Function Conta_Numeri(ByVal Celle As Range) As Long
Dim i As Variant, Numval As Variant
Dim conta As Long
Dim vv As Range
Numval = Array(1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36)
For i = 0 To UBound(Numval)
Set vv = Celle.Find(Numval(i), Lookat:=xlWhole)
If Not vv Is Nothing Then conta = conta + 1
Next i
Conta_Numeri = conta
End Function

utilizzo

=CONTA_NUMERI(A1:A5)

ciao

[OscarPartecipante Oscar Karma: 45 pts]

Ciao Mister_x  la trovo ottima la soluzione con una UDF grazie tanto ciao

 

[Autore]

Articoli