Страницы: 1
RSS
Отделить численного виражения физической величины от ед.изм
 
Всем привет! Не пинайте сильно, может баян, но не нашел. Есть ряд физических величин, ну например сопротивление.
Нужно отделить в разные столбци вещественные числа, а  в другой ед. измерения.
Очень желательно формулами, но если скрипт то уж пусть
Благодарен!
Изменено: lubko - 16.10.2019 21:59:36
 
UDF для значения и размерности
Код
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
 
массивные
=LEFT(A2;MAX(ISNUMBER(--MID(A2;ROW($1:$15);1))*ROW($1:$15)))
=MID(A2;1+MAX(ISNUMBER(--MID(A2;ROW($1:$15);1))*ROW($1:$15));99)
По вопросам из тем форума, личку не читаю.
 
Работает просто отлично! Елегантно и точно. Большое спасибо!
Страницы: 1
Наверх