Страницы: 1
RSS
вывести определенное значение из ячейки, вывести определенное значение из ячейки
 
всем добрый день подскажите как вывести следующее значение из ячейки в 2 разные ячейки
НаименованиеДлина, мШирина, м
Ст. П.Оц. УЧП 400.591 RAL 7047
Ст. П.Оц. УЧП 1207.2050 RAL 7047

ЧТО ДОЛЖНО ПОЛУЧИТСЯ В РЕЗУЛЬТАТЕ
НаименованиеДлина, мШирина, м
Ст. П.Оц. УЧП 400.591 RAL 7047400591
Ст. П.Оц. УЧП 1207.2050 RAL 704712072050
 
Код
=ЗНАЧЕН(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПСТР($A1;15;ДЛСТР($A1));" ";ПОВТОР(" ";100));100));".";ПОВТОР(" ";100));1+100*(СТОЛБЕЦ(A:A)-1);100)))
 
UDF
Код
Function iLength(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "УЧП (\d+)\.(\d+)"
   If .test(cell) Then
     iLength = .Execute(cell)(0).SubMatches(0)
   Else
     iLength = ""
   End If
 End With
End Function

Function iWidth(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "УЧП (\d+)\.(\d+)"
   If .test(cell) Then
     iWidth = .Execute(cell)(0).SubMatches(1)
   Else
     iWidth = ""
   End If
 End With
End Function
 
А еще Есть автозаполнение через Ctrl+E
Ставите курсор в первую строку колонки Длина пишите 400 , жмете enter и сразу в нижней строке куда переместится курсор ctrl+E - вся колонка заполниться должна нужными значениями

по ширине так же
Изменено: Sanim - 08.07.2024 18:44:47
Страницы: 1
Наверх