Excel - jak usunąć zdublowane wiersze, pozostawiając tylko oryginały?

Witam,

potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę.



Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko pozostałe komórki bez ich usuwania. Na moje oko potrzebne by było makro na tym polega trudność gdyż dokument trzeba obrobić bez tworzenia nowych formuł jako że ma być importowany do bazy danych.

Nie jestem pewny czy o to chodzi ale może jednak: Link]Link[/url]

Jeżeli nie dopuszczasz funkcji to tylko makro.
I tu pojawia się pierwszy kłopot: makro musi mieć pełne dane np. ile jest wierszy. Można to określić funkcją ale trzeba podać która kolumna ma maksymalną ilość wierszy Jeżeli jest to np. kolumna A to:

OstatniWiersz = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

Jak to wiadomo to reszta jest już prosta:

For x = 1 to OstatniWiersz

'sprawdzenie czy wartość z kolumny M jest w następnych trzech kolumnach
If Cells(x,13) = Cells(x,14) then Cells(x,14) =""
If Cells(x,13) = Cells(x,15) then Cells(x,15) =""
If Cells(x,13) = Cells(x,16) then Cells(x,16) =""

'sprawdzenie czy wartość z kolumny N jest w następnych dwóch kolumnach
If Cells(x,14) = Cells(x,15) then Cells(x,15) =""
If Cells(x,14) = Cells(x,16) then Cells(x,16) =""

'sprawdzenie czy wartość z kolumny O jest w następnej kolumnie
If Cells(x,15) = Cells(x,16) then Cells(x,16) =""

Next x