Split Data in 4 cells

I have been give an excel sheet with a few hundred rows it is company data.

The contacts within the company though have been put in 4 different cells

S T U V

What I need is to split these into different rows and duplicate the data in the cells before and after these.

I have attached a few rows of sample data to show what I mean.

Thanks in advance

Dave

i have small doubt here except STUV Columns reaming cells contain only one data or multiple date like STVU. if only STUV Contailns Multiple data we can do ....Please replay with me.. i am working on this

Hi, Try your returned File
Regards Mick

MickG,

That is exactly it. How do I replicate that to the working file I have with all the records?

Thanks
Dave

Hi, Personally I would first copy Your Actual Data to "Sample.xls" File, Paste the Data in the sheet with the "Button", Run the code and see if you results on sheet(3) are OK.
If you then want to use it in your actual Data File, and don't Know how to place the code in a Button on the sheet , then you should perhaps run it as a "Macro".:-
Right Click Sheet Tab , Select "View Code" , (VB Window appears.)
On VB Window ToolBar Click "Insert", "Module", (New Window appears.)
Paste Code In New Window..
Close VB Window.
In WorkSheet Click "Alt+F8" Macro Dialog Box Appears.
Select Code (Sub) Name From List, Click "Run"
Code should now be Executed.NB:- The Code Results will be Placed in sheet (3), so either make sure you have a sheet(3) or alter the code to a sheet name to suit.
Regards Mick

Hey it is working Nice, Thanks for ur Replay.
I learn Good Stuff yar..... Thanks aloot.

Sir if u dont mind can u explain about "SPLIT,Ubound,Application.Transpose" Concepts.
i dont know these concepts.

Hi, Have a look at the VB Help ( Top Right VB Window), for "Split" Function and "Ubound" property.
Look at Worksheet "Help" for "Transpose" Function.
Regards Mick