split problem

[×לי]

Hi all,

I am interesting to break a string with spaces into an array with substrings
and to have it in the same cell.
for example:
dim MyString as string
MyString = range("A1").value ' range("A1").value = "Good morning"
range("A1").value = split(MyString, " ").

The problem is that instead of:
Good
morning

as range("A1").value I get only: morning.

Please help me to fix it!

Thanks

Eli

 

[Jacob Skaria]

'Once you split it returns an array; so that you could try

Dim MyString As String
MyString = Range("A1").Value
Range("A1:B1") = Split(MyString, " ")

'Instead ..if you mean to replace a splace with carriage return then try
Range("A1") = Replace(Range("A1"), " ", vbLf)

 

[×לי]

Many thanks!

'Once you split it returns an array; so that you could try

Dim MyString As String
MyString = Range("A1").Value
Range("A1:B1") = Split(MyString, " ")

'Instead ..if you mean to replace a splace with carriage return then try
Range("A1") = Replace(Range("A1"), " ", vbLf)