Imported data to excel - need to remove the boxes 1

[Lem9999]

I have .xls and .wks worksheets that have small boxes at the end of the TEXT data. How can I remove the small boxes? I have never written a macro and would like HELP...

 

[palusa]

Hi,

I presume that the "boxes" are non printable ascii characters, such as CHR$(10), suffixed to your text data.

If they are in your sheet cells, e.g. C1, you can remove inserting in a cell, e.g. A1, the formula =left(A1, len(A1)-1)

HTH.

_LF

 

[ETID]

'Here's a sub / macro that will do what you want...
'..USAGE: paste the code into a module
'highlite / select the cells, columns or rows that contain cluttered text.
'run the strip_char macro


Sub strip_char()
Dim inrange As Range
Set inrange = Selection
For Each c In inrange
If c.Formula = "" Then
Else
c.Formula = Application.WorksheetFunction.Clean(c.Value)
End If
Next
End Sub