Remove any number of spaces before and after slash

[YasserKhalil]

Hello everybody
I have data in Column A ..
Inside most of the cells not all I have slash
May be one slash or two or three or four

I need to remove any space before and after the slash ..
Note that the number of spaces are variable ..
Example :

Hello   /  Everybody            This  is /Just example/  to illustrate /         my task  .

The result should be like the following

Hello/Everybody            This  is/Just example/to illustrate/my task  .

Note again the spaces before and after the slash only to be removed but other spaces remain as they are

Thanks advanced

[Rabbit]

Do you know VBA? You will need to create a custom function to do this. Off the top of my head, Use the Split() function to split it on the slash, Trim() each of the indexes in the resulting array, and then recombine the array into a string.

[YasserKhalil]

Thanks Mr. Rabbit for reply
Can you provide me the code or the UDF function that enables me do that task?

[Rabbit]

Sorry, we don't usually write code for people. But if you attempt it yourself and post the code here, we can help troubleshoot it for you.

[YasserKhalil]

Ok Mr. Rabbit
Sorry I'm newbie here
Here's a code I tried to modify but I failed

Sub RemoveSpacesBeforeAfterSlash()
    Dim A, I As Long, M As Object
    With Cells(1).CurrentRegion.Resize(, 1)
        A = .Value
        With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "*( / *)?"
            For I = 1 To UBound(A, 1)
                If .test(A(I, 1)) Then A(I, 1) = _
                .Replace(A(I, 1), "/")
            Next
        End With
        .Value = A
    End With
End Sub
 

Regards

[Rabbit]

This doesn't look anything like what I suggested. I don't see the Split function nor the Trim function I mentioned.

And I didn't say anything about using regular expressions. While regular expressions are powerful and can do what you want, they are more complicated to use than my original suggestion.

[Luuk]

Indeed, regular expressions are complicated to use.

Use use: .Pattern = "*( / *)?" (Line#7)

It start with a "*", and according to some docs the "*" means:
"Matches the preceding element zero or more times"

So, without looking any further, your regular expression is wrong! ;)

[svh00987]

Well... try starting with text to columns and then joining them again...as the no of slashes can vary, you will need to create some logic to loop through.