Adding comma seperated values within a single cell

M

Michael Toal

I need to come up with a custom function that will add up comma seperated
numerals contained within a single cell.

For example if the the cell A1 contains:

4,5,3

I want the result of the fuction (say in a2) to display the result of 12

Any help greatly appreciated.
Regards
Mike
 
R

Ron Rosenfeld

I need to come up with a custom function that will add up comma seperated
numerals contained within a single cell.

For example if the the cell A1 contains:

4,5,3

I want the result of the fuction (say in a2) to display the result of 12

Any help greatly appreciated.
Regards
Mike
Click to expand...


Function AddCSN(str As String) As Double
AddCSN = Evaluate(Application.WorksheetFunction.Substitute( _
str, ",", "+"))
End Function

--ron
 
R

Ron Rosenfeld

I need to come up with a custom function that will add up comma seperated
numerals contained within a single cell.

For example if the the cell A1 contains:

4,5,3

I want the result of the fuction (say in a2) to display the result of 12

Any help greatly appreciated.
Regards
Mike
Click to expand...

The following is more efficient than my first (forgot the Replace VBA function)

===========================
Function AddCSN(str As String) As Double
AddCSN = Evaluate(Replace(str, ",", "+"))
End Function
===============================
--ron
 
Top