=ДЛСТР(ExpandListA(A1;",";"-"))-ДЛСТР(ПОДСТАВИТЬ(ExpandListA(A1;",";"-");";";""))+1

Sub GetKol_vo()
Dim mo As Object
Dim n As Integer
Dim i As Long
Dim iLastRow As Long
Dim iVol_1 As Long
Dim iVol_2 As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B1:B" & iLastRow).ClearContents
With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = "[^,]+"
  For i = 1 To iLastRow
    If .Test(Cells(i, 1)) Then
      Set mo = .Execute(Cells(i, 1))
      For n = 0 To mo.Count - 1
        If InStr(1, mo(n), "-") > 0 Then
           iVol_1 = Split(mo(n), "-")(0)
           iVol_2 = Split(mo(n), "-")(1)
           Cells(i, 2) = Cells(i, 2) + iVol_2 - iVol_1 + 1
        Else
          Cells(i, 2) = Cells(i, 2) + 1
        End If
      Next
    End If
  Next
End With
End Sub

            For j = 0 To UBound(Tp1)
                    Tp2 = VBA.Split(Tp1(j), "-")
                    nK = nK + Tp2(UBound(Tp2)) - Tp2(0) + 1
            Next j

=ЕСЛИОШИБКА(СУММ(-(ФИЛЬТР.XML("<h><b>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"-";",-");",";"</b><b>")&"</b></h>";"//b[.<0]")+ФИЛЬТР.XML("<h><b>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"-";",-");",";"</b><b>")&"</b></h>";"//b[.<0]/preceding::b[1]")-1));0)+ЕСЛИОШИБКА(ЧСТРОК(ФИЛЬТР.XML("<h><b>"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"-";"---");",";"</b><b>")&"</b></h>";"//b[.>0]"));0)

Function ExpandListA(ByVal Src$, Optional GrSep$ = ",", _
                    Optional etc$ = "-", Optional outSep$ = "; ") As String
  Dim elem, aNums, j As Long
  Src = Application.Trim(Src)
  If Src = "" Then Exit Function
  For Each elem In Split(Src, GrSep)
     aNums = Split(Trim(elem), etc)
     For j = aNums(0) To aNums(UBound(aNums))
        ExpandListA = ExpandListA & outSep & Trim(j)
     Next
  Next
  ExpandListA = Mid(ExpandListA, Len(outSep) + 1)
End Function

Function ExpandListB(rText As String, Optional sInSep As String = "-", Optional sOutSep As String = ",") As String
    If Len(Trim(rText)) = 0 Then ExpandListB = "Íå óêàçàíà ñòðîêà ÷èñåë!": Exit Function
    Dim oRegExp As Object, sStr As String, sElem As String, vOutStr, sAllText
    Dim lCountAll As Long, lCount As Long
    Set oRegExp = CreateObject("VBScript.RegExp")
    oRegExp.Global = True: oRegExp.MultiLine = True
    oRegExp.Pattern = "[" & sInSep & "]"
    sStr = oRegExp.Replace(rText, "-")
    sAllText = Split(sStr, "-")
    If UBound(sAllText) > 0 Then
        For lCountAll = LBound(sAllText) To UBound(sAllText) - 1
            For lCount = sAllText(lCountAll) To sAllText(lCountAll + 1)
                vOutStr = vOutStr & sOutSep & lCount
            Next lCount
        Next lCountAll
        vOutStr = Mid$(vOutStr, 2)
    Else
        vOutStr = sAllText(0)
    End If
    ExpandListB = vOutStr
End Function

Function PodKol(Txt$, Optional OsnRaz$ = ",", Optional DopRaz$ = "-") As Long
Dim Tp1, Tp2, j&
    Tp1 = VBA.Split(Txt, OsnRaz)
        For j = 0 To UBound(Tp1)
            Tp2 = VBA.Split(Tp1(j), DopRaz)
            PodKol = PodKol + Tp2(UBound(Tp2)) - Tp2(0) + 1
         Next j
End Function