Перенести данные из эксель в ворд.

Старая форма входа

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

Mark1976

Дата: Вторник, 23.06.2020, 14:32 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

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

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

Excel 2010, 2013

Здравствуйте. Есть таблица в эксель и документ ворд. Необходимо перенести в ворд данные из эксель. Попробовал функцию "слияние", но не получилось. Может что-то делаю не так, или есть другие решения. Заранее благодарю за ответ.

К сообщению приложен файл: __.xls (30.0 Kb) · 3988989.docx (21.9 Kb)

Ответить

krosav4ig

Дата: Вторник, 23.06.2020, 18:14 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте
в Excel трансформировал данные в плоскую таблицу запросом Power Query
[vba]

Код

let
    Source  = Table.SelectRows(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[Строка 1],[Строка 2]], each ([Строка 1] <> null)),
    Group   = Table.Group(Source, {"Строка 1"}, {{"_", each Table.Distinct(_), type table}}),
    Split   = Table.SplitColumn(Group, "Строка 1", Splitter.SplitTextByAnyDelimiter({"за ","на "}, QuoteStyle.Csv), {"Строка 1.1", "Строка 1.2"}),
    Indexed = Table.TransformColumns(Table.AddIndexColumn(Split, "Индекс", 0), {"Индекс", each Number.IntegerDivide(_, 2)}),
    Pivoted = Table.Pivot(Indexed , List.Distinct(Indexed[#"Строка 1.1"]), "Строка 1.1", "_",each _{0}?{0}?[Строка 2]?),
    Sorted  = Table.Sort(Pivoted,"Индекс")
in
    Sorted

[/vba]
в Word состряпал поле слияния