View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ron Rosenfeld Ron Rosenfeld is offline
external usenet poster
 
Posts: 5,651
Default Replace all non-operators from string

On Fri, 30 Nov 2007 15:07:00 -0800, ExcelMonkey
wrote:

Does anyone know how to replace all non-operators from a text string? That
is if my string is:

"A1+SUM(B1:B30)-365*Average(Z1:Z30)/$F$4+CostCell"

I want to replace all characters that are not +,-,*,/,^ with "".

Thanks

EM


You can use this UDF.

To enter it, <alt-F11 opens the VB Editor. Ensure your project is highlighted
in the Project Explorer window, then Insert/Module and paste the code below
into the window that opens.

To use this, enter the function =reNonOps(str) where str is either your string,
or a cell reference containing the string.

================================================== ===
Function reNonOps(str As String) As String
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Global = True
re.Pattern = "[^\-+*/^]"
reNonOps = re.Replace(str, "")
End Function
==================================
--ron