sottrazione elenchi di nominativi

[fabiotardioli]

Salve a tutti, vi ringrazio per l'aiuto datomi la volta passata ora ho di nuovo bisogno di aiuto.

In un foglio di calcolo ho una serie di nominativi alcuni doppi come di seguito

Fabio Tardioli
Mirko Tardioli
Nazareno Tardioli
Nazareno Tardioli

devo fare una operazione in modo che mi rimanga un elengo senza il doppio ossia mi rimanga solo

Fabio Tardioli
Mirko Tardioli

Grazie per l'aiuto

Saluti Fabio Tardioli

[Robert Tucker]

http://user.services.openoffice.org/it/ ... ?f=9&t=409

[patel]

è la seconda volta che proponi il quesito http://user.services.openoffice.org/it/ ... 486#p14486
perchè ?

[fabiotardioli]

Il primo era un quesito diverso.

prima chiedevo ed ho risolto con univoci ora chiedo di eliminare del tutto due nomi uguali mi rispiego:

Tardioli Fabio
Tardioli Mirko
Tardioli Nazareno
Tardioli Nazereno

devo avere una lista con solo

Tardioli Fabio
Tardioli Mirko

devo estrarre tutti i nomi tranne quelli che si ripetono
Grazie

[patel]

prova questa

Codice: Seleziona tutto

Sub EliminaCoppie
dim Cella as object,CellaPrec as object, RIGA as integer, col as integer
oSheet = ThisComponent.Sheets(0)
oRange = oSheet.getCellRangeByName("A3:A20")' >>> range da modificare in base ai dati, attenzione comprende l'intestazione della tabella
call SortColZero
on error goto errore
With oRange ' lavoro col range, lo scansiono riga per riga, quando finisce va in errore
col=0
RIGA=1
CellaPrec =.getCellByPosition(col,RIGA - 1)
Cella = .getCellByPosition(col,RIGA)
Do
      If StrComp(Cella.String, CellaPrec.String, 0) = 0 Then
         .Rows.removeByIndex(RIGA-1, 1)
         .Rows.removeByIndex(RIGA-1, 1)
         'CellaPrec = Cella
         Cella = .getCellByPosition(col,RIGA)       
       else
         RIGA = RIGA + 1
         CellaPrec = Cella
         Cella = .getCellByPosition(col,RIGA)       
      End If
Loop
End with
errore:
End Sub
Sub SortColZero
'il deve comprendere l'intestazione della tabella
Dim oSortFields(0) as new com.sun.star.util.SortField
Dim oSortDesc(0) as new com.sun.star.beans.PropertyValue
oSortFields(0).Field = 0
oSortFields(0).SortAscending = TRUE
oSortDesc(0).Name = "SortFields"
oSortDesc(0).Value = oSortFields()
oRange.Sort(oSortDesc())
End Sub

[lucky63]

Se vuoi puoi fare anche senza usare macro.

Ipotizziamo:
Cella A1 Intestazione NOMINATIVI
Cella B1 Intestazione NOMINATIVI SINGOLI
Tuoi dati in colonna A partendo da cella A2 con Cognome e Nome in cella Unica
Ordina dati in colonna A
In cella B2 inserisci la formula:

Codice: Seleziona tutto

=SE(O(A2=A1;A2=A3);"";A2)

Copia/Trascine cella B2 quanto la lunghezza dei dati in colonna A
In colonna B avrai solo le corrispondenze (derivanti da formula)
Seleziona colonna B
Tasto Dx Mouse > Copia
Posizionati in cella A1 di un'altro foglio
Tasto Dx Mouse > Incolla Speciale > togli la spunta dalla voce di selezione "Formule" > OK
Avrai ora disponibili le corrispondenze desiderate (in puro testo - NON collegate a formule)
Riordina questo nuovo elenco (Menu > Dati > ordina ...) per eliminare righe vuote ...
--- FATTO ---

Se poi è un'operazione che devi fare spesso puoi anche usare il registratore di macro ...
.

[patel]

Se vuoi puoi fare anche senza usare macro

mi inchino !