fenriz newmi: potrebujem z toho spravit stlpce a nie riadky. Je to niekolko tisic email kontaktov, musi to byt teda spravene nie rucne ale automaticky.
Znak oddelenia bodkociarka - ano
Použi toto makro. Text z bunky A1 rozhodí do stlpcov.
Ale v exceli 2003 je iba 256 stlpcov
Sub Makro1()
Range("A1").Select
Selection.TextToColumns Destination:=Range("A1"), Type:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, Space:=False, Other:=False, TrailingMinusNumbers:= True
End Sub