Condividi:        

copia righe con doppie

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

copia righe con doppie

Postdi Tommy1960 » 10/03/23 15:12

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
Tommy1960
Newbie
 
Post: 5
Iscritto il: 14/09/22 15:20

Sponsor
 

Re: copia righe con doppie

Postdi Anthony47 » 10/03/23 18:05

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: copia righe con doppie

Postdi Tommy1960 » 13/03/23 09:37

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 Immagine
spero di essermi spiegato bene
excel 365
Grazie
Tommy1960
Newbie
 
Post: 5
Iscritto il: 14/09/22 15:20

Re: copia righe con doppie

Postdi Anthony47 » 14/03/23 01:34

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: copia righe con doppie

Postdi Tommy1960 » 15/03/23 10:13

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
Tommy1960
Newbie
 
Post: 5
Iscritto il: 14/09/22 15:20

Re: copia righe con doppie

Postdi Anthony47 » 15/03/23 10:24

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: copia righe con doppie

Postdi Tommy1960 » 21/03/23 10:56

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
Tommy1960
Newbie
 
Post: 5
Iscritto il: 14/09/22 15:20

Re: copia righe con doppie

Postdi Anthony47 » 21/03/23 19:59

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...
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: copia righe con doppie

Postdi Tommy1960 » 23/03/23 13:52

OK grazie ci provo
Tommy1960
Newbie
 
Post: 5
Iscritto il: 14/09/22 15:20


Torna a Applicazioni Office Windows


Topic correlati a "copia righe con doppie":


Chi c’è in linea

Visitano il forum: Nessuno e 125 ospiti