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
63077
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 6
Vanhimmat
Aktivoi alue jota haluat hakea.
Tiedot -> suodatus -> erikoissuodatus ja ruksi kohtaaan Vain ainutkertaiset tietueet ja OK.
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
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.
"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
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.