Clear extra characters from a provided range of cells

[imran1059]

Dear All,

I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when lines are in thousands, Can somebody provide a more efficient code?

Sub ClearExtraCharacters()
Dim rng As Range, cell As Range

On Error Resume Next
Set rng = Application.InputBox("Select Range", "Range Selection", , , , , , 8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub


For Each cell In rng.Cells
cell.Value = AlphaNumericOnly(cell.Value)
Next cell

MsgBox "Fixed", 48, "Fixed"
End Sub

 

[Yongle]

Code that was provided by Yongle ...but there the beginning spaces are not removed.

If only spaces at BEGINNING of string are to be removed, try wrapping LTRim( ) around AlphaNumericOnly(x)

x = LTrim(AlphaNumericOnly(x))

 

[footoo]

I suggest you use Yongle's code.

 

[imran1059]

If only spaces at BEGINNING of string are to be removed, try wrapping LTRim( ) around AlphaNumericOnly(x)

x = LTrim(AlphaNumericOnly(x))

Thanks Yongle. Its perfect now.

 

[imran1059]

I suggest you use Yongle's code.

Thanks footoo. I really appreciate your time and effort. Members like you are the real motivational factors for us (learners) to come on these sites as you were regularly coordinating with me through this website yesterday and its because of your "spaces" point that I got this perfection from Yongle despite the fact that It was not my desired output to get the beginning spaces removed which now I think is a great idea.