I need your help. I want to add additional text within cells

[Shani]

I want to go through all cells in Column A and add "/", without the
quotes, at the end of the text. However if there is already a slash.
"/", at the end then i do not want to add anything.

so i would like my cells to look like:

google.com/
yahoo.com/
aol.com/

 

[DS]

Hi Shani,

try:

Sub AddSlash()

For Each cell In Range("A:A")
If Right$(cell, 1) <> "/" Then
cell.Value = cell.Value & "/"
End If
Next

End Sub

Note that this will go through ALL cells in col A, including blank entries
(which will become "/"). If you've got limited entries following by thousands
of blank cells, then either reduce the range to a specific (e.g. A:A change
to A2:A100) or use a Do Until cell = "" loop rather than a For...Next. If
you expect blanks with your range and want to leave them blank, add an extra
condition around the code to only run if cell <> ""

HTH
DS