Excel

Estrarre duplicati in Excel tramite VBA

Come trovare ed estrarre i valori duplicati da un’area del foglio excel?

Cosa fa la macro vba

Selezionando un’area del foglio di lavoro dove sono riportati dei valori numerici, la macro trova e copia i valori presenti piu’ volte in una sezione del foglio excel denominata “duplicati”.

Istruzioni

  • assicurati che l’area G3:G7 sia pulita cliccando sul tasto “Pulisci area”
  • seleziona la griglia o un’area qualsiasi del foglio di lavoro dove sono stati inseriti dei valori numerici
  • clicca “Trova Duplicati”
  • nell’area G3:G7 appaiono solo i valori dei duplicati (al massimo 5)

Prova tu stesso e fammi sapere nei commenti in basso!

Scarica il file

Sub TrovaDuplicati()
‘ created by StudioSEO il 02/05/2019
Dim Griglia, Duplicati, C As Range
Dim Sto(1 To 5) As Double
Dim i, r As Integer
Set Griglia = Application.Selection
Set Duplicati = Application.Range(“G3:G7”)
r = 1 ‘ indice per le righe
i = 1 ‘ indice per array
For Each C In Griglia
‘verifico se >1 e se ho già inserito lo stesso valore nell’array
If (WorksheetFunction.CountIf(Griglia, C) > 1) Then
If IsError(Application.Match(C, Sto, 0)) Then
With Duplicati
.Cells(r, 1).Value = C
Sto(i) = C
r = r + 1
i = i + 1
End With
End If
End If
Next C
End Sub

Macro VBA

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.