Stike out text in a cell

  • Thread starter Thread starter Frank Beltre
  • Start date Start date
F

Frank Beltre

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
 
Frank

CTRL + a(twice in 2003) to select all cells.

Format>Cells>Font. Uncheck "strikethrough"


Gord Dibben MS Excel MVP
 
Gord,

Thank you for replying. I tried it, but it just removes the strikethrough
line from the text. I need all the strikethrough text to be deleted. I am
using 2007.
Thanks,

Frank
 
Sorry about that.........misread.

Got to go now but will get back later and see what can be done.

Hope you get an answer sooner.


Gord
 
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
 
Thanks for chipping in.

Does the job. I like the way you eliminated the spaces.

My attempts.....not yet posted but why bother now........got rid of the
strikethrough text but left spaces.


Gord
 
Freaking awesome! It works really good! I got it to work on Excel 2007,
having a compile error in 2003, but nothing I can't figure out.
Thank you guys for the support.

Frank
 
Spoke too soon! Do I need to modify the code for it to work in Excel 2003,
Visual Basic 6.3? I am getting a "compile error: Syntax error". It is
working fine in Excel 2007 though. I need to do this in my work computer,
which is the one with Excel 2003.

Thanks,

Frank
 
Never mind that. I got it to work. I was inadvertently copying the code in
the wrong place.
Thank you again,

Frank
 
You are very welcome.

This kind of application is MUCH easier in Word than Excel, but still
"do-able"
 
Back
Top