Fixing multiline cell

[TonyL]

I have exported an Outlook address book to a csv file & have opened the file
in Excel. The address field is a multiline field with Chr(10) designating a
new line. I am trying to convert from multiline to separate fields. Each
line is a new field. I am trying to replace the Chr (10) to a ~ then I can
format into separate fields using the Text to Columns function.

My problem is that I cannot see how to replace the Chr(10)

I have seen the following macro in a previous post which I modified but this
does not replace the Chr(10) but adds the ~ after the Chr(10)

Sub CharacterReturn()
'
' CharacterReturn Macro
'
'removes carriage returns from A1 down
Dim Rng, r As Range
Set Rng = Range(Cells(1, 1), _
Cells(ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row, 1))
For Each r In Rng
r.Value = Application.Substitute(Trim(CStr(r.Value)), Chr(10), "")
Next r

End Sub


Any help would be greatly appreciated. TIA

 

[Ron Coderre]

Have you tried this?:

Select the cells with carriage returns (char 10's)
<Edit><Replace>
Find what: Hold down the [Alt] key, type 0010 then release the [Alt] key
Replace with: ~
Click the [Replace All] button

That should replace all of the carriage returns in the selected cells with
tildes

Does that help?

***********
Regards,
Ron

XL2002, WinXP-Pro

 

[Don Guillett]

try thishttp://tinyurl.com/zkcga