how do i extract multiple data from a cell(string) whose length v.

's Computer Specifications

I need to extract all numbers into different columns (delimiter is ,). e.g.
1,325,16420,5,6,120,4643,2,8,-71,-68,-6 the length of numbers within
could vary.

's Computer Specifications

Put you comma delimited string in cell A1. code will put numbers starting in
row 2 cell A2.

Sub splitstring()

MyString = Range("A1").Value
MyOff = 0
Do While InStr(MyString, ",") > 0
MyNum = Val(Left(MyString, InStr(MyString, ",") - 1))
MyString = Mid(MyString, InStr(MyString, ",") + 1)
Range("A2").Offset(0, MyOff).Value = MyNum
MyOff = MyOff + 1
Loop
MyNum = Val(MyString)
Range("A2").Offset(0, MyOff).Value = MyNum

End Sub

"Gits" wrote:

> I need to extract all numbers into different columns (delimiter is ,). e.g.
> 1,325,16420,5,6,120,4643,2,8,-71,-68,-6 the length of numbers within
> could vary.

's Computer Specifications

Data/Text to Columns/separated by comma

Regards,
Stefi

â€žGitsâ€ ezt Ã*rta:

> I need to extract all numbers into different columns (delimiter is ,). e.g.
> 1,325,16420,5,6,120,4643,2,8,-71,-68,-6 the length of numbers within
> could vary.

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Extract a string from a cell	MrLarrier	Microsoft Excel Worksheet Functions	3	13th Jan 2009 04:58 PM
Extract Cell Contents to String	arm9047	Microsoft Excel Programming	3	29th Dec 2007 06:40 AM
Extract cell data from multiple files in one folder	=?Utf-8?B?c21vbnNtbw==?=	Microsoft Excel Misc	3	17th Aug 2007 11:16 PM
how to extract data in .txt format from the excel sheet in a fixed length ascii forma	pramod_kmr	Microsoft Excel Programming	1	3rd Mar 2004 11:54 AM
Extract string from cell	G. I.	Microsoft Excel Misc	6	31st Dec 2003 12:13 AM