Всем привет! Не пинайте сильно, может баян, но не нашел. Есть ряд физических величин, ну например сопротивление. Нужно отделить в разные столбци вещественные числа, а в другой ед. измерения. Очень желательно формулами, но если скрипт то уж пусть Благодарен!
Function Znachenie(cell$)
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "\d[mGO]"
Znachenie = Left(cell, .Execute(cell)(0).FirstIndex + 1)
End With
End Function
Код
Function Razmernost(cell$)
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "\d[mGO]"
Razmernost = Mid(cell, .Execute(cell)(0).FirstIndex + 2)
End With
End Function