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
297
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
Heh, Riikka runnoi Suomen BKT:n miinukselle
Suomi on Riikan irvistysten ansiosta ainoa negatiivisen talouskasvun maa EU:ssa. Ei tästä ainakaan EU:ta voi syyttää, ku775426Erään T miehen viimeinen aloitus tänne
Moi Olen kirjoittanut täällä säännöllisesti yli 5 vuotta. Kaivannut kuten kuuluukiin, mutta myös unohdellut ja selvitel352965Sanna vaihteeksi Australian "60 minuuttia" ohjelmassa
Kansanvälinen superstaramme esiintyi tällä kertaa toisella puolen maapalloa esitettävässä ohjelmassa. Kiinnostus on kova1232323HihhuIi-Päivi täpinöissään Viktorin tapaamisesta
Eiköhän nyt kaikille ole vihdoin selvää kenen joukoissa tämäkin putinisti seisoo. https://www.iltalehti.fi/politiikka/a1201955Yritykset verolle ja yritystuet 10 mrd. eur/v pois
Kiristämistapauksissa yrityksille sanotaan hei hei. Suomi ei tarvitse yhteiskunnan rahoilla "yrittämistä". Yhteiskunta v191885- 1111810
Björn Wahlroos ykkösaamussa nautittavaa kuunneltavaa
Ehdottomasti viisaimpia ja tietävämpiä ihmisiä mitä Suomesta koskaan tullut. Naureskeli viherpiipertäjille jotka ihan p2971405Yritän saada sinut pois mielestäni ja ajatuksistani nainen
Turhaan. Mitä enemmän yritän, sitä enemmän haluan sinut ja sinua. Miten voitkaan olla niin ihana ja tuntua niin hyvältä.671357Nyt meni maku vas.liittoon, kun vaativat minimituntipalkkaa lakiin
Sehän tarkoittaa samalla myös maksimituntipalkkaa, koska kun laki on kerran laadittu, niin sitä on vaikea muuttaa. Työma531284- 851160