Miten taulukosta poistetaan rivit jonka jokin solu sisältää saman arvon kuin toisen rivin sama solu? Olisi lokitiedosto jota pitäisi muokata sisältämään yhdeltä käyttäjältä vain yksi rivi. Eli käyttäjiltä saattaa olla suurikin määrä rivejä joissa esim vain päivämäärä ja klo muuttuu ja pitäisi saada taulukko jossa olisi kultakin käyttäjältä vain yksi rivi. Eli yhteenveto käyttäjistä. Poistettavien rivien tietosisällöllä ei väliä. Liekö makro ainut vaihtoehto?
Duplikaatti rivien poisto
Sentti
6
3035
Vastaukset
- paavali
Aktivoi alue jota haluat hakea.
Tiedot -> suodatus -> erikoissuodatus ja ruksi kohtaaan Vain ainutkertaiset tietueet ja OK.- Sentti
Eihän tuo toimi kun rivit ei ole identtisiä. Siellä on identtistä vain käyttäjä tunnus, päivä ja kellonaika esim vaihtuu joka rivillä. Toki eri käyttäjillä periaatteessa voisi olla identtisiä rivejä jos nyt sekunnin osalleen kirjattu tapahtuma lokiin. Tässäkin tapauksessa siis tunnus eri. Eli pitäisi saada kultakin käyttäjätunnukselta talteen vain yksi rivi. Toisin sanoen listata käyttäjä tunnukset. luulisin että alkaa lajittelemalla ensin tunnusten mukaan.
- paavali
Sentti kirjoitti:
Eihän tuo toimi kun rivit ei ole identtisiä. Siellä on identtistä vain käyttäjä tunnus, päivä ja kellonaika esim vaihtuu joka rivillä. Toki eri käyttäjillä periaatteessa voisi olla identtisiä rivejä jos nyt sekunnin osalleen kirjattu tapahtuma lokiin. Tässäkin tapauksessa siis tunnus eri. Eli pitäisi saada kultakin käyttäjätunnukselta talteen vain yksi rivi. Toisin sanoen listata käyttäjä tunnukset. luulisin että alkaa lajittelemalla ensin tunnusten mukaan.
Yritetäänpä uudelleen: Jos käyttäjätunnukset on sarakkeessa A, Aktivoi koko sarake ja tee se erikoissuodatus, kaikkia tunnuksia jää vain yksi
- Sentti
paavali kirjoitti:
Yritetäänpä uudelleen: Jos käyttäjätunnukset on sarakkeessa A, Aktivoi koko sarake ja tee se erikoissuodatus, kaikkia tunnuksia jää vain yksi
No nyt uppos ajatus umpiluuhun, aivan loistavaa. Ja kun laitan kopioimaan toiseen paikkaan nuo tunnukset on vielä kaiken hyvän lisäks nopea. Suuri kiitos.
- Kunde
"Eli yhteenveto käyttäjistä"...
Jos siis haluat uniikkikäyttäjät, niin kokeile tätä (ei ihan selvinnyt kysymyksestä)
oletus sarakkeessa A on käyttäjän nimi(muuta tarvittaessa)
Option Explicit
Sub Ainutkertaiset()
Dim VikaOikea As Integer
Dim VikaAlas As Integer
Dim lkm As Long
Dim laskuri As Long
VikaAlas = Range("A1").End(xlDown).Row
VikaOikea = Range("A1").End(xlToRight).Column
Range(Cells(1, 1), Cells(VikaAlas, VikaOikea)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For laskuri = VikaAlas To 2 Step -1
If Range("A" & laskuri) = Range("A" & laskuri - 1) Then
Range("A" & laskuri).EntireRow.Delete
End If
Next
End Sub- Sentti
Kyllähän tämäkin näyttää pelaavan, vaikkakin toisessa keskustelu haarassa selostettu metodi tuottaa vastaavan tuloksen nopeammin. Vaikka ei tässä pappia kyydissä olla. Kiitos vain, koodi visusti tallessa tulevia sovelluksia varten.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 881577
Kesän odotuksia hyrynsalmella
Kyllä kesällä hyrynsalmellakin on mahdollisuus osallistua kylän menoon monella tavalla . On kaunislehdon talomuseolla121460- 981390
- 691260
- 1111229
- 1161150
Anne Kukkohovi ei myykkään pikkuhousujaan
Kyseessä oli vain markkinointitempaus. Anne höynäytti hienosti kaikkia ja Onlyfans-tilinsä tilaajamäärä lähti jyrkkään n258977- 69971
Voi Rakas siellä
Olet ollut mun ajatuksissa taas koko päivän. Olet ihmeellinen kertakaikkiaan ja arvostan sinua niin paljon❤️Minulla ei o18925- 37907