zdublowane komorki
Witam
Mam pytanie, jak usunac zdublowane wiersze. Mam dwie kolumnu (A i B), w jednej 20000, a drugiej 60000 komorek, i niektore z tych 20000 zawieraja sie w kolumnie obok, jak sprawdzic ktore to sa, zaznaczyc je, albo poprostu usunac dubla z kolumny A.
pozdrawiam
Piotr
Mam pytanie, jak usunac zdublowane wiersze. Mam dwie kolumnu (A i B), w jednej 20000, a drugiej 60000 komorek, i niektore z tych 20000 zawieraja sie w kolumnie obok, jak sprawdzic ktore to sa, zaznaczyc je, albo poprostu usunac dubla z kolumny A.
pozdrawiam
Piotr
Odpowiedzi: 2
DZIEKI Trebor, jestes the greatest !!!
Hej!!
Potestuj coś takiego.
Ostatnio zauwaźyłem modę na stosowanie funkcji wbudowanych w makrach i chciałem spróbować jak to działa. Wydaje się, źe nieźle ale kod średnio mi się podoba :?
Funkcja Match nie rozróźnia duźych i małych liter.
Pozdrawiam
Potestuj coś takiego.
On Error Resume Next
For a = Cells(65536, 1).End(xlUp).Row To 1 Step –1
b = 0
b = WorksheetFunction.Match(Cells(a, 1), Range(Cells(1, 2), Cells(65536, 2).End(xlUp)), 0)
If b <> 0 Then Cells(a, 1).Font.Bold = True
' jesli chcesz aby makro usuwało wiersz odblokuj wiersz poniźej a zablokuj wiersz powyźej
'If b <> 0 Then Cells(a, 1).Delete Shift:=xlUp
Next a
On Error GoTo 0
Ostatnio zauwaźyłem modę na stosowanie funkcji wbudowanych w makrach i chciałem spróbować jak to działa. Wydaje się, źe nieźle ale kod średnio mi się podoba :?
Funkcja Match nie rozróźnia duźych i małych liter.
Pozdrawiam
Strona 1 / 1