päällekkäistä

Aapuva

ongelmana on että sarakkeessa on satoja numerokoodeja ja jotkut niistä esiintyvät kymmeniä kertoja. Olisi kätevää jos saisi makrolla piilotettua ylimääräiset rivit ja sarakkeeseen jäisi vain jokainen numerokoodi yhteen kertaan...Miten tälläisen pystyis toteuttaan?

2

344

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • fsdgfgdffghgjgh

      ei tietoa, liittynee jotenkin duplikaatteihin....

      • "ei tietoa, liittynee jotenkin duplikaatteihin...."
        varmaankinliittyy tupliin- 555 hahaha ;-)

        moduuliin...

        muuta sarake oikeaksi nyt A-sarake
        eka koodinpätkä piilottaa tuplat ja toka palauttaa kaikki...

        Sub PiilotaTuplaRivit()
        Dim vika As Long
        Dim i As Long
        vika = Range("A65536").End(xlUp).Row
        For i = vika To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i)) > 1 Then
        Range("A" & i).EntireRow.Hidden = True
        End If
        Next i

        End Sub
        Sub NäytäKaikki()
        Rows.Hidden = False
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      159
      2506
    2. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      136
      1925
    3. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      106
      1775
    4. Mikä on hän on ammatiltaan?

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      78
      1455
    5. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      76
      1388
    6. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      21
      1357
    7. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      228
      1096
    8. Oletko tutustunut muihin

      Samalla tavalla kuin häneen?
      Ikävä
      71
      890
    9. Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

      Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
      Luterilaisuus
      220
      880
    10. Uskotko että kohdataan vielä?

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      49
      831
    Aihe