[. . . ] e possibilmente tramite formula
Mi spiace, non voglio complicarmi la vita oltre il necessario e quindi ti propongo una soluzione con codice...
In un modulo standard del vba (es Modulo1) inserisci questo codice:
- Codice: Seleziona tutto
Function MkDuplex(ByRef myArea As Range)
Dim ResArr(), myC As Long, myTarget As Range, myTarget2 As Range
Dim I As Long, J As Long, K As Long
'
ReDim ResArr(1 To myArea.Rows.Count)
For I = 1 To myArea.Rows.Count
For J = 1 To I
Set myTarget = Application.WorksheetFunction.Index(myArea, J, 0)
Set myTarget2 = Application.WorksheetFunction.Index(myArea, I, 0)
myC = 0
For K = 1 To myArea.Columns.Count
If Application.WorksheetFunction.CountIf(myTarget, myArea.Cells(I, K)) > 0 Then myC = myC + 1
Next K
If myC = Application.WorksheetFunction.CountA(myTarget) And _
myC = Application.WorksheetFunction.CountA(myTarget2) Then ResArr(I) = ResArr(I) + 1
Next J
Next I
MkDuplex = Application.WorksheetFunction.Transpose(ResArr)
End Function
Supponiamo che i tuoi dati siano in A2:E19
In una colonna libera, es in G2 inserisci questa formula:
- Codice: Seleziona tutto
=MkDuplex(A2:E19)
Poi seleziona G2:G19, premi F2, premi Contr-Maiusc-Enter
A questo punto in colonna G dovresti avere l'indicazione di quante volte quella riga compare nell'elenco.
Applica il filtro automatico alla colonna G, seleziona i valori =1, copia l'area visualizzata e incollala nell'area dove vuoi solo le righe uniche.
Il risultato in colonna G si aggiorna tutte le volte che il contenuto dell'area usata nella formula MkDuplex viene aggiornato.
La fase di applicazione del filtro, selezione, copia e incolla in altra area la puoi automatizzare con una macro autoregistrata.
Ciao