How to Count the Number of a Specific Character in a Cell with Excel VBA

Question

I have a number of items in cells that are separated by dashes. I\'m trying to normalize the database by splitting rows so that each row contains only one entry. How do you

Answer 1

This code might be of your help .. you can also use it as a UDF... :)

Function CountHypens(rng_Src As Range) As Long

'A VARIANT FOR SPLITTING CELL CONTENTS
Dim var As Variant

On Error Resume Next
var = Split(rng_Src.Value, "-", , vbTextCompare)

If Err.Number <> 0 Then
    Debug.Print "This cell does not have any hyphens."
Else
    CountHypens = UBound(var)
    End If
Err.Clear: On Error GoTo 0

End Function