Hi Will,

Select all of your data
Edit == Replace == in the find box type || == in the replace box, with
the Alt key depressed, type 010 == uncheck the Find entire cells only
option | Hit Replace All

Note that typing Alt-010 enters an invisible character.

If this is not a one-off requirement, or you want to do this
programmatically, try:

Sub Tester()
Dim Rng As Range

Set Rng = ActiveSheet.UsedRange ' <<=== CHANGE TO SUIT
Rng.Replace What:="||", _
Replacement:="" & Chr(10), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub


---
Regards,
Norman



"Will Coats" <Will wrote in message
...
Using vbcrlf to populate Access table cells with multiple lines. Use
transferspreadsheet and need to see multiple lines in cells in Excel
spreadsheet. Instead see || inplace of vbcrlf in Excel cells.

Hi Will,

Should add, to type Alt 010, use the numeric keypad.

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Will,

Select all of your data
Edit == Replace == in the find box type || == in the replace box, with
the Alt key depressed, type 010 == uncheck the Find entire cells only
option | Hit Replace All

Note that typing Alt-010 enters an invisible character.

If this is not a one-off requirement, or you want to do this
programmatically, try:

Sub Tester()
Dim Rng As Range

Set Rng = ActiveSheet.UsedRange ' <<=== CHANGE TO SUIT
Rng.Replace What:="||", _
Replacement:="" & Chr(10), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End Sub


---
Regards,
Norman



"Will Coats" <Will wrote in message
...
Using vbcrlf to populate Access table cells with multiple lines. Use
transferspreadsheet and need to see multiple lines in cells in Excel
spreadsheet. Instead see || inplace of vbcrlf in Excel cells.