Comments on: Remove all the Numbers From a Row or Column.

By: Will Simpson

Will Simpson — Tue, 01 Jun 2010 14:37:18 +0000

Try the below, this removes numbers and also commas, but you should be able to edit to remove / retain what you want Public Function RemNum(wsText As String) As String wsOutput = "" For i = 1 To Len(wsText) If Not Mid(wsText, i, 1) Like "[0-9]" And Not Mid(wsText, i, 1) = "," Then wsOutput = wsOutput & Mid(wsText, i, 1) Next i RemNum = wsOutput End Function

By: Ryan Kennedy

Ryan Kennedy — Tue, 30 Mar 2010 03:46:06 +0000

That removed the spaces as well, which is a problem.

By: Dan

Dan — Wed, 19 Aug 2009 15:55:32 +0000

The tip is exactly what I want to do, but my problem is, how do I save the macro? Obviously I’m missing a step, because when I attempt to use the NumberOut formula, I’m told it is an “ambiguous name.” What am I missing?

By: sdg

sdg — Mon, 27 Apr 2009 16:46:11 +0000

Great function. Very helpful.

Similar to Kris, I would like to keep the spaces – I tried to change the code from “Case 0 To 64, 123 To 197″ to “Case 0 To 31, 33 To 64, 123 To 197″ (I looked up the ascii for space and found out it was 33), but this returned an error.

Any help you can offer would be greatly appreciated.

By: Kris

Kris — Mon, 16 Feb 2009 17:45:57 +0000

Suppose i have “Joseph John 237″ in the cell and with the above formula it is reduced to “JosephJohn”. I wish for it to be “Joseph John” instead. Many thanks for the above trick. Saved me a lot of time.