VBA for text string replacement

[Berek]

I'd like to run VBA that will perform these steps

1) Remove the Letter at the beginning of each line

2) Remove any comma that comes after a bracket

3) Replace the brackets with a forward slash

The strings would vary in length.

Thanks
Berek

Mr Excel string formula.xlsx
	D	E	F	G	H	I
5	Original Text String			What it needs to look like
6	T(1),(3,4),(3,4,6,7,10)			1/3,4/3,4,6,7,10/
7	T(1),(3,4,5,8),(3,4,5,8)			1/3,4,5,8/3,4,5,8/
8	T(6),(3,4,7,11,15),(3,4,7,11,15)			6/3,4,7,11,15/3,4,7,11,15/
Sheet1

 

[lrobbo314]

Does it need to be VBA?

Book1
	A	B	C	D	E	F	G
1	Original Text String			What it needs to look like
2	T(1),(3,4),(3,4,6,7,10)			1/3,4/3,4,6,7,10/		1/3,4/3,4,6,7,10/	TRUE
3	T(1),(3,4,5,8),(3,4,5,8)			1/3,4,5,8/3,4,5,8/		1/3,4,5,8/3,4,5,8/	TRUE
4	T(6),(3,4,7,11,15),(3,4,7,11,15)			6/3,4,7,11,15/3,4,7,11,15/		6/3,4,7,11,15/3,4,7,11,15/	TRUE
Sheet7

Cell Formulas
Range	Formula
F2:F4	F2	=LET(r,RIGHT(A2,LEN(A2)-1),p,SUBSTITUTE(r,")","/"),l,SUBSTITUTE(p,"(",""),SUBSTITUTE(l,"/,","/"))
G2:G4	G2	=D2=F2

 

[Eric W]

Here's a macro:

Sub Test1()

    Set r = Range(Range("D6"), Range("D6").End(xlDown))
    r.Value = Evaluate("=IF(1,SUBSTITUTE(SUBSTITUTE(MID(" & r.Address & ",3,999),""),("",""/""),"")"",""/""),"""")")
    
End Sub

It's based on a formula too:

=SUBSTITUTE(SUBSTITUTE(MID(D6,3,999),"),(","/"),")","/")

 

[Berek]

Thanks Fellas,
Both work

Berek

 

[Eric W]

Glad we could help! Thanks for the feedback.