وعليكم السلام يا دكتور
كل عام وأنت بخير
جرب الدالة المعرفة التالية علها تفي بالغرض إن شاء الله

Function SumNumbers(txt As String) As Double
    Dim e, v As Double

    For Each e In Split(txt, "-")
        With CreateObject("VBScript.RegExp")
            .Pattern = "\D+"
            .Global = True
            v = v + Val(.Replace(e, ""))
        End With
    Next e

    SumNumbers = v
End Function

في الخلية B2 اكتب المعادلة التالية

=SumNumbers(A2)<br />

ثم قم بسحبها لأسفل

ما شاء الله عليك استاذ ياسر
ابداع جعله الله فى ميزان حسناتك وبارك الله فيك

تسلم أخي العزيز علي ومشكور على مرورك العطر ومتابعتك المميزة للمنتدى

جزاك الله خيرا استاذ ياسر.كل عام وانتم بخير...سلمت يداك
هذا هو المطلوب

وجزيت خيراً يا دكتور
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات