![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 e Office | Excel | Per la casa | Windows
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Massimo,
chiedo gentilmente il vostro aiuto.
ho un foglio con colonne A;B;C;D;E;F con 11 righe, vorrei avere una formula che mi segnala se ci sono numeri uguali in verticale, uno sopra e l'altro sotto.
esempio:
44
44
esiste una formula per questo caso?
Credo di no ma potresti sfruttare una UDF (funzione utente) che potrebbe essere utilizzata in un foglio allo stesso modo di una funzione nativa di Excel.
Quindi prova qualcosa del genere:
- Alt+F11 per aprire l'editor di VBA
- Alt+IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Public Function Doppioni(rIntervallo As Range) As Long
Dim iCtr As Long
Dim i As Long, j As Long
With rIntervallo
For i = 1 To .Columns.Count
For j = 1 To .Rows.Count - 1
If .Cells(j, i) = .Cells(j + 1, i) Then
iCtr = iCtr + 1
End If
Next j
Next i
End With
Doppioni = iCtr
End Function
'<<=========
- Alt+Q per chiudere l'editor di VBA e tornare a Excel
- Salva il file con l’estensione xlsm
La funzione utente verrebbe utilizzata nel seguente modo:
=Doppioni(A1:F11)
===
Regards,
Norman