ok!
Select the cells you want to remove the ending slash, then run this code!
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> DelLastSlash()
<SPAN style="color:#00007F">Dim</SPAN> C <SPAN style="color:#00007F">As</SPAN> Range
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> C <SPAN style="color:#00007F">In</SPAN> Selection
<SPAN style="color:#00007F">If</SPAN> Right(C.Value, 1) = "/" <SPAN style="color:#00007F">Then</SPAN>
C.Value = Left(C.Value, Len(C.Value) - 1)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> C
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>
instalation:
1.right click on the sheet name.
2. in the right pane of the VBE paste the code.
3.Press Alt+F11
4. Highlight the cell in concern.
5.press alt+f8.
6. choose "DelLastSlash"
7. Click run!
8.done