Data Text to Column

[decent_boy]

Hi
I copy below data from a text file and issue is that when I convert/copy multiple rows to Result Sheet, it takes too much time. Please provide any VBA solution to save time

Date Copied from Text File
Sheet1

	A
1	Order No = A25/CP/0123/00333
2	Order Amount = 12351
3	SH_ID = TA5
4
5	-------------------------------------------------------------------------------------------------------------------------------------------------------------
6	| SP |Type |Denomination |From |To | Quantity| |
7	-------------------------------------------------------------------------------------------------------------------------------------------------------------
8	|DS1|EU |ITEM-232 |0101250300225100 |0101250300225199 | 100|SMITH |
9	|DS1|EU |ITEM-324 |0600528600210000 |0600528600210199 | 200|SMITH |
10	|DS1|EU |ITEM-524 |0005084901091890 |0005084901091919 | 30|SMITH |
11
12	Order No = A32/CP/0152/00352
13	Order Amount = 726
14	SH_ID = TA9
15
16	-------------------------------------------------------------------------------------------------------------------------------------------------------------
17	| SP |Type |Denomination |From |To | Quantity| |
18	-------------------------------------------------------------------------------------------------------------------------------------------------------------
19	|DS2|EU |ITEM-232 |0101250300225200 |0101250300225299 | 100|JHON |
20
21	Order No = A33/CP/0192/00395
22	Order Amount = 8252
23	SH_ID = TA2
24
25	-------------------------------------------------------------------------------------------------------------------------------------------------------------
26	| SP |Type |Denomination |From |To | Quantity| |
27	-------------------------------------------------------------------------------------------------------------------------------------------------------------
28	|DS3|EU |ITEM-232 |0101250300225300 |0101250300225399 | 100|Phenny |
29	|DS3|EU |ITEM-324 |0600528600210200 |0600528600210399 | 200|Phenny |

Required result after removing unnecessary space

Result

	A	B	C	D	E	F	G
1	Date	SH_ID	Order No	Quantity	Denomination	From	To
2	20-May-20	TA5	A25/CP/0123/00333	100	ITEM-232	0101250300225100	0101250300225199
3	20-May-20	TA5	A25/CP/0123/00333	200	ITEM-324	0600528600210000	0600528600210199
4	20-May-20	TA5	A25/CP/0123/00333	30	ITEM-524	0005084901091890	0005084901091919
5	20-May-20	TA9	A32/CP/0152/00352	100	ITEM-232	0101250300225200	0101250300225299
6	20-May-20	TA2	A33/CP/0192/00395	100	ITEM-232	0101250300225300	0101250300225399
7	20-May-20	TA2	A33/CP/0192/00395	200	ITEM-324	0600528600210200	0600528600210399

Excel tables to the web >> Excel Jeanie HTML 4

 

[Joe4]

Duplicate: Data Text to Column

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.