Kunde ! Hakeeko tuo alla oleva vba jonka olit esittänyt jollekin kysyjälle, myös tupla osoitteet ? Eli mulla on taulukon C sarakkeessa osoitteita yli 2500 kpl. Voinko tuolla karsia pois päällekkäisyydet ? Kyseessä postituslista.
Sub PoistaTuplat()
Dim solu As Range
Dim Vika As Double
Dim i As Long
Dim EiTupla As New Collection
On Error GoTo virhe
Vika = Range("A65536").End(xlUp).Row
Range("C" & Vika).Select
For i = Vika To 1 Step -1
If Not IsEmpty(ActiveCell) Then
EiTupla.Add ActiveCell.Value, CStr(ActiveCell.Value)
If i = 1 Then Exit For
ActiveCell.Offset(-1, 0).Select
End If
Next
Exit Sub
virhe:
ActiveCell.EntireRow.Delete
Resume Next
End Sub
Kunden Vba
Mielenkiintoinen vba
2
199
Vastaukset
koodi jättää vain uniikit arvot jäljelle, joten poistaa tuplat, triplat jne...
- Vastauksesta kiitoll
Kiitos Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
24h Kirppis
Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?133698Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain
Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja272740Suomessa eletään liian pitkään
"Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy2622621Deodoranttiteollisuus
Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin51865- 2141373
- 721200
Martinan mies on Suomessa.
Siellä se on Martinan instassa ja täällä on jo ero tullut. Voi että kun huvittaa...1531003Maistaisitko sinä näitä valmisruokia?
Terhi Kinnari ja Kinnarin tila voitti Suomalainen menestysresepti -kisan. Makuja Kinnarin tilan kaurapohjaisissa aterioi30953Tuo yksi tampio vielä ilmeisesti kuvittelee
Että joku itkee peräänsä täällä vinkuen jotain utopistista kadonnutta rakkauttaan kaksoisliekit silmissä leiskuen. Pyhä90907Voitaisko olla kavereita?
Haluaisin aloittaa puhtaalta pöydältä sinun kanssasi, tabula rasa. Minä lopetan sinun perääsi haikailun, ja sitten sinäk2767