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
254
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
Zelenskyi ei suostunut nöyrtymään Trumpin ja Vancen edessä, siksi meni pieleen
Trumppia täytyy imarrella, silloin homma toimii aina. Tähän Zelenskyi ei suostunut.6565690Harmi että
Pidät niin vastenmielisenä. Olen minäkin välissä ollut ihan kamala sinulle ja ihmetellyt miten voit minusta tykätä. Se o222487Trump näytti slipoveri-ukolle kaapin paikan!
Slipoveri-ukko Ukrainan presidentti Volodimir Selenskyi meni tapaamaan valkoiseen taloon Trumppia ilman kunnon tuliaisia2711849- 1141727
- 941556
En rehellisesti usko et oisit
Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos271518Saako kaunis ihminen parempaa kohtelua?
Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa381336Näin sinusta taas unta!
Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly121311Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa
Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin3391291Kun Zele jenkeissä kävi
Enää ei Zele saanutkaan miljardeja ilmaista rahaa niin helposti. Läksyttivät oikein kunnolla pientä miestä ja joutui poi3481277