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
213
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
Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik123880MTV: Kirkossa saarnan pitänyt Jyrki 69 koki yllätyksen - Paljastaa: "Se mikä oli hyvin erikoista..."
Jyrki Linnankivi alias Jyrki 69 on rokkari ja kirkonmies. Teologiaa opiskeleva Linnankivi piti elämänsä ensimmäisen saar782037Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun5481641Kirjoita yhdellä sanalla
Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin851308Olet hyvin erilainen
Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja671097Yksi syy nainen miksi sinusta pidän
on se, että tykkään luomusta. Olet luonnollinen, ihana ja kaunis. Ja luonne, no, en ole tavannut vielä sellaista, joka s331028Hyödyt Suomelle???
Haluaisin asettaa teille palstalla kirjoittelevat Venäjää puolustelevat ja muut "asiantuntijat" yhden kysymyksen pohditt214898Hyvää Joulua mies!
Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o60873- 171854
Paljastavat kuvat Selviytyjät Suomi kulisseista - 1 päivä vs 36 päivää viidakossa - Katso tästä!
Ohhoh! Yli kuukausi viidakossa voi muuttaa ulkonäköä perusarkeen aika rajusti. Kuka mielestäsi muuttui eniten: Mia Mill3808