подстановка запятой

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

подстановка запятой (Формулы/Formulas)

подстановка запятой

ush12

Дата: Среда, 01.04.2015, 16:48 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день! Подскажите как можно подставить запятую в средину строки ? Например: есть исходный текст в строке (1. Иванов Иван Иванович 01.01.00), а надо (1. Иванов Иван Иванович, 01.01.00),при этом пробел между отчеством и числами может быть не один. Пример в файле,заранее спасибо!

К сообщению приложен файл: 0294908.xlsx (8.4 Kb)

Ответить

Hugo

Дата: Среда, 01.04.2015, 17:15 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Я не спец по формулам - потому для бОльшей части годится

Код

=LEFT(TRIM(A2),LEN(TRIM(A2))-9)&", "& RIGHT(TRIM(A2),8)

я для других (и всех) нужно искать последний пробел и "плясать" от него.
UDF проще написать, да они и есть уже подходящие...
Например

Код

=SUBSTITUTE(TRIM(A2)," "&SubstringRev(TRIM(A2)," ",1),", " & SubstringRev(TRIM(A2)," ",1),1)

[vba]

Код

Function SubstringRev(Txt, Delimiter, N) As String
      Dim x As Variant
      x = Split(Txt, Delimiter)
      If N > 0 And N - 1 <= UBound(x) Then
          SubstringRev = x(UBound(x) - (N - 1))
      Else
          SubstringRev = ""
      End If
End Function

[/vba]