Kaksoiskappaleiden poistologiikka muuttunut?

Anonyymi

Minulla on työkirjassa pari tuhatta nimeä yhteystietoineen. Haluaisin poistaa mahdolliset kaksoiskappaleet esimerkiksi puhelinnumeron perusteella. Valitsen 'Poista kaksoiskappaleet' ja sieltä sarakkeen, jonka perusteella poisto tehdään. Excel poistaa nyt myös sellaisetkin rivit, joissa ei ole puhelinnumeroa ollenkaan, koska se ilmeisesti tulkitsee että tyhjät solut ovat kaksoiskappaleita. Mielestäni se ei ole ennen toiminut näin, vaan poisto on koskenut soluja, joissa on kaksi tai useampi sama arvo. Oletteko muut huomanneet saman ja mitä asialle voisi tehdä?

1

274

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Sub PoistaTuplat()

      Dim Alue As Range
      Dim TuplaAlue As Range
      Dim Solu As Range
      Dim Vika As Long
      On Error GoTo virhe
      'aktiivisen solun sarake hakusarakkeena
      Set Alue = Range(Cells(1, ActiveCell.Column), Cells(Cells(65536, ActiveCell.Column).End(xlUp).Row, ActiveCell.Column))
      Alue.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
      Set TuplaAlue = Nothing
      For Each Solu In Alue
      If Solu.EntireRow.Hidden Then
      If Not Solu = "" Then
      If TuplaAlue Is Nothing Then
      Set TuplaAlue = Solu
      Else
      Set TuplaAlue = Union(TuplaAlue, Solu)
      End If
      End If
      End If
      Next
      If Not TuplaAlue Is Nothing Then
      TuplaAlue.EntireRow.Delete
      Else
      Exit Sub
      End If
      ActiveSheet.ShowAllData
      Exit Sub
      virhe:
      MsgBox "Valitse sarake klikkaamalla haluamasi sarakkeen solua tietoalueelta"
      End Sub

      Keep EXCELing
      @Kunde

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

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      96
      8549
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      45
      4210
    3. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      102
      1936
    4. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      37
      1478
    5. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      24
      1450
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      34
      1189
    7. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      12
      1160
    8. Rakastuminenhan on psykoosi

      Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
      Ikävä
      53
      877
    9. Olisinko mä voinut käsittää sut väärin

      Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt
      Ikävä
      31
      852
    10. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      29
      827
    Aihe