Counting Odd and Even numbers in a comma-separated list

[BrSuthe]

Is there a formula(s) to count Odd and Even numbers in a comma-separated list? please. (The list may have numbers up to 20. Single or double digit positive numbers only).
Thank you.

 

[Rick Rothstein]

Caveats: No spaces after the numbers and less than 100 characters in the cell (this can be raised by changing the 100 and 99 so long as they remain 1 different from each other).

These are array-entered** formulas...

Even: =SUM(IF(MID(A1&",",ROW(2:100),1)=",",1-MOD(MID(A1&",",ROW(1:99),1),2),0))

Odd: =SUM(IF(MID(A1&",",ROW(2:100),1)=",",MOD(MID(A1&",",ROW(1:99),1),2),0))

**Commit these formulas using CTRL+SHIFT+ENTER and not Enter by itself

 

[Rick Rothstein]

And yet another possibility, creating your own function in VBA:

Function CountNums(rng As Range, typ As String) As Long

    Dim arr() As String
    Dim i As Long
    Dim ct As Long
    
    arr = Split(rng, ",")
    
    For i = LBound(arr) To UBound(arr)
        Select Case UCase(typ)
            Case "ODD"
                If Application.WorksheetFunction.IsOdd(arr(i)) Then ct = ct + 1
            Case "EVEN"
                If Application.WorksheetFunction.IsEven(arr(i)) Then ct = ct + 1
        End Select
    Next i
    
    CountNums = ct
    
End Function

So, then you would just use it like:
=CountNums(A1,"EVEN")
=CountNums(A1,"ODD")

While I would recommend using a formula for this (I kind of favor the one I posted in Message #11), your UDF approach caught my eye, so I thought I would try my hand at it. Here is what I came up with...

Function CountNums(S As String, Typ As String) As Long
  Dim Pattern As String, V As Variant
  If Typ = "" Then Exit Function
  Pattern = Choose(1 + (4 + InStr("/EVEN/ODD/", UCase("/" & Typ & "/"))) \ 5, "|", "*[02468]", "*[13579]")
  For Each V In Split(Replace(S, " ", ""), ",")
    CountNums = CountNums - (V Like Pattern)
  Next
End Function