copia righe con doppie

[Tommy1960]

Ciao a tutti
avrei bisogno di copiare le righe che contengono doppie nella colonna A del foglio A
nella colonna A del foglio B
Grazie

[Anthony47]

Intanto "Benvenuto nel forum"
Quando dici "contengono doppie" intendi doppie lettere tipo tt in tutto, oo in igloo; o anche a-a come in cAnAle; o doppie che cose?
Puoi darci un esempio di contenuto della colonna A? (dovrebbero bastere poche righe)
Infine quale e' la versione di Office che usi?

Ciao, ti aspettiamo...

[Tommy1960]

Buongiorno
Scusami se non mi mi sono spiegato bene
nella colonna A1 del foglio1 ho circa 1500 celle in cui sono inserite delle targhe, avrei bisogno che tutte le righe in cui risultano targhe già inserite venissero copiate nel foglio 2
allego
spero di essermi spiegato bene
excel 365
Grazie

[Anthony47]

Effettivamente avevo capito tutt'altro...
Vai su foglio2, e in A2 inserisci la seguente formula:

Codice: Seleziona tutto

=LET(Elenco;Foglio1!A1:J1000;Targa;INDICE(Elenco;0;1);UNICI(FILTRO(Elenco;CONTA.SE(Targa;Targa)>1)))


Gli indirizzi li ho dedotti dalla tua immagine, adatta alla tua tabella; in particolare se hai piu' di 1000 righe allora "allunga" l'indirizzamento

Prova...

[Tommy1960]

Ciao Anthony
Scusa l'ignoranza ma quando intendi copia in A2 del foglio2 intendi
=LET(Elenco;Foglio1!A1:J1000;Targa;INDICE(Elenco;0;1);UNICI(FILTRO(Elenco;CONTA.SE(Targa;Targa)>1)))
oppure
CODICE: SELEZIONA TUTTO
=LET(Elenco;Foglio1!A1:J1000;Targa;INDICE(Elenco;0;1);UNICI(FILTRO(Elenco;CONTA.SE(Targa;Targa)>1)))
perchè non riesco a farlo funzionare

Mi potresti spiegare cosa significa la parola targa nella formula
Grazie Renato

[Anthony47]

Io ho suggerito di inserire in A2 di Foglio2 la seguente formula:
=LET(Elenco;Foglio1!A1:J1000;Targa;INDICE(Elenco;0;1);UNICI(FILTRO(Elenco;CONTA.SE(Targa;Targa)>1)))
Formula compatibile con Excel 365

Nella formula Targa e' una "label" che conterra' solo la prima colonna del tuo Elenco, su cui poi faccio il controllo dei doppioni

[Tommy1960]

Buongiorno Anthony47
spero tu non mi mandi a ......
non riuscendo a far funzionare la formula ho provato di tutto e alla fine mi sono accorto di aver sbagliato a dirti che uso excel 365
in effetti uso - Microsoft® Excel® 2019 MSO (Versione 2302 Build 16.0.16130.20298) a 32 bit
scusami ancora sperando che tu riesca ancora ad aiutarmi

[Anthony47]

Preferisco proporti una "funzione utente" che fa quel lavoro piuttosto che annidare formule...

In un modulo standard del Progetto Vba del tuo file inserisci questo codice:

Codice: Seleziona tutto

Function DoppieFilter(ByRef myRan As Range, Optional ByVal CheckCol As Long = 1) As Variant
Dim oArr() As String, RRCnt As Long, RCCnt As Long
Dim mArr(), myMatch, cCnt As Long, oInd As Long
'
RRCnt = myRan.Rows.Count
RCCnt = myRan.Columns.Count
If Parent.Caller.Rows.Count > RRCnt Then RRCnt = Parent.Caller.Rows.Count
If Parent.Caller.Columns.Count > RCCnt Then RCCnt = Parent.Caller.Columns.Count
ReDim mArr(1 To myRan.Rows.Count)
ReDim oArr(0 To RRCnt, 1 To RCCnt)
For I = 1 To myRan.Rows.Count
    cCnt = Application.WorksheetFunction.CountIf(myRan.Cells(1, CheckCol).Resize(I, 1), myRan.Cells(I, CheckCol))
    myMatch = Application.Match(myRan.Cells(I, CheckCol), mArr, False)
    If cCnt > 1 Then
        If IsError(myMatch) Then
            oInd = oInd + 1
            mArr(oInd) = myRan.Cells(I, CheckCol)
            myMatch = oInd
        End If
        For J = 1 To myRan.Columns.Count
            oArr(oInd, J) = myRan.Cells(I, J)
        Next J
    End If
Next I
oArr(0, 1) = oInd & "*" & myRan.Columns.Count & " (" & Parent.Caller.Rows.Count - oInd - 1 & ")"
DoppieFilter = oArr
End Function

Ora sul foglio Excel potrai usare la funzione FoppieFilter usando questa sintassi

Codice: Seleziona tutto

DoppieFilter(LintervalloDaControllare[; LaColonnaDaControllare]) as Range

LaColonnaDaControllare e' un parametro opzionale e indica in quale colonna dell'intervallo vanno cercati i doppioni; come valore di default e' 1

Guardando i dati che avevi pubblicato nel tuo secondo messaggio, vai su Foglio2 e in A2 metti la formula

Codice: Seleziona tutto

=DoppieFilter(Foglio1!A2:J20)

Ho detto "in A2 metti la formula", ma la formula e' da mettere in forma di matrice su tutta l'area in cui ti aspetti dei risultati. Ad esempio se pensi di avere max 10 duplicati:
-seleziona A2:J12 (nota che sono 11 righe)
-nella barra della formula scrivi =DoppieFilter(Foglio2!A2:J20)
-confermi con Contr-Maiusc-Enter

La prima cella indichera' il numero di righe /colonne restituite più (tra parentesi) il numero di righe non visualizzate, le righe successive conterranno i doppioni. Se hai meno di 10 doppioni le ultime righe rimarranno vuote; se hai piu' di 10 doppioni e per il risultato hai selezionato meno di 11 righe (ricorda che la riga 1 e' riservata) allora in cella 1 avrai tra parentesi un numero negativo che rappresenta le righe che mancano

Prova...

[Tommy1960]

OK grazie ci provo