Ordenen email bestand

[SirFlo]

Hallo,

Ik ben hier voor het eerst en heb een vraagje:

Ik heb een groot emailbestand geïmporteerd en heb het inmiddels via een vervangfunctie van een "slash-teken gescheiden" via een "kommagescheiden" bestand naar een "normaal" excel bestand weten te krijgen.
(Al een hele opgave voor een Max-leeftijdgerechtigde )

Alle emailadressen heb ik inmiddels dus in 1 kolom weten te krijgen A1-A200.000, echter, er zit een hoop rommel tussen, bijvoorbeeld lege regels, maar ook getallen of tekens welke geen emailadressen zijn.

Hoe kan ik excel de opdracht geven om alles behalve de emailadressen te verwijderen, en de lege ruimtes weg te halen?

Groetjes, FLO

 

[SirFlo]

En ow jah

Om het voor mij nog wat moeilijker te maken is het een engelse (mac) uitvoering van excel

 

[spaarie]

Filter aanzetten en de "rommel" uitvinken.

 

[SirFlo]

Filter aanzetten en de "rommel" uitvinken.

Hier heb ik dus niets aan, toch bedankt voor alle moeite.

Groetjes, FLO

 

[SirFlo]

Zo ziet het er uit

23dennis@home.nl
2500EZ
2512BV
2675WS
289657pl@student.eur.nl
291162@live.nl
2957@xs4all.nl
2993AB



En zo moet het er uit gaan zien, alleen is het een bestand van meer dan 200000 adressen!

23dennis@home.nl
289657pl@student.eur.nl
291162@live.nl
2957@xs4all.nl

 

[spaarie]

Waarom zou je dan niks aan het filter hebben? Want begrijp niet waarom je hier niks aan hebt...

*edit* laat maar! Ff 200000 vinkies nakijken (zou ik ook geen zin in hebben)

 

[popipipo]

Ervan uitgaand dat in alle gewenste cellen het @- teken bevat en in alle niet gewenste cellen niet kun je dit gebruiken.

 

[Warme bakkertje]

VBA-variant

Sub tst()
For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If InStr(1, cl, "@") = 0 Then cl.ClearContents
Next
Columns(1).SpecialCells(4).EntireRow.Delete
End Sub

 

[SirFlo]

VBA-variant

Sub tst()
For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    If InStr(1, cl, "@") = 0 Then cl.ClearContents
Next
Columns(1).SpecialCells(4).EntireRow.Delete
End Sub

Ervan uitgaand dat in alle gewenste cellen het @- teken bevat en in alle niet gewenste cellen niet kun je dit gebruiken.

Dank jullie wel, ik kom er nog niet uit maar dat is dan mijn domheid Ik krijg steeds de melding dat er " not enough arguments for this function" zijn.
Ik leer net pas te werken met excel dus het zal ongetwijfeld aan mijzelf liggen.

In ieder geval bedankt allemaal voor het proberen!

 

[Warme bakkertje]

Niet zo snel opgeven
Wat heb je juist gedaan, en waar liep het dan mis ?

 

[Roncancio]

Met een Autofilter hoef je niet alle 200.000 rijen te laten controleren.

Sub Filteren()
Range("A:XFD").AutoFilter 1, "<>*@*"
Range("A2:XFD" & Rows.Count).SpecialCells(xlCellTypeVisible).Delete
Range("A:XFD").AutoFilter
End Sub

Met vriendelijke groet,


Roncancio