أريد جمع مجموعة أرقام في خليه

[shoaip]

أريد جمع مجموعة أرقام في خلية والناتج في خليه اخرى مثال :خليه فيها10+100+30+50 وتظهر كما هي بالتفنيط هذا والناتج في خلية أخرى

[Ali Mohamed Ali]

بما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك - تفضل

معادلة جمع مبالغ (10+20+30)=60

[سليم حاصبيا]

جرب هذا الملف

Option Explicit

Sub test()
Dim ar
Dim i%, Formul$, K
ar = Array("+", "-", "'", "?", """""", ",", "/", "@")
For K = 1 To Range("a1").CurrentRegion.Rows.Count
   Formul = Trim(Replace(Range("A" & K), ar(0), ","))
    For i = 1 To UBound(ar)
      Formul = Replace(Formul, ar(i), ",")
    Next
   Cells(K, 3) = Evaluate("sum(" & Formul & ")")
  Formul = ""
Next
End Sub

shoaip.xlsm