Ongelma:
Osoitetiedoston useissa soluissa on solun sisällä rivinsiirto. Excelissä se näkyy kahtena paksuna pystyviivana, tekstieditorilla tarkastellen siellä olisi CR ja LF. Kuinka voin hävittää ko. merkit ja siirtää rivit omiksi soluikseen?
Siivoa -komennolla lopputuloksena on melkein oikea tulos, rivit vaan ovat yhtenä pötkönä. Jos väliin saisi vaikka pilkun, voisi käyttää teksti sarakkeisiin komentoa.
Osoitetiedoston useissa soluissa on solun sisällä rivinsiirto. Excelissä se näkyy kahtena paksuna pystyviivana, tekstieditorilla tarkastellen siellä olisi CR ja LF. Kuinka voin hävittää ko. merkit ja siirtää rivit omiksi soluikseen?
Siivoa -komennolla lopputuloksena on melkein oikea tulos, rivit vaan ovat yhtenä pötkönä. Jos väliin saisi vaikka pilkun, voisi käyttää teksti sarakkeisiin komentoa.
Vastaukset 4
Vanhimmat
toimiva koodi tarpeeseesi. Makro muuttaa valitulta alueelta Chr(10)=LF ja Chr(13)=CR -merkit pilkuksi.
Sub PoistaTurhat()
Application.ScreenUpdating = False
On Error Resume Next
Selection.SpecialCells(xlConstants).Replace What:=Chr(10), _
Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=True
Selection.SpecialCells(xlConstants).Replace What:=Chr(13), _
Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=True
On Error GoTo 0
End Sub
Kiitos sinulle rpo!
Toimii kuin junan vessa.
On se hienoa kun toiset osaa ja kertoo muillekin.
Tiedot - Teksti sarakkeisiin - Erotettu jne...
toimiiko tuo tässä tapauksessa ?