Переместить несколько символов в строке по условию

Пользователь

Сообщений: 72 Регистрация: 23.12.2012

02.08.2022 23:35:35

Уважаемые форумчане,

Поставщик прислал файл. Составы написаны в неудобном формате (в примере ниже это столбец Сейчас). Т.е. сначала идет текст, затем в скобках процентное содержание.

Нужна помощь в способе, как перевернуть этот состав к привычному виду (в примере ниже это столбец Нужно. Т.е. сначала цифры с %, затем текст.
Других знаков-разделителей не требуется.

Буду благодарна за любую идею: будь то формула, макрос...

Сейчас	Нужно
Viscose (%90) Lurex (%10)	90% Viscose 10% Lurex
Cotton (%100)	100% Cotton
Linen (%100) Jute (%100) Thermoplastic (%100)	100% Linen 100% Jute 100% Thermoplastic
Cotton (%97) Elastane (%3)	97% Cotton 3% Elastane
PVC (%100) Eva (%100)	100% PVC 100% Eva

New

Пользователь

Сообщений: 4837 Регистрация: 06.01.2013

02.08.2022 23:38:36

примеры нужно выкладывать в файле Excel, а не текстом, как у вас.
P.S. Не в рабочем файле Excel с секретными данными, а в специально созданном файле-примере
См. файл

Прикрепленные файлы

all L.xlsm (16.81 КБ)

Изменено: New - 03.08.2022 00:19:00

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

03.08.2022 00:25:00

Код

Function Proc(s$)
  Dim re, ms, r$
  Set re = CreateObject("VBSCript.RegExp")
  re.Pattern = "([^(]+)\(%(\d+)\)": re.Global = True
  If re.test(s) Then
    Proc = Replace(re.Replace(s, "$2% $1"), Chr(160), " ")
    Do While InStr(Proc, "  ") > 0
      Proc = Replace(Proc, "  ", " ")
    Loop
  End If
End Function

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

all L Пользователь Сообщений: 72 Регистрация: 23.12.2012	#4 03.08.2022 04:56:13 Спасибо вам, милые люди, за помощь!!!! Благодаря вам день будет прекрасен ))) И вопрос закрыт.