Michał G.

Michał G. controlla ponad
wszystko :]

Temat: kolejne pytanko

meczy mnie znajomy z pracy ,a ja tego nie wie mszczerze mowiac

mamy okolo 500 wierszy ,w kazdym wierszu standadowe dane (kazda w nastepnej kolumnie) imie|nazwisko|ulica|....
i co dzien dostaje nowych wierszy 50 ale w tych nowych moga sie powtarzac stare ktore juz ma, i jak zrobic zeby automatycznie albo pokazywalo mu ze sie powtarza wiersz z tymi samymi danymi albo jakos formułą wyłapac te powtarzajace sie

konto usunięte

Temat: kolejne pytanko

Michał G.:
meczy mnie znajomy z pracy ,a ja tego nie wie mszczerze mowiac

mamy okolo 500 wierszy ,w kazdym wierszu standadowe dane (kazda w nastepnej kolumnie) imie|nazwisko|ulica|....
i co dzien dostaje nowych wierszy 50 ale w tych nowych moga sie powtarzac stare ktore juz ma, i jak zrobic zeby automatycznie albo pokazywalo mu ze sie powtarza wiersz z tymi samymi danymi albo jakos formułą wyłapac te powtarzajace sie

licz.jeżeli

pozdrawiam

Tomasz Gąsecki
Michał G.

Michał G. controlla ponad
wszystko :]

Temat: kolejne pytanko

dzieki
ale ja nie chce liczyc ile mam powtarzających sie wierszy- tylko chce je znaleźć i wykasowac ,a najlepiej jakby samo wykasowalo.
poprostu chce zlokalizować powtarzające sie wiersze
ctrl+f odpada
Robert B.

Robert B. Bancassurance
Product & Operations
| Group Insurance |
Em...

Temat: kolejne pytanko

może warto wrzucić to do access-aRobert B. edytował(a) ten post dnia 12.03.08 o godzinie 16:43

konto usunięte

Temat: kolejne pytanko

Michał G.:
dzieki
ale ja nie chce liczyc ile mam powtarzających sie wierszy- tylko chce je znaleźć i wykasowac ,a najlepiej jakby samo wykasowalo.
poprostu chce zlokalizować powtarzające sie wiersze
ctrl+f odpada

żeby znaleźć trzeba policzyć
można tak napisać formułę żeby zliczała kolejne wystąpienie wiersza (zblokować wiersz)
tzn pierwsze powtórzenie -> 1
drugie powtórenie -> 2 itd
a potem usunąć >1

przykład:
A B

AA 1 <- formuła =licz.jeżeli(A$1:A1;A1)
BA 1 <- formuła =licz.jeżeli(A$1:A2;A2) itd
AA 2
CA 1

Pytanie pomocnicze ... co jest kryterium powtarzalności?
jedna komórka, dwie, wszystkie komórki z wiersza ?

czas wykonania zadania < 30 sek
robię to codziennie

samo sie nie zrobi ... trzeba sobie napisać program
nie wiem czy jest sens angażować w to accessa

Pozdrawiam

TomekTomasz G. edytował(a) ten post dnia 12.03.08 o godzinie 17:46
Grzegorz Wojno

Grzegorz Wojno Kierownik Logistyki

Temat: kolejne pytanko

Witam,
dość często wykonuję podobną operację; w kolumnie A mam numery zamówień, niektóre z nich się powtarzają po kilka lub kilkanaście razy i muszę je usuwać. Robię to za pomocą poniższego makra:

Sub podwojne()
Dim i As Long
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
i = 2
Do Until Cells(i, 1).Value = ""
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Rows(i).Delete
i = 1
End If
i = i + 1
Loop
End Sub

Trochę prymitywne, ale u mnie działa bez zarzutu.
Pozdrawiam

konto usunięte

Temat: kolejne pytanko

Ja załatwiłem to mniej więcej tak:

mam rejestr z danymi w kolumnach A:H
w kolumnie I utworzyłem formułę:
=ZŁĄCZ.TEKSTY(G5;" ";H5)
dlatego łączę te dwie kolumny ponieważ dane połączone z tych dwóch kolumn nie powinny się powtarzać (u mnie, u Ciebie może to być jedna kolumna lub inna dowolna kombinacja)

a w kolumnie H wstawiłem formułę:
=JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(I5;I$4:I4;1;0))=FAŁSZ;"x2";"")

do tego aby się nie męczyć z przeciąganiem formuły wstawiłem kod w arkuszu:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim kolumny As Range
If Not Intersect(Target, Columns("H")) Is Nothing Then
Cells(Target.Row, 10).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],R4C[-1]:R[-1]C[-1],1,0))=FALSE,""x2"","""")"
End If
End SubRafał S. edytował(a) ten post dnia 13.03.08 o godzinie 17:01

konto usunięte

Temat: kolejne pytanko

Michał G.:
meczy mnie znajomy z pracy ,a ja tego nie wie mszczerze mowiac

mamy okolo 500 wierszy ,w kazdym wierszu standadowe dane (kazda w nastepnej kolumnie) imie|nazwisko|ulica|....
i co dzien dostaje nowych wierszy 50 ale w tych nowych moga sie powtarzac stare ktore juz ma, i jak zrobic zeby automatycznie albo pokazywalo mu ze sie powtarza wiersz z tymi samymi danymi albo jakos formułą wyłapac te powtarzajace sie

Michał, gdybyś czasem, przez przypadek, miał Excela 2007, to:
1) zaznaczasz obszar z danymi,
2) pasek narzędzi Dane > "usuń dupilkaty"
3) wybierasz które kolumny bierzemy pod uwagę przy zabijaniu wierszy


Obrazek

Następna dyskusja:

pytanko:)




Wyślij zaproszenie do