Need Macro for splitting sentence

[mavericky99]

Hi,

I have a requirement to prepare a macro to split a characters in a cell after 256 characters and transfer it to the next cell.

example : (considering that I split for every 1 character)

Input

cell 1 cell 2 cell 3

ABC

Output :

cell 1 cell 2 cell 3

A B C


Similar to the above method the data must be split only into 3 cells i.e.., that if there are more than 256*3 characters.
First cell must have 256 characters, second cell must have 256 characters and 3rd cell must have rest of the characters. (If less than 256*3 it must leave the rest of the cells empty).

Please help!

Thanks,
Anand.

 

[JLGWhiz]

Even though I suspect this might be homework.
Assuming the string is in cell A1 and the three destination cells are A2:A4

Sub t()
Dim rng As Range
Set rng = Range("A1")
Range("A2") = Left(rng, 256)
Range("A3") = Mid(rng, 257, 256)
Range("A4") = Mid(rng, 513, Len(rng.Value) - 512)
End Sub

 

[mavericky99]

Even though I suspect this might be homework.
Assuming the string is in cell A1 and the three destination cells are A2:A4

Sub t()
Dim rng As Range
Set rng = Range("A1")
Range("A2") = Left(rng, 256)
Range("A3") = Mid(rng, 257, 256)
Range("A4") = Mid(rng, 513, Len(rng.Value) - 512)
End Sub

Hi JLGWiz,

Unfortunately, I have to say your guess is wrong. This belongs to my office work. . I am very bad at writing macros.

I have tried running the code and it says Run time Error '5'.

Also, I want to replace the first cell data as well and not keep it after running the macro.

Example :

Cell1 Cell2 Cell3

ABC

After running macro it must be

Cell1 Cell2 Cell3

A B C

Can you please help?

Thanks,
Anand.