Страницы: 1
RSS
Необходимо перенести латиницу в отдельную колонку
 
Необходимо в отдельную колонку перенести все латинские символы из колонки K , если несколько слов - то каждое слово в отдельную колонку, если между словами символы, кроме пробела (числа), их тоже в рядом стоящую колонку  
Изменено: TokarevP - 14.12.2020 11:53:44
 
Формула (результат на лист2)
Код
=SUBSTITUTE('Все панели'!J2;"?";"")
 
Спасибо большое, знаки вопросов убрались, еще бы латиницу перенести в отдельную колонку формулой или макросом.
Или хотя бы все, что идет после первого латинского знака в отдельную колонку
 
Ура, нашел выход-


Function ИЗВЛЕЧЬЛАТИНИЦУ(ТЕКСТ As String) As String
   Dim i As Long
   Dim SimbolLatin
   Dim splt
   Dim temptext As String
   Dim Result As String

   SimbolLatin = "*[abcdefghijklmnopqrstuvwxyz]*"
   Result = ""
   splt = Split(ТЕКСТ, " ")

   For i = 0 To UBound(splt)
       temptext = LCase(splt(i))
       If temptext Like SimbolLatin Then
           Result = Result & " " & splt(i)
       End If
   Next

   ИЗВЛЕЧЬЛАТИНИЦУ = Trim(Result)
End Function
 
А оформить код с помощью кнопки <...>?
 
Тут не Sub,а  function ). Всем спасибо большое.
 
И кака разница для кода в сообщение? Надо оформить
Страницы: 1
Наверх