Can I move cells to the right for each "/" ?

[Arana]

I am making an index of a large number of files with a very long path, and I need that for each "/" each cell moves to the right. That is, if there are 3 "/" in a cell, that same cell must be moved 3 times to the right.
is there a way to apply this to all my excel sheet?
All help is welcome.

 

[Georgiboy]

Maybe something like:

Sub test()
    Dim rCell As Range, fsNum As Integer
    
    For Each rCell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Cells
        fsNum = Len(rCell) - Len(Replace(rCell, "/", ""))
        rCell.Offset(, fsNum) = rCell
        rCell = vbNullString
    Next rCell
End Sub

 

[Arana]

Maybe something like:

Sub test()
    Dim rCell As Range, fsNum As Integer
   
    For Each rCell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Cells
        fsNum = Len(rCell) - Len(Replace(rCell, "/", ""))
        rCell.Offset(, fsNum) = rCell
        rCell = vbNullString
    Next rCell
End Sub

It worked! thank you very much.

 

[Peter_SSs]

The marked solution has been changed accordingly.
In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.