Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel 2003] Codice per dati univoci raddoppia prima riga

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

[Excel 2003] Codice per dati univoci raddoppia prima riga

Postdi libraio » 02/09/19 21:17

Ciao a tutti,
sto cercando di utilizzare un codice "recuperato" per estrarre in colonna C di un foglio i dati della colonna B, con valori univoci.
Il codice funziona bene, ma raddoppi il codice univoco della prima riga nella seconda riga.
Riporto il codice:
Range("B2:B65000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C2"), Unique:=True
Columns("C:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("C:C").Select

Ed ecco il foglio di lavoro con la macro:
https://we.tl/t-7Kgxg0HOVv

Come posso risolvere l'errore?
Grazie
libraio
Utente Senior
 
Post: 272
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: [Excel 2003] Codice per dati univoci raddoppia prima rig

Postdi Anthony47 » 02/09/19 23:16

Nell'estrazione degli Unici, la cella di inizio e' considerata "intestazione" di colonna.
Se vuoi gli "unici effettivi" devi usare Range("B1:B65000").AdvancedFilter etc etc

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16608
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel 2003] Codice per dati univoci raddoppia prima rig

Postdi libraio » 03/09/19 13:29

Grazie Anthony,
come sempre... risolutivo!
libraio
Utente Senior
 
Post: 272
Iscritto il: 04/01/10 20:31


Torna a Applicazioni Office Windows


Topic correlati a "[Excel 2003] Codice per dati univoci raddoppia prima riga":


Chi c’è in linea

Visitano il forum: Nessuno e 17 ospiti