Yhdistäisin yhdeksi tiedostoksi muutaman eri tiedoston, joissa on sähköpostiosoitteita. Ongelma on se, että eri tiedostoissa saattaa olla keskenään samoja osoitteita. Onkohan excelissä ominaisuutta, jolla voisi poistaa yhdistetystä tiedostosta enemmän kuin kerran esiintyvät osoitteet eli niin, että jäljelle jää vain yksi kappale kutakin osoitetta?
Ylimääräisten rivien poisto?
Avusta kiitollinen
6
632
Vastaukset
moduuliin...
muuta sarake sopivaksi. Nyt A-sarakkeesta haetaa tuplia
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("A" & 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
Keep Excelling
@Kunde- ei ihan virtuoosi
Kiitos vastauksesta, mutta tuo taitaa mennä yli osaamiseni. Mihin ja miten tuo teksti piti syöttää? Tuo moduli -juttu meni vähän ohi.
ei ihan virtuoosi kirjoitti:
Kiitos vastauksesta, mutta tuo taitaa mennä yli osaamiseni. Mihin ja miten tuo teksti piti syöttää? Tuo moduli -juttu meni vähän ohi.
Excelin puolella siis taulukkonäkymässä ALT F11 näppäinyhdistelmä avaa VBA editorin ja sieltä valitset valikosta INSERT/MODULE ja aukeavaan ikkunaan ((oletuksena Module1) kopioit koodin. Sitten vain suoritat ko proseduurin.
vaihtoehtoisesti valikon File/Tiedosto vasemmalla puolella olevaa excel kuvaketta klikkaamalla hiiren oikealla ja valitsemalla View Code/ Näytä koodi aukeaa VBA editori ja sitten samat jutut kuin edellisessäkin- melkein virtuoosi
kunde kirjoitti:
Excelin puolella siis taulukkonäkymässä ALT F11 näppäinyhdistelmä avaa VBA editorin ja sieltä valitset valikosta INSERT/MODULE ja aukeavaan ikkunaan ((oletuksena Module1) kopioit koodin. Sitten vain suoritat ko proseduurin.
vaihtoehtoisesti valikon File/Tiedosto vasemmalla puolella olevaa excel kuvaketta klikkaamalla hiiren oikealla ja valitsemalla View Code/ Näytä koodi aukeaa VBA editori ja sitten samat jutut kuin edellisessäkinNo, niin. Onnistuuhan se kun rautalangasta vääntää. Kiitos paljon.
- ja vot
Hyvänen aika ei tämän takia tarvitse alkaa ohjelmaa kirjoittaa. Valitse 'Tiedot' ja sen jälkeen 'Poista kaksoiskappaleet'
eipähän ole tommosta toimintaa vanhemmissa Excelissä....
ja vot on hyvä ja kertoo mitenkä hän sen tekee 2003 versiossa ilman makroa?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin
Sai potkut Yleltä. https://yle.fi/a/74-201400005328517Aamuseuraa/rehevää naista
uhkean rehevät m-xxxl naiset/rouvat/pari 18-80v kutsu luokses 31.1 aamusta päiväpanoille 32v hetero mies.oon innokas nuo4365224h Kirppis
Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?72193Suomessa eletään liian pitkään
"Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy1571153Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain
Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja17786Olen niin haaveillut
Sinusta. Ollut hullun rakastunut. Ajatellut kaikkea mitä yhdessä voisimme tehdä. Mutta ei ei yhtään mitään. Usko vaan lo57722Sun ulkonäkö on
Kyllä viehättävä. Kauniit piirteet. Todella sievät. Ja olemus on ihana. Olet tehnyt vaikutuksen.33709Oletko koskaan
Tavannut/tuntenut ihmistä, jonka kanssa vuosisadan rakkaustarina olisi ollut mahdollinen, mutta joku este tuli väliin?68706- 42676
En voi ottaa
Jos ikinä aiot ottaa yhteyttä, niin tee se nyt. On aika, kun todella todella tarvitsisin sinua. Naiselle.36637