PC Ekspert Forum - EXCEL formula za listu svih celija bez duplih

PC Ekspert Forum (https://forum.pcekspert.com/index.php)

- Aplikacije (https://forum.pcekspert.com/forumdisplay.php?f=37)

- - EXCEL formula za listu svih celija bez duplih (https://forum.pcekspert.com/showthread.php?t=230274)

davor07

06.03.2012. 09:46

EXCEL formula za listu svih celija bez duplih

Pozdrav!

Molim excel formulu ili nesto sto bi iz jedne kolone "izvuklo" sve vrijednosti samo jednom, a zanemario duplikate.
Npr. imam tablicu računa u kojoj se navode kupci, sada bi trebao popis kupaca (u tom popisu svaki se spominje samo jedno) kako bi mogao raditi daljnje analize. Kako takva tablica ima par tisuća redova, ne mogu računati da ručno izvlačenje imena jer je mogućnost greške prevelika.

Evo kako bi to izgledalo. Gore je originalna tablica (kupci su zeleni, ima duplih), a dolje je plava automatska lista sa popisom svih kupaca (nema duplikata).
SLIKA: http://i42.tinypic.com/ftj7ye.jpg

D1viry

06.03.2012. 09:56

Jednostavno ukloni duplikate i kopiraj na drugo mjesto listu. Ako ne želiš sačuvati original, onda samo ukloni duplikate.

http://www.pohrani.com/f/Q/ti/kGzcYKN/duplikati.jpg

davor07

06.03.2012. 10:23

Citiraj:

Autor D1viry (Post 2116124)

Jednostavno ukloni duplikate i kopiraj na drugo mjesto listu. Ako ne želiš sačuvati original, onda samo ukloni duplikate.

http://www.pohrani.com/f/Q/ti/kGzcYKN/duplikati.jpg

Nažalost ne pomaže mi, treba mi nešto što će automatski raditi novi popis - nove kolone, bez duplih, kako bi mogao koristiti za daljnje izračune.

mbozick1

06.03.2012. 10:57

Evo upute

http://www.mrexcel.com/tip138.shtml

davor07

06.03.2012. 11:47

Citiraj:

Autor mbozick1 (Post 2116167)

Evo upute

http://www.mrexcel.com/tip138.shtml

Hvala ti puno!
Metoda 1 je jako dobra, poluautomatska i biti će skoro idealna.
Metoda 3 mi uopće nije pala na pamet, a mislim da će na kraju biti idealna!

hvala

IvanVk

07.03.2012. 22:46

Citiraj:

Autor davor07 (Post 2116190)

Hvala ti puno!
Metoda 1 je jako dobra, poluautomatska i biti će skoro idealna.
Metoda 3 mi uopće nije pala na pamet, a mislim da će na kraju biti idealna!
hvala

Imaš i ovu metodu

Code:

Sub KopirajUnique()



  Application.ScreenUpdating = False

      

  'KOPIRANJE A NA B - SAMO UNIKATI

  Dim aa As Long

  aa = Sheets(1).Range("B1").End(xlDown).Row

      

    Range("B1:B" & aa).Select

    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True

    

    Application.CutCopyMode = False

    

    Range("B1").Select



End Sub

Sva vremena su GMT +2. Sada je 21:06.