Необходимо извлечь числа из следующего текста с пробелами между числами, используя VBA, возможно.
Единицы: 1,00, код: «99213», M1: «25», комментарии: «Записи не включают в себя документацию службы оценки и управления, которую можно отдельно идентифицировать из службы, также выполненной 12.01.2008. Поэтому модификатор 25 для 99213 не поддерживается.'
Текущий VBA извлекает числа, но помещает в этот формат:
10099213125011220182599213
который включает даты - не нужно.
Хотел бы видеть:
100 99213 25
.
Вот мой текущий код:
Function OnlyNums(strWord As String) As String
Dim strChar As String
Dim x As Integer
Dim strTemp As String
strTemp = ""
Application.ScreenUpdating = False
For x = 1 To Len(strWord)
strChar = Mid(strWord, x, 1)
If Asc(strChar) >= 48 And _
Asc(strChar) <= 57 Then
strTemp = strTemp & strChar
End If
Next
Application.ScreenUpdating = True
OnlyNums = "'" & strTemp & "'"
End Function