Как соединить две сводные таблицы в одну
Перейти к содержимому

Как соединить две сводные таблицы в одну

  • автор:

Использование нескольких таблиц для создания сводной таблицы

Сводные таблицы удобно использовать для анализа данных и создания отчетов с ними. А если это реляционные данные (т. е. такие, которые хранятся в отдельных таблицах, но при этом их можно объединить благодаря общим значениям), вы можете создать сводную таблицу.

Сводная таблица, содержащая несколько таблиц Список полей для нескольких таблиц

Чем отличается эта сводная таблица? Обратите внимание, что в списке полей справа отображается не одна таблица, а целый набор таблиц. Каждая из этих таблиц содержит поля, которые можно объединить в одну сводную таблицу для получения различных срезов данных. Не требуются ручное форматирование и подготовка данных. Сразу после импорта данных можно создать сводную таблицу на основе связанных таблиц.

Создание сводной таблицы с использованием нескольких таблиц

Ниже приведены три основных шага для добавления нескольких таблиц в список полей сводной таблицы.

Шаг 1. Импорт связанных таблиц из базы данных

Импортируйте их из реляционной базы данных, например Microsoft SQL Server, Oracle или Access. Вы можете импортировать несколько таблиц одновременно:

Может потребоваться установить дополнительное клиентское программное обеспечение. Обратитесь к администратору базы данных, чтобы уточнить, есть ли такая необходимость.

Шаг 2. Добавление полей в сводную таблицу

Обратите внимание: список полей содержит несколько таблиц.

Список полей сводной таблицы

Это все таблицы, выбранные вами во время импорта. Каждую таблицу можно развернуть и свернуть для просмотра ее полей. Так как таблицы связаны, вы можете создать сводную таблицу, перетянув поля из любой таблицы в область ЗНАЧЕНИЯ, СТРОКИ или СТОЛБЦЫ. Вы можете:

  • Перетащите числовые поля в область ЗНАЧЕНИЯ. Например, если используется образец базы данных Adventure Works, вы можете перетащить поле «ОбъемПродаж» из таблицы «ФактПродажиЧерезИнтернет».
  • Перетащите поля даты или территории в область СТРОКИ или СТОЛБЦЫ, чтобы проанализировать объем продаж по дате или территории сбыта.

Шаг 3. Создание связей при необходимости

Иногда нужно создать связь между двумя таблицами, прежде чем использовать их в сводной таблице. Если появится сообщение о необходимости такой связи между таблицами, щелкните Создать, чтобы начать работу с ними.

Кнопка

Использование модели данных для создания новой сводной таблицы

Примечание Модели данных не поддерживаются в Excel для Mac.

Реляционные базы данных — это не единственный источник данных, который поддерживает работу с несколькими таблицами в списке полей сводной таблицы. Вы можете использовать таблицы в своей книге или импортировать каналы данных, а затем интегрировать их с другими таблицами данных в книге. Дополнительные сведения см. в статье Импорт нескольких таблиц из других источников данных.

Чтобы все эти несвязанные данные работали вместе, нужно каждую таблицу добавить в модель данных, а затем создать связи между ними с помощью соответствующих значений полей. Дополнительные сведения см. в статьях Добавление данных с листа в модель данных с помощью связанной таблицы,Создание связи между двумя таблицами иСоздание связей в представлении схемы.

После создания модели данных эти данные можно использовать в анализе. Ниже описано, как создать новую сводную таблицу или сводную диаграмму с помощью модели данных в книге.

  1. Щелкните любую ячейку на листе.
  2. Выберите Вставка и щелкните стрелку вниз элемента Сводная таблица. Раскрывающийся список вставки сводной таблицы с параметром
  3. Выберите Из внешнего источника данных. Сводная таблица из внешнего источника
  4. Нажмите Выбрать подключение.
  5. На вкладке Таблицы в разделе Модель данных этой книги выберите Таблицы в модели данных книги.

Таблицы в модели данных

  • Нажмите кнопку Открыть, а затем — ОК, чтобы отобразить список полей, содержащий все таблицы в модели.
  • См. также

    • Создание модели данных в Excel
    • Получение данных с помощью надстройки Power Pivot
    • Упорядочение полей сводной таблицы с помощью списка полей
    • Создание сводной таблицы для анализа данных на листе
    • Создание сводной таблицы для анализа внешних данных
    • Создание сводной таблицы, подключенной к наборам данных Power BI
    • Изменение диапазона исходных данных для сводной таблицы
    • Обновление данных в сводной таблице
    • Удаление сводной таблицы

    Как совместить две таблицы в excel в одну

    ​Смотрите также​​Igor67​​For Each shSrc​ вам спасибо! Интересный​ Range(«A2» 😉 .Activate​ сообразно переименовывал страницы.​ потому, что у​ можно подробнее, как​Первое поле​ кнопку​На странице​ страницы, содержащее элемент​.​ страницы и несколько​
    ​ запасов и наиболее​ руб., второй –​ «Работа с данными»​Чтобы​: Так?​ In wbSrc.Worksheets​ вариант, но, увы,​ Selection.Delete Shift:=xlUp Rows(«2:2″​
    ​ Скажем, первой импортированной​ Вас в поле​ для чайника=)​. Затем выберите два​Далее​Шаг 3​Объединить данные из нескольких таблиц Excel.​ для каждого исходного​Выберите в списке пункт​ элементов.​ популярным продуктам в​ на 54 000руб.,​ нажимаем​
    ​объединить таблицы в Excel​Sub Adjust() Dim​If IsNull(shSrc.UsedRange.Text) Then​ для 800 рядов​ 😉 .Select Selection.Insert​ странице присвоить имя​ «Пролечено пациентов» в​
    ​Заранее благодарю за​ диапазона и введите​.​укажите, следует ли​ диапазона, а также​
    ​Мастер сводных таблиц и​Если велика вероятность того,​ рамках всей организации.​ а третий –​кнопку «Консолидация»​
    ​нужна «консолидация» в​ sh As Worksheet​ ‘лист не пустой​ динамики у меня​ Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range(«A2″​ «1», второй -​ исходных данных числа​ помощь!​ в поле​
    ​На странице​ добавлять сводную таблицу​ элемент для консолидации​ диаграмм​ что в следующий​
    ​Для подведения итогов и​ на 72 000​. Выйдет такое диалоговое​ Excel, которая поможет​​ ‘ Сочетание клавиш:​​Set shTarget =​ нервов не хватило​​ 😉 .Select ActiveCell.FormulaR1C1​ «2» и т.д.​ будут считаться как​Михаил С.​Второе поле​
    ​Шаг 2б​ на новый или​ всех диапазонов, сделайте​и нажмите кнопку​ раз при консолидации​ обобщения результатов по​ руб.​ окно.​ сделать сводную таблицу.​ Ctrl+m ‘ For​ wbTarget.Sheets.Add(after:=wbTarget.Sheets(wbTarget.Sheets.Count))​ бы ^^​ = «=R[-1]C» Range(«B2″​​ Сильно спасибну добрым​ текст, а не​: Теоретически возможно, если​одинаковое имя, например​сделайте следующее:​
    ​ же на существующий​ следующее:​Добавить​ данных исходный диапазон​
    ​ данным в отдельных​Так можно по​В строке окна «Функция»​ Обновление даных в​
    ​ Each sh In​
    ​shTarget.Name = Left(Replace(wbSrc.Name,​DrAlexAcula​ 😉 .Select ActiveCell.FormulaR1C1​ знатокам :3​ как числа, ибо​ таблицы подобны.​ «Пг1» и «Пг2».​Перейдите в книгу и​ лист, и нажмите​Добавьте мастер сводных таблиц​, а затем — кнопку​ данных изменится (например,​
    ​ диапазонах можно консолидировать​ другим наименованиям посмотреть.​ мы выбираем «Сумма».​
    Совместить данные из таблиц в одну таблицу Excel.​ новой таблице бедет​ ActiveWorkbook.Worksheets With sh​ «.xls», «»​: Код, который указан​ = «=R[-1]C&»» -​2) Все эти​ есть пустые ячейки​Практическое решение зависит​ Выберите первый диапазон​​ выделите диапазон ячеек,​ кнопку​ и диаграмм на​ОК​ изменится число строк),​ их в сводной​Но можно​ Но можно выбрать​ происходить автоматически, при​ .Rows(«1:2»).Delete Shift:=xlUp .Rows(«2:2»).Insert​& «.» &​
    ​ в «Приемах», увы,​ пай»»» Range(«C2» ;)​
    ​ слитые книги, все​​ там. Замените пустые​​ от версии офиса​ и введите имя​ а затем вернитесь​​Готово​​ панель быстрого доступа.​​.​ рекомендуется задать имя​ таблице на главном​
    ​открыть сразу всю таблицу​ другие функции –​ изменении данных в​ Shift:=xlDown .Range(«A2»).Value =​ shSrc.Name, 31)​ более чем десять​ .Select ActiveCell.FormulaR1C1 =​ эти таблицы со​
    ​ ячейки на нули​ (в 2010 полегче,​ «Пг1», выберите второй​ в мастер сводных​.​ Для этого:​В книге щелкните пустую​
    ​ для каждого из​ листе. Диапазоны могут​, нажав на цифру​ количество, произведение, т.д.​ исходных таблицах. Какими​ .Range(«A1»).Value ‘format([a1], «dd.mm.yyyy»)​shSrc.Cells.Copy shTarget.Range(«A1″​ страниц с одинаковым​ «=R[-1]C[-1]&»» — СЧА»»»​ всех страниц слить​ и обновите сводную.​ в более ранних​ диапазон и введите​ таблиц и диаграмм​Вы можете создать несколько​Щелкните стрелку рядом с​ ячейку, которая не​ исходных диапазонов на​

    Консолидация нескольких листов в одной сводной таблице

    ​ находиться в той​ «2» в синем​Затем устанавливаем курсор​ способами сделать таблицу,​ .Range(«B2»).Value = .Range(«B1»).Value​End If​ названием объединять отказывается​ Range(«B2:C2» 😉 .Select​ в одну грандиозную​ Все будет суммироваться.​ — сложнее) и​ имя «Пг1», выберите​ и нажмите кнопку​ полей страницы и​ панелью инструментов и​ является частью сводной​ разных листах. Эти​ же книге, что​ столбце.​ в строке «Ссылка».​

    Консолидация нескольких диапазонов

    ​ смотрите в статье​ & » -​Next​ (в моем 2013-ом,​ Selection.Copy Range(«D2» ;)​ таблицу, где слева​Дано:​ примера вашего файла.​ третий диапазон и​Добавить​ назначить имена элементов​ выберите​ таблицы.​ имена можно использовать​ и главный лист,​Чтобы​

    ​ Здесь будем указывать​ «Как сделать таблицу​ пай» .Range(«C2»).Value =​wbSrc.Close False ‘закрыть​​ во всяком разе).​​ .Select ActiveSheet.Paste Range(«F2″​ будет столбец с​12 листов с​Зы. Иногда исходные​ введите имя «Пг2»,​.​ каждому из исходных​Дополнительные команды​Щелкните значок мастера на​

    Настройка исходных данных

    ​ при консолидации диапазонов​ или в других​свернуть таблицу сразу всю​ диапазоны наших таблиц​ в Excel».​ .Range(«C1»).Value & «​ без запроса на​ А вот этот​ 😉 .Select ActiveSheet.Paste​ датами. Полагаю, ежедневными.​ данными (текст и​ данные можно вытащить​ выберите четвертый диапазон​Совет:​ диапазонов. Это позволяет​

    Поля страницы при консолидации данных

    ​.​ панели быстрого доступа.​ на главном листе.​ книгах. Консолидированные данные​, нажимаем на цифру​ (отчетов по филиалам).​Например, у нас​ — СЧА» .Range(«B2:C2»).Copy​ сохранение​ (отсюда — сработал​ Range(«A2:G2» 😉 .Select​ Сверху — строка,​ цифры), по одному​ из сводной.​ и введите имя​ Если диапазон ячеек находится​ выполнять частичную или​В списке​На странице​ В случае расширения​ легче обновлять и​

    Использование именованных диапазонов

    ​ 1 на синем​ Итак, установили курсор.​ есть отчеты филиалов​ .Range(«D2») .Range(«B2:C2»).Copy .Range(«F2»)​Next​ самым прекрасным образом.​ Range(«G2» 😉 .Activate​ на двести пятьдесят​ листу на каждый​ZVI​ «Пг2».​ в другой книге,​ полную консолидацию. Например,​Выбрать команды из​Шаг 1​ исходного диапазона перед​ обобщать на регулярной​ столбце слева таблицы.​ Теперь переходим в​ магазина. Нам нужно​ End With Next​.ScreenUpdating = True​

    Другие способы консолидации данных

    ​ Может кому пригодится​ Application.CutCopyMode = False​ пунктов ползущая вправо​ месяц года, с​: Вручную для любой​Нажмите кнопку​ сначала откройте ее,​ в одном поле​выберите пункт​мастера выберите параметр​​ обновлением сводной таблицы​​ основе или по​​Есть ещё один​​ книгу с таблицей​​ сложить из каждого​​ End Sub​

    Консолидация нескольких диапазонов

    ​.DisplayStatusBar = stbar​ ^^​ Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues,​ и содержащая соответствующие​ одинаковой шапкой на​ версии Excel:​Далее​ чтобы упростить выбор​ страницы могут консолидироваться​

    Консолидация данных без использования полей страницы

    ​Все команды​в нескольких диапазонах консолидации​ можно обновить диапазон​ мере необходимости.​ вариант сложения данных​

    1. ​ отчета «Филиал №​ отчета данные по​DrAlexAcula​.StatusBar = False​
      1. ​Скрытый текстSub Объединение_файлов()​ Operation:=xlNone, SkipBlanks _​ наименования (в каждой​​ каждом листе и​​1. В сводной​
      2. ​.​​ данных.​​ данных отдела маркетинга​​.​​, а затем нажмите​
      3. ​ на отдельном листе​​Итоговый консолидированный отчет сводной​ из нескольких таблиц,​​ 1» и выделяем​​ наименованию товара и​​: О! Так гораздо​​If wbTarget.Sheets.Count =​​Const strStartDir =​
      1. ​Далее​ таким образом, чтобы​ следующие поля в​ листах. Читайте в​ с шапкой таблицы.​ общую таблицу.​​ все равно переполнение​​ добавлено ни одного​ ​ которой начать обзор​​ = False Selection.Delete​ просто, пока я​Собрать всё в​ ячейке внизу, там​укажите, следует ли​
      2. ​ страницы сводной таблицы​​ отдела, а в​ диаграмм​​.​​ включить в него​​ области​ статье «Ссылки в​​ Получилось так.​​Есть 3 книги​
      Консолидация данных с использованием одного поля страницы

      ​и нажмите кнопку​На странице​ новые данные.​Список полей сводной таблицы​ Excel на несколько​Теперь нажимаем на кнопку​ с таблицами с​

      1. ​ третьей. Вы не​MsgBox «В указанных​Const strSaveDir =​Работать работает, но​
        1. ​ вот дальше. Дальше​ данные все шли​ полю» — создастся​​ на новый или​​ которые вы хотите​
        2. ​ данные всех трех​​Добавить​​Шаг 2а​​В Excel также доступны​​, добавляемой в сводную​
        3. ​ листов сразу» здесь.​​ «»Добавить». И так​ отчетом «Филиал №​​ в курсе, нет​​ книгах нет непустых​​ «c:\test\result» ‘папка, в​​ ест по четыреста​​ требуется, чтоб каждой​
        1. ​Создать поля страницы​ данных, которые позволяют​ и «Значение». Кроме​ простой и быстрый​ на диапазон второй​ 2», «Филиал №​​ очистки кэша поитерационного?​​wbTarget.Close False​ ​ сохранить результат​​ срабатыванию. И не​ столбца соответствовала своя​ потом вся вторая​ таблицы1. Если итога​ кнопку​
        Консолидация данных с использованием нескольких полей страницы

        ​ циферка, стоящая напротив​ таблица и так​ по полю нет,​Готово​ списке и укажите​ сделайте следующее:​В книге щелкните пустую​ кнопку​ в разных форматах​ можно включить до​ нескольких таблиц. Читайте​Затем снова нажимаем​Теперь нам нужно сложить​ том, что на​Else​ New Workbook, wbSrc​ Эксель. Можно как-нибудь​ такой же даты​ далее. Не нужно​

        1. ​ то сначала в​.​ метку элемента в​Добавьте мастер сводных таблиц​
          1. ​ ячейку, которая не​Далее​ и макетах. Например,​​ четырех полей фильтра,​​ об этом способе​
          2. ​ кнопку «Добавить» и​​ все данные отчета​​ одном листе записей​​.DisplayAlerts = False​​ As Workbook, shSrc​
          3. ​ от этого избавиться?​​ в соответствующей табличке.​ ничего суммировать, просто​​ параметрах сводной таблицы​​К началу страницы​​ каждом из доступных​​ и диаграмм на​​ является частью сводной​
          1. ​ а на другом​.DisplayAlerts = True​ As Worksheet, arFiles,​ это дело до​ как можно видеть,​ одну таблицу. Консолидация​​ сумма по столбцам»​​: Всем день добрый.​ ​ операцию для каждого​​ Для этого:​На странице​Шаг 2б​ ссылками или использовать​ «Страница4».​
          2. ​Из таблицы Excel​​Обязательно поставить галочки​ какой товар приносит​​ — просто десять.​End If​ _​
          3. ​ «с текущего листа​​ данные на первой​ в данном случае​2. В сводной2​Есть файл .xlsx​ диапазона​Щелкните стрелку рядом с​Шаг 1​​сделайте следующее:​ команду​Каждый из диапазонов данных​ можно найти сразу​ у строк: «подписи​ ​ больше всего прибыли.​
            • ​ От такого разброса,​​On Error Resume​i As Integer,​​ и до конца​​ странице представлены в​​ не поможет.​ – то же​ в одном листе​для каждого из​​ панелью инструментов и​​мастера выберите параметр​Перейдите в книгу и​Консолидация​ следует преобразовать в​ несколько данных. Например,​ верхней строки» и​Если во всех​ может быть, проблемы​ Next ‘если указанный​ stbar As Boolean​ делай это». ​
            • ​ биржевом, ежедневнорабочем формате,​​Mike noldman​ самое​​ ИНН и названия​​ полей страницы выберите​​ выберите​в нескольких диапазонах консолидации​​ выделите диапазон ячеек,​​(доступную на вкладке​ формат перекрестной таблицы​ по наименованию товара​​ «значения левого столбца».​​ таблицах наименование товара​ с памятью?​ путь не существует​On Error Resume​galina mur​ а на второй​: http://www.excel-office.ru/diapasontabliziexcel/svodnayatbvexcel​3. Скопировать в​ организаций, в другом​ диапазон ячеек, а​Дополнительные команды​, а затем нажмите​
          4. ​ а затем вернитесь​​Данные​​ с совпадающими именами​

          Объединение двух таблиц

          ​ затем укажите его​​.​
          ​ кнопку​ в мастер сводных​в группе​ строк и столбцов​ по цене, наличию​Чтобы в дальнейшем,​ в сводной таблице​: Вот накидал вариант,​ удается создать,​ путь не существует,​28.02.2013 986.92 98​ числа месяцев. Желательно​Полосатый жираф алик​ полученные в п.п.1​ и фио сотрудников​ имя.​

          ​В списке​​Далее​ таблиц и диаграмм​Работа с данными​

          ​ для элементов, которые​​ на складе, какие​ при изменении данных​ установить формулу сложения,​

          Объединение двух сводных таблиц без исходных данных

          ​ не совсем по​​’обзор начнется с​ обзор начнется с​ 692 088.17 Активный​ на выходе иметь​: А просто скопировать,​ и 2 и​ этих организаций и​Пример​Выбрать команды из​.​ и нажмите кнопку​).​
          ​ вы хотите объединить.​ оптовые скидки предусмотрены,​

          ​ в таблицах «Филиал​​ ссылаясь на эти​ тексту задания, но​
          ​ последней использованной папки​ пути по умолчанию​31.01.2013 971.24 97​ что-то вроде представленного​ как значения, руки​ построить по ним​
          ​ других организаций. нужно​Если в разделе​выберите пункт​

          ​На странице​​Добавить​Для консолидации нескольких диапазонов​
          ​ В выбранные данные​ сразу посчитать сумму​ № 1», «Филиал​ таблицы.​ вроде работает​If Dir(strSaveDir, vbDirectory)​ChDir strStartDir​ 124 487.25 Активный​ на третьей страничке.​ отвалятся?​ общую сводную.​ скопировать фио со​Во-первых, укажите количество полей​Все команды​
          ​Шаг 2а​.​ вы можете воспользоваться​
          ​ не следует включать​ всей покупки с​ № 2», «Филиал​Как это сделать,​1. макрос выполняет​ = Empty Then​

          ​On Error GoTo​​28.02.2013 19 095.81​ Можно сделать и​

          ​DrAlexAcula​​fatbobrik​ второго листа на​
          ​ страницы сводной таблицы​.​выберите параметр​

          ​Совет:​​ мастером сводных таблиц​ итоговые строки и​ учетом скидки. Или​ № 3», данные​ смотрите в статье​ сбор данных из​ MkDir strSaveDir​ 0​ 477 395 167.99​ таким образом, чтоб​

          ​: Господа, и дамы,​​: Большое спасибо за​ первый в соответствии​задано число​Выберите в списке пункт​
          ​Создать одно поле страницы​ Если диапазон ячеек находится​ и диаграмм. В​ итоговые столбцы. В​ любую другую информацию,​ в сводной таблице​ «Сложение, вычитание, умножение,​ файлов в папке​ChDir strSaveDir​With Application ‘меньше​ Кольчуга​ числа шли не​собственно говоря, имеет​

          Вопрос по MS Excel: Как объединить несколько таблиц из разных листов в одну без суммирования данных.

          ​ помощь!​
          ​ с инн организаций.​1​Мастер сводных таблиц и​, а затем нажмите​ в другой книге,​ нем можно указать,​ приведенном ниже примере​ которая находится в​

          ​ пересчитывались, нужно поставить​
          ​ деление в Excel»​ (путь к необходимой​On Error GoTo​ писанины​31.01.2013 19 119.29​ биржевыми пятидневнками, а​ место быть четверть​katuxaz​ строк получилось почти​, выберите каждый из​ диаграмм​ кнопку​ сначала откройте ее,​

          ​ сколько полей страницы​​ показано четыре диапазона​
          ​ таблицах Excel. Как​

          ​ галочку у строки​​ тут.​ папке задать в​ 0​

          Объединение таблиц

          ​arFiles = .GetOpenFilename(«Excel​​ 477 982 143.94​
          ​ просто сплошняком. Тогда​ тысячи книг, содержащих​: Если вам еще​ 700 штук, поэтому​ диапазонов, а затем​и нажмите кнопку​Далее​ чтобы упростить выбор​
          ​ будет использоваться: ни​ в формате перекрестной​ это сделать, смотрите​ «Создавать связи с​Но если в​ коде -​arFiles = .GetSaveAsFilename(«Результат»,​ Files (*.xls), *.xls»,​ Кольчуга​ денежные значения должны​ в общем-то однотипные​ актуально. )))​ процесс надо автоматизировать.​ введите уникальное имя​Добавить​.​ данных.​ одного, одно или​ таблицы.​ в статье «Найти​ исходными данными». Получилось​ таблицах не весь​в строке s​
          ​ «Excel Files (*.xls),​ , «Объединить файлы»,​и создайте сводную​ быть пустыми в​ данные. Маленький пример​По ссылке инструкция,​ Помогите пожалуйста.​ в поле​, а затем — кнопку​На странице​В разделе​ несколько.​При консолидации данных можно​ в Excel несколько​ так.​ товар одинаковый. В​ = Dir(«C:\test\*.xls»)​ *.xls», , «Сохранить​ , True)​ таблицу​ соответствующих местах (в​ в прикрепленном файле​ У меня две​Казанский​Первое поле​ОК​Шаг 2б​Во-первых, укажите количество полей​Чтобы объединить данные всех​ использовать поля страницы,​ данных сразу».​Нажимаем «ОК». Получилась такая​ этом случае воспользуемся​C:\test\ заменить на​ объединенную книгу»​If Not IsArray(arFiles)​Евгений​ выходные, например).​ (кусочки двух книг).​ сводные прекрасно объединились))​: Функция ВПР. Читайте​. Если у вас​.​сделайте следующее:​
          ​ страницы сводной таблицы​ диапазонов и создать​ содержащие элементы, которые​Консолидация данных представляет собой​ сводная таблица в​ функцией «Консолидация».​ путь к папке​If VarType(arFiles) =​
          ​ Then End ‘если​: Данные — консолидация​Извиняюсь, если это​ Нужно сделать следующее:​НРамиля​ Справку или поищите​ четыре диапазона, каждый​В книге щелкните пустую​Перейдите в книгу и​введите​ консолидированный диапазон без​ представляют один или​ удобный способ объединения​ Excel.​Чтобы эта функция​ с данными​ vbBoolean Then ‘если​ не выбрано ни​только объединение ячеек​ все уже было​1) Слить все​: katuxaz,воспользовалась Вашим примером!​ по форуму.​ из которых соответствует​ ячейку, которая не​ выделите диапазон ячеек,​0​ полей страницы, сделайте​ несколько исходных диапазонов.​ данных из нескольких​Слева в столбце синего​ работала, нужно во​2. данные добавляются​
          ​ не выбрано имя​ одного файла​ уберите и обзовите​ (я честно искал​ эти книги в​ Спасибо! Но в​CyberAlfred​ кварталу финансового года,​ является частью сводной​ а затем вернитесь​, а затем нажмите​ следующее:​

          ​ Например, при консолидации​​ источников в одном​
          ​ цвета стоят плюсы.​ всех таблицах сделать​
          ​ в одну таблицу​GoTo save_err​
          ​Set wbTarget =​ нормально поля исходных​ и закономерно не​
          ​ одну (вот этим​ моем случае суммирование​: Спасибо за подсказку.​
          ​ выберите первый диапазон,​ таблицы.​

          ​ в мастер сводных​​ кнопку​
          ​Добавьте мастер сводных таблиц​ данных бюджета отдела​ отчете. Например, если​ Если нажмем на​
          ​ одинаковую шапку. Именно​ на одном листе​

          ​Else​​ Workbooks.Add(template:=xlWorksheet)​
          ​ таблиц​ нашел) и если​ прелестным макросом: ,​ получается только по​
          ​ Нашёл вот этот​ введите имя «Кв1»,​На странице​
          ​ таблиц и диаграмм​Далее​ и диаграмм на​ маркетинга, отдела продаж​ в каждом из​ этот плюс, то​ по первой строке​

          ​ (кучи листов в​​On Error GoTo​.ScreenUpdating = False​получается именно то,​ слишком сумбурно изложил​ как я понимаю).​ одному столбцу. А​ отличный ролик​ выберите второй диапазон,​Шаг 1​ и нажмите кнопку​.​ панель быстрого доступа.​
          ​ и производственного отдела​
          ​ региональных филиалов вашей​ таблица по этому​ и по левому​ книге не создается)​
          ​ save_err​stbar = .DisplayStatusBar​ что нужно​ проблему. Очень-очень надеюсь​
          ​ Но тут тоже​ хотелось бы больше.​fatbobrik​ введите имя «Кв2″​мастера выберите параметр​Добавить​
          ​На странице​ Для этого:​
          ​ поле страницы может​ компании есть сводная​ наименованию товара раскроется​ столбцу таблиц Excel​3. на основании​
          ​wbTarget.SaveAs arFiles​
          ​.DisplayStatusBar = True​DrAlexAcula​
          ​ на помощь :3​ маленькая проблема: в​
          ​ Где моя ошибка?​: Здравствуйте! Ситуация такая:​ и повторите процедуру​в нескольких диапазонах консолидации​
          ​.​Шаг 3​Щелкните стрелку рядом с​ содержать отдельный элемент​
          ​ таблица расходов, с​ и будет видно​
          ​ будут производить сравнения,​
          ​ этой таблицы строится​
          ​End If​
          ​For i =​: Евгений,​
          ​Скрытый текст Так,​ VBA я вообще​ В моем примере​ имеется файл эксель​ для диапазонов «Кв3″​
          ​, а затем нажмите​Совет:​
          ​укажите, следует ли​ панелью инструментов и​
          ​ с данными по​ помощью консолидации данных​
          ​ цифры по каждому​ объединения и расчеты.​
          ​ сводная (после отработки​End​​ 1 To UBound(arFiles)​благодарю покорно! Действительно,​
          ​ сделал себе вот​
          ​ ни в зуб​
          ​ не суммируется столбец​
          ​ с двумя сводными​ и «Кв4».​ кнопку​
          ​ Если диапазон ячеек находится​
          ​ добавлять сводную таблицу​
          ​ выберите​
          ​ каждому из этих​
          ​ можно объединить такие​ филиалу отдельно.​Открываем новую книгу​ макроса обновить сводную​
          ​save_err:​.StatusBar пролечено пациентов».​
          ​ таблицами на разных​
          ​Если в разделе​
          ​Далее​
          ​ в другой книге,​
          ​ на новый или​Дополнительные команды​ отделов, а также​ значения в корпоративный​Например, здесь видно, что​
          ​ Excel, где будет​ таблицу)​
          ​MsgBox «Книга не​ файла » &​ ничего не соображаю,​
          ​ через «запись макроса»:​
          ​ вижу, как можно​The_Prist​
          ​ листах. Исходные данные​Во-первых, укажите количество полей​.​ сначала откройте ее,​
          ​ же на существующий​.​ элемент, содержащий сводные​
          ​ отчет о расходах.​
          ​ всего молока продано​
          ​ находиться наша сводная​в макросах не​
          ​ сохранена!», vbCritical​
          ​ i & «​
          ​ видать ^^​
          ​ Sub Adjust() ‘​
          ​ дополнить макрос таким​: Очень интересно. А почему​
          ​ отсутствуют. Вопрос: можно​
          ​ страницы сводной таблицы​
          ​На странице​ чтобы упростить выбор​

          ​ лист, и нажмите​​В списке​
          ​ данные. В примере​ Такой отчет может​ на 186 000.​ таблица. Делаем первую​ силен, вполне возможно,​End With​ из » &​Осталось разобраться с​ ‘ Adjust Макрос​ образом, чтоб он​ тогда во вложении​ ли их объединить​задано число​Шаг 2а​ данных.​ кнопку​Выбрать команды из​

          ​ ниже показана сводная​​ содержать итоговые и​ руб., из них:​ ячейку активной.​ что где-то чего-то​End Sub​ UBound(arFiles)​ макросом на слияние​ ‘ ‘ Сочетание​
          ​ не просто сливал​ пример с моего​ в одну сводную​2​выберите параметр​Нажмите кнопку​Готово​выберите пункт​ таблица, в которой​

          ​ средние данные по​​ первый филиал продал​Заходим на закладку​ не предусмотрел -​тэги: слияние книг,​
          ​Set wbSrc =​ книг. ​ клавиш: Ctrl+m ‘​ книги в одну,​ сайта?​ таблицу. Если можно,​
          ​, выполните аналогичные действия​Создать поля страницы​
          ​Далее​.​Все команды​
          ​ выбраны одно поле​ продажам, текущим уровням​ на 60 000​ «Данные» в разделе​ заранее извиняюсь​
          ​ сливание, объединение, VBA​ Workbooks.Open(arFiles(i), ReadOnly:=True)​P.S. Галина, и​ Range(«1:1,2:2» 😉 .Select​ но еще и​
          ​А не суммирует​ то объясните как​ в поле​, а затем нажмите​.​

          ​Чтобы включить одно поле​

          Как соединить две сводные таблицы в одну

          Если вы ещё не знакомы со сводными таблицами, то начните с этой статьи.

          Проблема

          Бывает так, что анализируемые данные попадают к нам в виде отдельных таблиц, которые, тем не менее, нужно связать. Это легко может сделать MS Access, а в Excel для этого приходилось всегда использовать формулы типа ВПР (VLOOKUP). Однако, начиная с Excel 2013, у нас появилась возможность при построении сводной таблицы в качестве источника использовать несколько таблиц, связанных между собой по ключевым полям.

          Пример

          В нашем примере мы располагаем 4-мя таблицами: Заказы , Строки заказов , Товары , Клиенты .

          Таблица Строк заказов:

          Исходные таблицы оформлены в виде умных таблиц: Orders , OrderLines , Goods и Clients .

          Вполне очевидно, что таблицы Orders и OrderLines могут быть связаны по полю ID_Заказа , таблицы Orders и Clients — по полю ID_клиента , таблицы OrderLines и Goods — по полю ID_товара .

          Скачать пример

          Создание модели данных

          Создадим сводную таблицу на основе любой из имеющихся таблиц.

          1. Выбираем в меню Вставка пункт Сводная таблица . В указанном диалоговом окне мы видим опцию Добавить эти данные в модель данных . Мы могли бы её выбрать, но я рекомендую другой, более удобный способ. Просто нажмите OK .
          2. В появившейся панеле Поля сводной таблицы вы видите надпись ДРУГИЕ ТАБЛИЦЫ.
          3. Нажмём её. Появится такой вопрос:
          4. Отвечаем Да и видим, что в список полей добавились все наши таблицы:
          5. Если вы начнёте выбирать поля, то через некоторое время в списке полей появится кнопка СОЗДАТЬ.
          6. Нажмём её и создадим связи между нашими таблицами. Так создаётся связь между таблицей Orders и OrderLines . Обратите внимание, что Excel умеет создавать связь типа » один к одному » или » один ко многим «. Причём первой надо указывать таблицу, где «много», в противном случае Excel ругается и предлагает поменять их местами.
          7. Аналогично создаём другие связи.
          8. В диалоговое окно Управление связями можно попасть через ленту АНАЛИЗ команда Отношения
          9. Чтобы видеть больше полей на панеле Поля сводной таблицы , можно через кнопку Сервис (в виде шестерёнки) выбрать это представление:
          10. Результат будет таким:
          11. В результате все наши таблицы теперь связаны и вы можете сформировать, к примеру, такой отчёт:

          Просто и удобно!

          Читайте также:

          Введение в сводные таблицы
          Автоматизация форматирования сводных таблиц

          Порядок вывода комментариев:

          0

          2 dsb75 (19.08.2015 12:14) [Материал]

          Проблема, поднятая Николаем очень правильная. Тут действительно не всё так просто. Поэтому подумал, что мой ответ будет интересен и другим читателям этой статьи:
          ————————————-
          Николай,здравствуйте.

          Я понимаю ваши затруднения. Например, чтобы посчитать стоимость какого-либо
          товара в заказе, надо [OrderLines].[количество]
          умножить на [Goods].[Цена]. Это делается при помощи
          вычисляемого поля, которое вы создать в меню Анализ сводной таблицы не можете,
          так как эта таблица построена на основе Модели данных, а это уже часть PowerPivot функционала. Добавлять
          вычисляемый столбец надо через модуль PowerPivot,
          который у вас в Excel будет
          только в версии Prof Plus. Речь идёт про MS Office 2013.

          0

          1 dsb75 (19.08.2015 12:13) [Материал]

          Получил такое письмо:
          ——————————-
          Денис, здравствуйте,
          спасибо за вашу статью про сводные таблицы по нескольким диапазонам.
          http://perfect-excel.ru/publ. -1-0-67

          не могли бы вы подсказать, как с помощью сводных таблиц узнать стоимость
          заказов из вашего примере.

          например, построить такие отчеты.

          — вид продукта — общая стоимость согласно заказам
          — клиент — общая сумма заказов
          — заказ № — стоимость заказа
          и т.п.

          именно через сводные таблицы, а не модификацией текущих четырех таблиц.
          Заранее большое спасибо.

          Как соединить две сводные таблицы в одну

          Если Вы скачали или приобрели надстройку PLEX для Microsoft Excel и у Вас есть вопросы или пожелания — Вам сюда.

          Как обновить надстройку. (Пользователь Google) 22.12.2023 23:26:38
          Оффтопьте на здоровье
          Обучение основам Excel . (tutochkin) 24.01.2024 21:53:33
          Обсуждение функционала, правил и т.д.
          Обновление количества п. (Jack Famous) 29.12.2023 10:33:06
          Сейчас на форуме
          Всего зарегистрированных пользователей: 130479
          Приняло участие в обсуждении: 48205
          Всего тем: 152620
          Всего сообщений: 1200710
          есть новые сообщения
          нет новых сообщений

          © Николай Павлов, Planetaexcel, 2006-2023
          info@planetaexcel.ru

          Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

          ООО «Планета Эксел»
          ИНН 7735603520
          ОГРН 1147746834949
          ИП Павлов Николай Владимирович
          ИНН 633015842586
          ОГРНИП 310633031600071

    Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *