Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перевод данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Перевод данных
vsaykin88 Дата: Четверг, 17.10.2024, 12:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2007
Добрый день. Кто может сделать перевод формата из одной колонки в другую. Первую строку внес (как нужно сделать), нужно остальные сделать так же. Подсветил данные красным цветом.
К сообщению приложен файл: kostjumy_i_komplekty_proizvods.xlsx (21.4 Kb)
 
Ответить
СообщениеДобрый день. Кто может сделать перевод формата из одной колонки в другую. Первую строку внес (как нужно сделать), нужно остальные сделать так же. Подсветил данные красным цветом.

Автор - vsaykin88
Дата добавления - 17.10.2024 в 12:47
bigor Дата: Четверг, 17.10.2024, 18:00 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1284
Репутация: 246 ±
Замечаний: 0% ±

нет
vsaykin88, в B6
Код
=MID(A6;LEN(A6)-3;3)&"; "&MID(A6;LEN(A6)-7;3)&" - "&MID(A6;LEN(A6)-13;2)&"; "&MID(A6;LEN(A6)-10;2)
и протянуть вниз
 
Ответить
Сообщениеvsaykin88, в B6
Код
=MID(A6;LEN(A6)-3;3)&"; "&MID(A6;LEN(A6)-7;3)&" - "&MID(A6;LEN(A6)-13;2)&"; "&MID(A6;LEN(A6)-10;2)
и протянуть вниз

Автор - bigor
Дата добавления - 17.10.2024 в 18:00
_Boroda_ Дата: Пятница, 18.10.2024, 09:52 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Еще варианты
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВБ(A5;8)&ЛЕВБ(ПРАВБ(A5;14);5);"-";"; ");")";" - ")

Код
=ПОДСТАВИТЬ(ЛЕВБ(ПРАВБ(A5;8);7)&" – "&ЛЕВБ(ПРАВБ(A5;14);5);"-";"; ")


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще варианты
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПРАВБ(A5;8)&ЛЕВБ(ПРАВБ(A5;14);5);"-";"; ");")";" - ")

Код
=ПОДСТАВИТЬ(ЛЕВБ(ПРАВБ(A5;8);7)&" – "&ЛЕВБ(ПРАВБ(A5;14);5);"-";"; ")

Автор - _Boroda_
Дата добавления - 18.10.2024 в 09:52
jakim Дата: Пятница, 18.10.2024, 10:30 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1216
Репутация: 316 ±
Замечаний: 0% ±

Excel 2010
Power Query

[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Inserted Text After Delimiter" = Table.AddColumn(Source, "Text After Delimiter", each Text.AfterDelimiter([Текстовое значение], "оранж,"), type text),
    #"Removed Columnsl" = Table.RemoveColumns(#"Inserted Text After Delimiter",{"Текстовое значение"}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Removed Columns", "Text After Delimiter", Splitter.SplitTextByDelimiter("(", QuoteStyle.Csv), {"Text After Delimiter.1", "Text After Delimiter.2"}),
    #"Split Column by Delimiter1" = Table.SplitColumn(#"Split Column by Delimiter", "Text After Delimiter.2", Splitter.SplitTextByDelimiter(")", QuoteStyle.Csv), {"Text After Delimiter.2.1", "Text After Delimiter.2.2"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Text After Delimiter.1", type text}, {"Text After Delimiter.2.1", type text}, {"Text After Delimiter.2.2", type text}}),
    #"Removed Columns1" = Table.RemoveColumns(#"Changed Type",{"Text After Delimiter.2.2"}),
    #"Replaced Value" = Table.ReplaceValue(#"Removed Columns1","-","; ",Replacer.ReplaceText,{"Text After Delimiter.1"}),
    #"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","-","; ",Replacer.ReplaceText,{"Text After Delimiter.2.1"}),
    #"Merged Columns" = Table.CombineColumns(#"Replaced Value1",{"Text After Delimiter.2.1", "Text After Delimiter.1"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Merged"),
    #"Renamed Columns" = Table.RenameColumns(#"Merged Columns",{{"Merged", "Текстовое значение"}})
in
    #"Renamed Columns"
[/vba]
К сообщению приложен файл: 4452919.xlsx (31.9 Kb)
 
Ответить
Сообщение
Power Query

[vba]
Код
et
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Inserted Text After Delimiter" = Table.AddColumn(Source, "Text After Delimiter", each Text.AfterDelimiter([Текстовое значение], "оранж,"), type text),
    #"Removed Columnsl" = Table.RemoveColumns(#"Inserted Text After Delimiter",{"Текстовое значение"}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Removed Columns", "Text After Delimiter", Splitter.SplitTextByDelimiter("(", QuoteStyle.Csv), {"Text After Delimiter.1", "Text After Delimiter.2"}),
    #"Split Column by Delimiter1" = Table.SplitColumn(#"Split Column by Delimiter", "Text After Delimiter.2", Splitter.SplitTextByDelimiter(")", QuoteStyle.Csv), {"Text After Delimiter.2.1", "Text After Delimiter.2.2"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Text After Delimiter.1", type text}, {"Text After Delimiter.2.1", type text}, {"Text After Delimiter.2.2", type text}}),
    #"Removed Columns1" = Table.RemoveColumns(#"Changed Type",{"Text After Delimiter.2.2"}),
    #"Replaced Value" = Table.ReplaceValue(#"Removed Columns1","-","; ",Replacer.ReplaceText,{"Text After Delimiter.1"}),
    #"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","-","; ",Replacer.ReplaceText,{"Text After Delimiter.2.1"}),
    #"Merged Columns" = Table.CombineColumns(#"Replaced Value1",{"Text After Delimiter.2.1", "Text After Delimiter.1"},Combiner.CombineTextByDelimiter("-", QuoteStyle.None),"Merged"),
    #"Renamed Columns" = Table.RenameColumns(#"Merged Columns",{{"Merged", "Текстовое значение"}})
in
    #"Renamed Columns"
[/vba]

Автор - jakim
Дата добавления - 18.10.2024 в 10:30
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!