Yada alttaki gibi olabilir ama çok fazla satır olacaksa mesela 1 den 5bine kadar satır.O zaman yavaş çalışıyor.Kullanımıda yukardaki gibi.
PHP Kod:
Function ToplaKTF(hucre As Range) As Double
Dim topla As Double, arr, i As Long
Application.Volatile
ToplaKTF = 0
With CreateObject("vbscript.regexp")
.Pattern = "[^0-9]"
.Global = True
.IgnoreCase = True
arr = Split(Trim(.Replace(hucre.Value, " ")), " ")
End With
For i = 0 To UBound(arr)
If IsNumeric(arr(i)) = True Then topla = topla + CDbl(arr(i))
Next
ToplaKTF = topla
End Function