Confrontare dati presenti in 2 fogli diversi, estrarre i duplicati e copiarne le giacenze

DANILOFIORINI, 21/02/2017 17.47:

---

Buonasera
Foglio3 A2 da trascinare in basso

=SE.ERRORE(INDICE(Foglio1!$A$1:$A$100;PICCOLO(SE(CONTA.SE(Foglio2!$A$1:$A$100;Foglio1!$A$1:$A$100)>0;RIF.RIGA($A$1:$A$100));RIGHE($A$1:A1)));"")
DA CONFERMARE CON CTRL+SHIFT+INVIO

in B2 da trascinare in basso

=SE.ERRORE(CERCA.VERT(A2;Foglio1!$A$2:$B$10;2;0);"")

in C2 da trascinare in basso

=SE.ERRORE(CERCA.VERT(A2;Foglio2!$A$2:$B$10;2;0);"")

---

by sal, 21/02/2017 17.04:

---

Ciao Giuseppe eccoti la macro che ti trova i doppioni

Sub doppi()
Dim rng1, rng2
Dim r, d1, d2, x, y

Sheets("Foglio3").Select
Application.ScreenUpdating = False

Sheets("Foglio1").Select
r = Cells(Rows.Count, 1).End(xlUp).Row
rng1 = Range("A2:B" & r)

Sheets("Foglio2").Select
r = Cells(Rows.Count, 1).End(xlUp).Row
rng2 = Range("A2:B" & r)

Sheets("Foglio3").Select
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:C" & r).ClearContents
r = 2

For x = 1 To UBound(rng1)
    d1 = rng1(x, 1)
    For y = 1 To UBound(rng2)
        d2 = rng2(y, 1)
        If d1 = d2 Then
            Cells(r, 1) = d1
            Cells(r, 2) = rng1(x, 2)
            Cells(r, 3) = rng2(x, 2)
            r = r + 1
        End If
    Next y
Next x
End Sub

ti allego anche il tuo esempio, per far partire la macro premi control+p, altrimenti bisogna creare un pulsante per lanciarla.

Ciao By Sal

---