Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
В тексте поменять местами слова и числа
 
#1
08.07.2021 00:29:23
Здравствуйте , помогите пожалуйста решить задачу
нужно с помощью формул заполнить столбец (Решение)
заранее спасибо )
Изменено: vikttur - 08.07.2021 08:08:03
 
 
 
#2
08.07.2021 00:54:23
Цитата
анна краснова написал:
с помощью формул
какая у вас версия Excel?
ну и кросс
Изменено: buchlotnik - 08.07.2021 01:41:36
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
08.07.2021 02:15:50
Как-то так.
Код
=LEFT(TRIM(SUBSTITUTE(SUBSTITUTE(A2;"|";"");"Сезон";""));FIND(" ";A2;FIND(" ";A2)+1))&"Сезон  "&TRIM(TRIM(RIGHT(SUBSTITUTE(A2;" ";REPT(" ";25));25)))&" Серия"

Тема: Поменять местами значения в столбце
 
 
 
#4
08.07.2021 08:08:21
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"| Сезон ";);"Серия ";);"|";"Сезон")&" Серия"
 
 
 
#5
08.07.2021 08:55:51
vikttur, опять приписки
=SUBSTITUTE(SUBSTITUTE(A2;"| Сезон ";);"| Серия";"Сезон")&" Серия"
По вопросам из тем форума, личку не читаю.
 
 
 
#6
08.07.2021 15:07:46
Ни в коем разе! Это утренняя попытка разбудить мозг )
 
 
 
#7
08.07.2021 15:31:51
анна краснова, еще варик
Код
Sub mrshkei()
Dim arr, arr2, i As Long, n As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A2:A" & lr)
For i = LBound(arr) To UBound(arr)
    arr2 = Split(arr(i, 1), "|")
    For n = LBound(arr2) To UBound(arr2)
        If InStr(Trim(arr2(n)), " ") > 0 Then
            arr(i, 1) = arr(i, 1) & " " & Mid(Trim(arr2(n)), InStr(Trim(arr2(n)), " ") + 1, Len(Trim(arr2(n))) - InStr(Trim(arr2(n)), " ")) & " " & _
            Mid(Trim(arr2(n)), 1, InStr(Trim(arr2(n)), " ") - 1)
        Else
            arr(i, 1) = Trim(arr2(n))
        End If
    Next n
Next i
Range("B2").Resize(UBound(arr), 1) = arr
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#8
08.07.2021 16:05:45
Код
=ОБЪЕДИНИТЬ(" ";1;ИНДЕКС(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;" ";"</i><i>")&"</i></j>";"//i");{1:4:3:7:6}))
 
 
 
#9
21.09.2021 23:26:50
спасибо большое )
 
 
 
Страницы: 1
Наверх