Есть выгрузка по чеку клиента в рамках одного визита, проблема в том что если клиент воспользовался несколькими услугами, то в одной ячейке будет прописана стоимость 3-ех услуг, как посчитать сумму этой ячейки, чтобы не потерять фио клиента? Пример во вложении.
Sub GetSumma()
Dim mo As Object
Dim n As Integer
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With CreateObject("VBScript.RegExp")
.Global = True
.MultiLine = True
.Pattern = "^\d+$"
For i = 3 To iLastRow
If .Test(Cells(i, 2)) Then
Set mo = .Execute(Cells(i, 2))
For n = 0 To mo.Count - 1
Cells(i, 3) = Cells(i, 3) + CDbl(mo(n))
Next
End If
Next
End With
End Sub