String of data needs to be set in columns

[deepak.kec]

Hi,

I have a stream of data say "02CN=FOR-NAVN,04COS=60,06PREPAID=no,05PWD=9869,05SN=LYSE ENERGI AS,09MSI1=089242010,05MSISDN=4747508762,01IMSI1=0892,01PROFILE=1,03IMSI1=089242010800061124"

and i want the data in the excel in the form as:
column 1 column 2 column 3
02 CN FOR-NAVN
04 COS 60
06 PREPAID no
05 PWD 9869
MSISDN 4747508762

similarly for others 09,01

[shasur]

Hi Deepak

Check if the following helps you

Sub Split_String()

Dim arTemp
Dim s1
Dim s2
Dim s3
Dim i1

arTemp = Split("02CN=FOR-NAVN,04COS=60,06PREPAID=no,05PWD=9869,05SN=LYSE ENERGI AS,09MSI1=089242010,05MSISDN=4747508762,01IMSI1=0892,01PROFILE=1,03IMSI1=089242010800061124", ",")
For i1 = 0 To UBound(arTemp)
s1 = Left(arTemp(i1), 2)
s2 = Mid(arTemp(i1), 3, InStr(1, arTemp(i1), "=") - 3)
s2 = Mid(arTemp(i1), InStr(1, arTemp(i1), "=") + 1, Len(arTemp(i1)))
Next i1
End Sub

Cheers
Shasur

[deepak.kec]

The above suggested answer is not working i am getting absurd result.
The data is splitting into only 2 rows and the last row is having all the records

[royUK]

There's no way to determine when to split the data. It might be clearer with an example workbook

[shasur]

The above suggested answer is not working i am getting absurd result.
The data is splitting into only 2 rows and the last row is having all the records

Deepak

The code is NOT the solution.

That is one of the way to address the problem

Cheers
Shasur

[shasur]

The above suggested answer is not working i am getting absurd result.
The data is splitting into only 2 rows and the last row is having all the records

Deepak

The code is NOT the solution. It works fine for the snippet

That is one of the way to address the problem. Modify the code accordingly for your file

Cheers
Shasur