DELETE ALL EXCEPT LETTER OF A WORD

  • Thread starter Thread starter jerrybee57
  • Start date Start date
a macro something like

sub firstletteronly()
for each c in range("a2:a22")
c.value=left(c,1)
next c
end sub
 
In a helper column enter =LEFT(A1) and copy down.

Select the helper column and copy it.

Select the original column and Edit>Paste Special>Values>OK>Esc

Delete helper column.


Gord Dibben MS Excel MVP
 
Back
Top