Поиск и замена символа (заменить в числах разделитель целой и дробной части запятую на точку)

[Maxim_37]

Доброго времени суток.
Помогите решить.
В столбце есть такие значения
0123B, 2,5*3,5, STAN, BORDO/BORDO
0123B, 2,5*3,5, STAN, KREM/KREM
0123B, 2*3, STAN, BORDO/BORDO
0123B, 3*4, STAN, BORDO / BORDO
1002A, 2,5*3,5, STAN, BORDO / BORDO
1002A, 2,5*3,5, STAN, KREM/KREM
1002A, 2*3, STAN, BORDO/BORDO
1002A, 2*3, STAN, KREM/KREM
1002A, 3*4, STAN, BORDO / BORDO
1002A, 3*4, STAN, KREM / KREM
1005A, 2,5*3,5, STAN, BORDO/BORDO
1005A, 2,5*3,5, STAN, KREM/KREM
1005A, 3*4, STAN, BORDO / BORDO
1005A, 3*4, STAN, KREM / KREM
1080A, 2,5*3,5, STAN, BORDO / BORDO
1080B, 2,5*3,5, STAN, KREM / KREM
1080B, 2*3, STAN, BORDO/BORDO
1080B, 3*4, STAN, BORDO/BORDO
1080B, 3*4, STAN, K.KAHVE / K.KAHVE
1080B, 3*4, STAN, KREM / KREM
1081A, 2,5*3,5, STAN, BORDO/BORDO
1081A, 2,5*3,5, STAN, KREM/KREM
1081A, 2*3, STAN, BORDO/BORDO
1081A, 3*4, STAN, BORDO/BORDO
1081A, 3*4, STAN, K.KAHVE / K.KAHVE
................................... ..................

Необходим макрос, с помощь которого можно значение вида 2,5*3,5 заменить на значение вида 2.5*3.5
Проблема в том, что эти значения каждый раз на разном месте.

[Aleksandr H.]

Стандартный найтиЗаменить не канает?

[Maxim_37]

Сообщение от Aleksandr H.

Стандартный найтиЗаменить не канает?

К сожалению нет.
Слишком много строк и нудно менять только не которые...

[svsh2016]

добрый день,вариант функции vvv на листе Лист2 в столбце E

Function vvv$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\d+,\d+\*\d+,\d+": .Global = True
 If .test(t) Then
    vvv = Replace(t, .Execute(t)(0), Replace(.Execute(t)(0), ",", "."))
    Else
    vvv = t
 End If
 End With
End Function

[IgorGO]

используйте этот

Function ReplaceComma2DotInNumbersOnly(txt As String) As String
  With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+),(\d+)": .Global = True
    ReplaceComma2DotInNumbersOnly = .Replace(txt, "$1.$2")
  End With
End Function

чтобы заменить в числах разделитель целой и дробной части запятую на точку.
в качестве параметра можете передать весь текст из стартового сообщения или каждую его строку отдельно

при умелом использовании RegExp гибкий и очень мощный инструмент

[svsh2016]

добрый вечер,вариант функции zzz в столбце G,покороче за счет
позитивной опережающей проверки.

 Function zzz$(t$)
 With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = ",(?=\d)"
    zzz = .Replace(t, ".")
 End With
End Function