Comments on: How to Clean Selected Cells in an Excel workbook Using Macro Button and Trim(), Clean() and Replace()

By: Luciano

Luciano — Fri, 23 Apr 2010 03:32:13 +0000

this code do not work for me!

By: shg

shg — Fri, 23 Oct 2009 14:35:51 +0000

Public Sub CleanSelection()
Dim cell As Range
Dim s As String

For Each cell In Intersect(Selection.Cells, ActiveSheet.UsedRange)
If Not cell.HasFormula Then
s = Replace(cell.Value, Chr(160), ” “)
s = Replace(s, Chr(127), “”)
s = Replace(s, Chr(129), “”)
s = Replace(s, Chr(141), “”)
s = Replace(s, Chr(143), “”)
s = Replace(s, Chr(144), “”)
s = Replace(s, Chr(157), “”)
s = Application.WorksheetFunction.Trim(s)
cell.Value = Application.WorksheetFunction.Clean(s)
End If
Next cell
End Sub

By: Code-Journey

Code-Journey — Fri, 04 Sep 2009 06:47:23 +0000

Hi Orvar

Yeah I don’t quite see why on earth it should be so troublesome to clean some cells.
It can take some time too, if you mess up. I used CTRL + A and started my macro yesterday. My oh my. I am sure I heard naughty words come out of our Citrix server.
Lesson for me was: Always select the range by hand. Cleaning all cells, dirty or not, takes a looong time. It was shut down after several hours.

By: Orvar Ehn

Orvar Ehn — Thu, 03 Sep 2009 20:36:22 +0000

NICE!! We have suffered from clean()'s inability to clean for a long time.... having to do a lot of hands on editing. Thanks!! Also since i find (to my dissapointment) that there is no matching inserting functions in the worksheet in terms of speed I adapted your metod using functions.. enjoy.. =CLEAN(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(R[X]C[X],CHAR(160),"" ""),CHAR(127),""""),CHAR(129),""""),CHAR(141),""""),CHAR(143),""""),CHAR(144),""""),CHAR(157),"""")))" (replace the X'es with the reference to the cell to be CLEANED!!) Cheers!!