Stike out text in a cell
Enter this macro.
Select the cells you want to clean-up.
Run the macro.
Sub no_strike()
'
' gsnuxx
'
For Each r In Selection
v = r.Value
v_out = ""
For i = 1 To Len(v)
piece = Mid(v, i, 1)
If r.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then
v_out = v_out & piece
End If
Next
r.Value = v_out
Next
End Sub
--
Gary''s Student - gsnu200739
"Frank Beltre" wrote:
I have a spreadsheet with strike out text combine with regular text in a
cell. How do I remove only the strike out text from the cells? The column
is over 7000 rows and it would be great if I can accomplish this task
automatically.
Thanks in advance for any help provided.
Frank
|