Function K_TOPLA(Alan As Range, Optional Kriter As Boolean = True) As Double
Dim Veri As Range

Application.Volatile True

With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Global = True
.Pattern = "[^\d-,]+"


For Each Veri In Alan
If IsNumeric(.Replace(Veri, "")) Then
If Kriter = True Then
K_TOPLA = K_TOPLA + .Replace(Veri, "")
Else
K_TOPLA = K_TOPLA + 1
End If
End If
Next
End With
End Function

Bu gördüğünüz kod içinde her hangi bir hücre içerisine yazılacak olan PÇ2 veya PÇ1 gibi sayı fark etmeksizin ama sadece PÇ nin yanında olacak rakamları saymayacak şekilde nasıl düzenlerim.