Re: Excel i znajdowanie powtórzeń

jednozdanie napisał(a):
> #1 sposob
> sortujesz baze
> dodajesz kolumne i wpisujesz funkcje JEŻELI(B2<>B1;"";"A")
> wystapienie A informuje o zdublowanych rekordach
> jak je zafiltrujesz i zaznaczysz na pasku stanu bedziesz mial ich liczbe
> (wczesniej na pasku stanu lewym myszy i Licznik
>
> #2 sposob
> wstawiasz kolumne i uzupelniasz ja 1
> wstawiasz kolumne i funkcje SUMA.JEŻELI($B$2:$C$4;$B$2:$B$4;$C$2:$C$4)
> - wystapienie 1dynki oznacza unikalnosc rekordu
> - wystapienie 2, 3, 4... oznacza liczbe powtirzen
> zafiltruj sobie na "nie 1" i masz rekordy powtarzajace sie i ich liczbe

Ciekawe na ile grup jeszcze wysłał pytanie... :) ale powtórzę:

1.
menu dane-->filtr-->filtr zaawansowany
kopiuj w inne miejsce, tylko unikatowe rekordy
w kolumnie obok wyniku użyć funkcji "licz.jeżeli", koniec.

2.
potrzebna jest forma zawierająca listboxa, oczywiście trzeba zmienić
zakresy do konkretnych danych etc.

Sub dubel()
ActiveSheet.Columns("BB:BB").ClearContents
i = 1: J = 1
Do While ActiveSheet.Range("C" & i).Value <> ""
K = i + 1
Do While ActiveSheet.Range("C" & K).Value <> ""
If ActiveSheet.Range("C" & K).Value = ActiveSheet.Range("C" & i).Value Then
ActiveSheet.Range("BB" & J).Value = ActiveSheet.Range("C" & i).Value
             J = J + 1
           End If
         K = K + 1
     Loop
i = i + 1
Loop

     UserForm1.ListBox1.RowSource = ""
     For row = 1 To 60
     UserForm1.ListBox1.AddItem ActiveSheet.Cells(row, 54)
     Next row
     UserForm1.Show

End Sub

3. itd.

-- 
Pozdrawiam, TMK