VBA Code- SPLIT WBS numbering into columns based on levels

[heyya232323234]

Hi,

can someone please help with the VBA code for splitting a WBS column into the individual columns.
Just need it for 4 levels and usually in excel i can just have a if statement that bases it on the number on ".".

is there a cleaner way to do it. my WBS child numbers can be multiple digits.

the result i want:


thanks.

A	B	C	D	E
1	1
1.1		1.1
1.2		1.2
2	2
2.1		2.1
2.1.1			2.1.1
2.1.1.1				2.1.1.1

 

[JamesCanale]

Does it have to be VBA?

MrExcelPlayground2.xlsx
	A	B	C	D	E	F	G
1	WBS Code	WBS Level	0	1	2	3	4
2	1	0	1
3	1.1	1		1.1
4	1.2	1		1.2
5	2	0	2
6	2.1	1		2.1
7	2.1.1	2			2.1.1
8	2.1.1.1	3				2.1.1.1
Sheet24

Cell Formulas
Range	Formula
B2:B8	B2	=LEN(LEFT(TEXT(A2,"#.#"),LEN(TEXT(A2,"#.#"))-1))-LEN(SUBSTITUTE(LEFT(TEXT(A2,"#.#"),LEN(TEXT(A2,"#.#"))-1),".",""))
C2:G8	C2	=IF($B2=C$1,$A2,"")