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ä?
Kaksoiskappaleiden poistologiikka muuttunut?
Anonyymi
1
336
Vastaukset
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
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt354330Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.492293Kun kohtaat jotain ainutlaatuista
ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö481412- 851230
Mua ahdistaa
Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi381178Ei tämä enää tervettä oo
Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.251146Perämoottoreiden huolto melkoisen kallista
Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä501100Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!
Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin161955- 60911
Tanskademarit: ilman risusavottaa ei rahaa!
Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os175899