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?
6
614
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
- 1581991
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311774Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021547- 721240
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171233- 681191
- 220988
- 70815
- 45750
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723