Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Переставить числа из начала в конец текста
 
#1
27.04.2020 18:01:05
В столбце А написано:
1 стул
15 парт
5 столов
8 ложек

В столбце В нужно получить в обратном порядке (цифры перенести в конец):
стул 1
парт 15
столов 5
ложек 8

Как можно перенести? Заранее благодарен за помощь
 
 
 
#2
27.04.2020 18:06:50
realmen80,всегда идет число пробел и текст?  
Код
=ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(" ";A2;1))&" "&ЛЕВСИМВ(A2;ПОИСК(" ";A2;1)-1)
Изменено: Mershik - 27.04.2020 18:12:41
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
27.04.2020 18:14:56
=ПСТР(A2&" "&A2;ПОИСК(" ";A2)+1;ДЛСТР(A2))
 
 
 
#4
27.04.2020 18:52:50
Спасибо за помощь. То что нужно
 
 
 
#5
27.04.2020 19:49:53
Столкнулся с проблемой, когда попадает слово, без цифр, только буквы.
Например, так:

1 стул
парты
5 столов
ложки

Можно добавить исключение в код формулы, чтобы когда встречается слово без цифр, то оставлять это слово как есть и так и вставлять его?  
 
 
 
#6
27.04.2020 20:21:29
Минимальная правка:
=ПСТР(A2&" "&A2;ПОИСК(" ";A2&" ")+1;ДЛСТР(A2))
 
 
 
#7
27.04.2020 21:20:27
Еще раз - спасибо за помощь.
 
 
 
#8
28.04.2020 08:21:35
realmen80, может быть еще мгновенное заполнение поможет
 
 
 
#9
28.04.2020 09:06:37
Спасибо. Попробую
 
 
 
#10
07.05.2020 12:00:04
Столкнулся с еще одной проблемой :( Если впереди слова пробел стоит, то не срабатывает формула.... Можно как-то в формуле прописать, чтобы все пустые пробелы сначала слов не учитывались?
 
 
 
#11
07.05.2020 12:27:27
СЖПРОБЕЛЫ
 
 
 
#12
07.05.2020 12:30:40
vikttur, спасибо. За эту функцию знаю. Как отдельно использовать ее знаю. Не знаю как встроить ее в формулу что вы давали выше... Или это не возможно делать в одной формуле и нужно сначала функцией удалить пробелы начальные, а только потом уже применять формулу перестановки? Хотел упростить...
 
 
 
#13
07.05.2020 12:45:07
Можно поступить старым крестьянским методом и впихнуть эту функцию везде где можно и наверное нельзя :)
Но, зато даже если впереди будет пять пробелов, то все работает :)
Код
=MID(TRIM(A2)&" "&TRIM(A2),SEARCH(" ",TRIM(A2)&" ")+1,LEN(TRIM(A2)))
=ПСТР(СЖПРОБЕЛЫ(A2)&" "&СЖПРОБЕЛЫ(A2);ПОИСК(" ";СЖПРОБЕЛЫ(A2)&" ")+1;ДЛСТР(СЖПРОБЕЛЫ(A2)))
Изменено: memo - 07.05.2020 13:04:52
 
 
 
#14
07.05.2020 13:09:29
А чтобы не "впихнуть эту функцию везде где можно и наверное нельзя" и не грузить лишний раз Excel, достаточно применить функцию один! раз в доп. столбце, а в формуле ссылаться на очищенные данные.
 
 
 
#15
07.05.2020 14:17:18
Спасибо за ответы и помощь
 
 
 
#16
07.05.2020 16:03:18
Цитата
Как можно перенести?
UDF
Код
Function iDigits(cell$)
 With CreateObject("VBScript.RegExp")
   .Pattern = "^ ?\d+ "
   If .test(cell) Then
     iDigits = .Replace(cell, "") & " " & .Execute(cell)(0)
   Else
     iDigits = cell
   End If
 End With
End Function
 
 
 
#17
07.05.2020 16:24:24
Kuzmich, спасибо.  
 
 
 
Страницы: 1
Наверх