2 документа в одной книге excel

Как быстро объединить несколько файлов Excel

Мы рассмотрим три способа объединения файлов Excel в один: путем копирования листов, запуска макроса VBA и использования инструмента «Копировать рабочие листы» из надстройки Ultimate Suite.

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

Ниже вы найдете несколько хороших способов, позволяющих реализовать объединение.

• Самое простое — копировать вручную.
• Объединение файлов Excel при помощи VBA.
• Как объединить несколько файлов с помощью Ultimate Suite.

Примечание. В этой статье мы рассмотрим, как копировать листы из нескольких книг Excel в одну книгу. Если вы ищете быстрый способ скопировать данные с нескольких листов на один общий лист, вы найдете подробную инструкцию в другой статье: Как объединить несколько листов в один.

Простой метод — копировать листы руками.

Если вам нужно объединить всего пару файлов Excel, вы можете вручную скопировать или переместить листы из одного файла в другой. Вот как это можно сделать:

1. Откройте книги, которые мы планируем объединить.
2. Выберите листы в исходной книге, которые вы хотите скопировать в основную книгу.

Чтобы выбрать несколько листов, используйте один из следующих приемов:

• Чтобы выбрать соседние листы, щелкните вкладку первого, который вы хотите скопировать, нажмите и удерживайте клавишу Shift, а затем щелкните вкладку последнего. Это действие выберет все листы между ними.
• Чтобы выбрать несмежные, удерживайте клавишу Ctrl и щелкайте вкладку каждого из них по отдельности.
• Выделив все нужные листы, щелкните правой кнопкой мыши любую из выделенных вкладок и выберите «Переместить» или «Копировать…» .

1. В диалоговом окне «Перемещение или копирование» выполните следующие действия:
   • В раскрывающемся списке «Переместить выбранные листы в книгу» выберите целевую книгу, в которую вы хотите объединить другие файлы.
   • Укажите, где именно должны быть вставлены вкладки. В нашем случае мы выбираем вариант вставки в конец списка.
   • Установите флажок «Создать копию», если хотите, чтобы исходные данные оставались оригинальном файле.
   • Нажмите ОК, чтобы завершить операцию.

Чтобы объединить вкладки из нескольких файлов Excel, повторите описанные выше шаги для каждой книги отдельно.

Замечание. При копировании листов вручную помните о следующем ограничении, налагаемом Excel: невозможно переместить или скопировать группу листов, если какой-либо из них содержит «умную» таблицу. В этом случае вам придется либо преобразовать таблицу в диапазон, либо использовать один из других методов, не имеющих этого ограничения.

Как объединить файлы Excel с VBA

Если у вас есть несколько файлов Excel, которые необходимо объединить в один файл, более быстрым способом будет автоматизировать процесс с помощью макроса VBA.

Ниже вы найдете код VBA, который копирует все листы из всех файлов Excel, которые вы выбираете, в одну книгу. Этот макрос MergeExcelFiles написан Алексом.

Важное замечание! Макрос работает со следующим ограничением — объединяемые файлы не должны быть открыты физически или находиться в памяти, в буфере обмена. В таком случае вы получите ошибку во время выполнения.

Sub MergeExcelFiles()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook
 
    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
 
    If (vbBoolean <> VarType(fnameList)) Then
 
        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0
 
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
 
            Set wbkCurBook = ActiveWorkbook
 
            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1
 
                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
 
                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next
 
                wbkSrcBook.Close SaveChanges:=False
 
            Next
 
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
 
            MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If
 
    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    End If
End Sub

Как добавить этот макрос в книгу

Если вы хотите вставить макрос в свою книгу, выполните следующие обычные действия:

1. нажимать Alt + F11 , чтобы открыть редактор Visual Basic.
2. Щелкните правой кнопкой мыши ThisWorkbook на левой панели и выберите « Вставить» > « Модуль» в контекстном меню.
3. В появившемся окне (Окно кода) вставьте указанный выше код.

Более подробная инструкция описана в разделе Как вставить и запустить код VBA в Excel .

Кроме того, вы можете загрузить макрос в файле Excel, открыть его в этой книге (включить выполнение макросов, если будет предложено), а затем переключиться на свою собственную книгу и нажать Alt + F8 для его запуска. Если вы новичок в использовании макросов в Excel, следуйте подробным инструкциям ниже.

Как использовать макрос MergeExcelFiles

Откройте файл Excel, в котором вы хотите объединить листы из других книг, и выполните следующие действия:

1. Нажмите комбинацию Alt + F8, чтобы открыть окно диалога.
2. В разделе « Имя макроса» выберите MergeExcelFiles и нажмите «Выполнить».

1. Откроется стандартное окно проводника, вы выберите одну или несколько книг, которые хотите объединить, и нажмите «Открыть» . Чтобы выбрать несколько файлов , удерживайте нажатой клавишу Ctrl, указывая на их имена.

В зависимости от того, сколько файлов вы выбрали, дайте макросу несколько секунд или минут для их обработки. После завершения всех операций он сообщит вам, сколько файлов было обработано и сколько листов было объединено:

Как объединить несколько файлов с помощью Ultimate Suite.

Если вам не очень комфортно с VBA и вы ищете более простой и быстрый способ объединить файлы Excel, обратите внимание на инструмент «Копирование листов (Copy Sheets)» — одну из более чем 60 функций, включенных в невероятно функциональную программу Ultimate Suite for Excel. Она работает в версиях Excel 2010-2019.

С Ultimate Suite объединение нескольких файлов Эксель в один так же просто, как раз-два-три (буквально, всего 3 быстрых шага). Вам даже не нужно открывать те из них, которые вы хотите объединить. И это могут быть два файла или несколько — не важно.

1. Открыв главную книгу, перейдите на вкладку «Ablebits Data» и нажмите «Копировать листы (Copy Sheets)» > «Выбранные в одну книгу (Selected Sheets to one workbook)».

1. В диалоговом окне выберите файлы (а в них — листы), которые вы хотите объединить, и нажмите «Далее (Next)» .

Советы:

• Чтобы выбрать все листы в определенной книге, просто поставьте галочку в поле рядом с именем книги, и все они в этом файле будут выбраны автоматически.
• Чтобы объединить листы из закрытых книг, нажмите кнопку «Добавить файлы…» и выберите столько книг, сколько нужно. Это добавит выбранные файлы только в окно копирования, не открывая их в Excel.
• По умолчанию копируются все данные. Однако, в разных листах можно выбрать разные диапазоны для объединения. Чтобы скопировать только определенную область, наведите указатель мыши на имя вкладки, затем щелкните значок    и выберите нужный диапазон. 
• При необходимости укажите один или несколько дополнительных параметров и нажмите «Копировать» . На снимке скриншоте а ниже показаны настройки по умолчанию: Вставить все (формулы и значения) и Сохранить форматирование.

Дайте мастеру копирования листов несколько секунд для обработки и наслаждайтесь результатом!

На этой странице есть подробное описание всех возможностей работы мастера копирования.

Чтобы поближе познакомиться с этим и другими инструментами для Excel, вы можете загрузить ознакомительную версию Ultimate Suite.

Итак, я надеюсь, вы получили ответ на вопрос — как быстро объединить несколько файлов Excel в один.

Как в эксель открыть два листа одной книги рядом

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

Разделение листа на области

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

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

На вкладке Вид в группе Окно нажмите кнопку Разделить.

Чтобы отменить разделение листа, нажмите кнопку Разделить еще раз.

Просмотр нескольких листов одной книги

Откройте книгу, которую нужно просмотреть.

В меню Окно выберите пункт Новое окно.

Перейдите в новое окно, а затем щелкните ярлычок листа, который необходимо просмотреть.

Повторите шаги 2 и 3 для каждого листа, который требуется просмотреть.

В меню Окно выберите пункт Расположить.

Выполните одно из указанных ниже действий.

Расположение окон

Как они должны выглядеть

Переключатель

Расположенные рядом прямоугольные области

Горизонтально сверху вниз

По горизонтали

Вертикально справа налево

По вертикали

В виде стопки сверху вниз

Установите флажок Только окна текущей книги.

Просмотр нескольких книг

Откройте все книги, которые нужно просмотреть.

В меню Окно выберите пункт Расположить.

Выполните одно из указанных ниже действий.

Расположение окон

Как они должны выглядеть

Переключатель

Расположенные рядом прямоугольные области

Горизонтально сверху вниз

По горизонтали

Вертикально справа налево

По вертикали

В виде стопки сверху вниз

Совет: Чтобы восстановить окно книги до полного размера, выберите книгу, а затем в меню Окно выберите пункт Масштаб.

Просмотр рабочих книг Excel рядом

Из этой статьи Вы узнаете, как сравнить две электронные таблицы, открыв их одновременно для просмотра в Excel 2010 (2003 – 2013).

Вам необходимо сравнить два листа Excel и для этого Вы хотите расположить их рядом. Какой бы простой ни казалась эта задача, листы каждый раз открываются в одном и том же окне. Вот беда! Итак, мы дадим Вам пошаговую инструкцию, как открыть два файла Excel (.xls или .xlsx) для просмотра, расположив их рядом. Вы можете выбрать один из следующих вариантов:

• Открыть и просматривать два листа или две рабочих книги рядом в одном окне:
  • Просматривать две разные рабочие книги одновременно
  • Просматривать одновременно два разных листа одной рабочей книги Excel

  Воспользуйтесь вкладкой Вид

  Давайте начнём с первого варианта. В начале откройте две рабочие книги, которые необходимо сравнить. На панели задач Windows появились две иконки открытых книг Excel. При нажатии на любую из них, рабочая книга открывается в одном и том же окне. Найдите раздел Window (Окно) на вкладке View (Вид) и нажмите View Side by Side (Рядом).

  

  Расположите листы как Вам нравится

  По умолчанию электронные таблицы будут показаны как отдельные горизонтальные панели. Возможно, Вы захотите изменить их ориентацию. Для этого нужно нажать кнопку Arrange All (Упорядочить все) и выбрать вариант Vertical (Слева направо), чтобы расположить книги Excel рядом вертикально в левой и правой половине окна.

  

  Есть ещё одна возможность, которая придётся Вам по вкусу. Нажмите Synchronous Scrolling (Синхронная прокрутка), чтобы пролистывать обе таблицы одновременно, сравнивать и находить отличия.

  

  Excel запомнит, какой режим просмотра Вы выбрали, и в будущем откроет файлы в таком же виде.

  Иногда бывает необходимо просматривать несколько листов одной и той же рабочей книги. Всё, что Вам нужно сделать – это открыть книгу и нажать команду New Window (Новое окно) на вкладке View (Вид). Вы можете нажать кнопку New Window (Новое окно) несколько раз, чтобы одновременно просматривать столько листов одной и той же рабочей книги, сколько потребуется.

  

  Просматривайте две (и более) рабочие книги Excel в нескольких окнах

  Вы можете просматривать сразу несколько рабочих книг Excel в отдельных окнах. Это может быть особенно удобно, если у Вас подключено два монитора. Итак, сначала открываем один файл. Затем через меню Пуск повторно запускаем Excel. В результате в этом новом окне Вы сможете открыть другую рабочую книгу и изменять ее по своему желанию.

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

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

  Как я не раз говорил, MS Excel — не просто редактор таблиц, а нечто больше, я, например, называю его «средой разработки» таблиц :).

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

  Понятно, что при одновременном открытии сразу нескольких окон документов большинство команд из меню приложения будет относиться только к активному окну документа (то есть развернутом в данный момент на экране), а не ко всем сразу.

  

  Переключение между открытыми окнами в MS Excel

  Переходы между окнами MS Excel

  Окна открытых документов MS Excel являются подчиненными по отношению к «оболочке» MS Excel, то есть окну самой программы. Это позволяет переходить между несколькими открытыми документами и располагать их на экране именно так, как удобно вам для работы с данными.

  Навигацию между открытыми окнами можно осуществлять тремя способами:

  • Щелкнуть по ярлычку MS Excel на панели задач Windows и выбрать из списка нужный табличный документ по имени. На самом деле, я всегда пользуюсь именно этим простейшим способом (можно даже нажать Alt+Tab на клавиатуре, чтобы перейти к списку открытых окон и выбрать нужное).
  • Перейти в MS Excel на вкладку «Вид», в группе инструментов «Окно» выбрать инструмент «Перейти в другое окно» и щелкнуть на имени нужного вам документа из списка открытых в настоящий момент.
  • В любом из окон MS Excel Нажмите комбинацию клавиш Ctrl+F6 или Ctrl+Tab для перехода к следующему окну табличного редактора (и Ctrl+Shift+F6 или Ctrl+Shift+Tab для движения в обратном направлении).

  

  Просмотр нескольких документов MS Excel на экране одновременно

  Как открыть Excel в двух окнах (ну или в трех-четырех…)

  Совсем недавно, рассказывая об разбиении рабочего листа excel на 2 или 4 части, я говорил о том, как это удобно — иметь возможность видеть на одном экране разные области данных из одного документа. Но как быть, когда нужно сравнить данные находящиеся даже не в пределах одного, а сразу в нескольких разных табличных документах?

  У экселя есть вполне неплохая штатная возможность организовать просмотр и сравнение сразу нескольких документов открытых в разных окнах.

  Перейдите на вкладку «Вид», в группе инструментов «Окно» выберите инструмент «Упорядочить всё».

  После его активации появится дополнительное окно «Расположение окон», где вам стоит выбрать как именно вы желаете расположить открытые в настоящий момент окна. Наиболее оптимальным мне представляется самый первый режим «Рядом» — тогда все открытые окна MS Excel стараясь сохранить их пропорции, размещает «плиткой» на экране и вы без труда можете ориентироваться между ними.

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

  Естественно, чем меньше окон табличного редактора открыто, тем удобнее будет работа — если документов больше 4-х, а у вас экран монитора меньше 17 дюймов — сравнивать данные в таком случае будет довольно неудобно.

  

  Все открытые окна табличного редактора будут упорядочены и помещены на один экран.

  Как сравнить документы Excel?

  Да, но иногда нужно кое что больше, верно? Я имею виду ситуации, когда надо не просто иметь на экране данные из нескольких таблиц MS Excel, но и возможность сравнивать их буквально строка в строку, например, при отслеживании изменений в разных версиях одного и того же документа?

  Есть в экселе инструмент и для этого.

  Перейдите на вкладку «Вид», в группе инструментов «Окно» выберите инструмент «Рядом».

  Программа предложит на выбор список открытых в настоящее время документов excel — выберите из списка тот, с которым нужно сравнить активное в настоящий момент окно.

  Сразу после выбор оба документа окажутся один над другим, на одинаковых позициях. Попробуйте прокрутить мышью один из них, заметили? Оба открытых документа синхронизованы прокруткой и при сдвиге одного на n позиций вверх или вниз, а также влево или вправо, на столько же позиций сдвинется и второй документ.

  Этот режим чрезвычайно удобен для обнаружения различий между версиями документов и сравнении различий.

  

  Сравнение версий документов в MS Excel. Прокрутка обоих документов синхронизирована по вертикали и горизонтали

  Ещё одно полезное клавиатурное сокращение, которое стоит взять на вооружение пользователям Excel — Ctrl+F10. Это сокращение отменяет все операции с окнами и возвращает все открытые окна табличного редактора в привычной вид по-умолчанию.

  Смело пользуйтесь им, если запутались и решили начать попытки по укрощению окон экселя с начала!

  Просмотр двух или более листов одновременно

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

  На вкладке Вид в группе Окно щелкните Новое окно.

  

  На вкладке вид в группе окно выберите команду представление рядом .

  В окне каждой книги щелкните лист, который нужно сравнить.

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

  Примечание: Этот параметр доступен, только если включен режим Рядом.

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

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

  Откройте обе книги, которые содержат листы для сравнения.

  На вкладке вид в группе окно выберите команду представление рядом .

  

  Если открыто больше двух книг, в приложении Excel отобразится диалоговое окно Сравнить рядом. В разделе Сравнить рядом с щелкните книгу, которая содержит лист для сравнения с активным листом, и нажмите кнопку ОК.

  В окне каждой книги щелкните лист, который нужно сравнить.

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

  Примечание: Этот параметр доступен, только если включен режим Рядом.

  Начиная с Excel 2013 книги, которые вы открыли в Excel, больше не отображаются в нескольких окнах книг в одном окне Excel. Вместо этого они выводятся в отдельных окнах Excel. Благодаря этому открытые книги отображаются с собственной лентой и их можно просматривать на разных мониторах.

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

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

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

  Выполните одно из указанных ниже действий.

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

  Щелкните лист, который нужно просмотреть.

  На вкладке Вид в группе Окно щелкните Новое окно.

  

  Повторите шаги 1 и 2 для каждого листа, который требуется просмотреть.

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

  На вкладке Вид в группе Окно выберите пункт Упорядочить все.

  В разделе Расположить щелкните необходимый параметр.

  Если все листы, которые нужно просмотреть, находятся в активной книге, установите флажок Только окна текущей книги.

  Совет: Чтобы восстановить окно книги до полного размера, нажмите кнопку развертывание в правом верхнем углу окна книги.

  Эта функция пока не доступна в Excel в Интернете.

  Если у вас есть классическое приложение Excel, вы можете открыть книгу с помощью кнопки Открыть в Excel и одновременно просматривать несколько листов.

  Дополнительные сведения

  Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

  См. также

  Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

  Просмотр рабочих книг Excel рядом

  Из этой статьи Вы узнаете, как сравнить две электронные таблицы, открыв их одновременно для просмотра в Excel 2010 (2003 – 2013).

  Вам необходимо сравнить два листа Excel и для этого Вы хотите расположить их рядом. Какой бы простой ни казалась эта задача, листы каждый раз открываются в одном и том же окне. Вот беда! Итак, мы дадим Вам пошаговую инструкцию, как открыть два файла Excel (.xls или .xlsx) для просмотра, расположив их рядом. Вы можете выбрать один из следующих вариантов:

  • Открыть и просматривать два листа или две рабочих книги рядом в одном окне:
    • Просматривать две разные рабочие книги одновременно
    • Просматривать одновременно два разных листа одной рабочей книги Excel

    Воспользуйтесь вкладкой Вид

    Давайте начнём с первого варианта. В начале откройте две рабочие книги, которые необходимо сравнить. На панели задач Windows появились две иконки открытых книг Excel. При нажатии на любую из них, рабочая книга открывается в одном и том же окне. Найдите раздел Window (Окно) на вкладке View (Вид) и нажмите View Side by Side (Рядом).

    

    

    Расположите листы как Вам нравится

    По умолчанию электронные таблицы будут показаны как отдельные горизонтальные панели. Возможно, Вы захотите изменить их ориентацию. Для этого нужно нажать кнопку Arrange All (Упорядочить все) и выбрать вариант Vertical (Слева направо), чтобы расположить книги Excel рядом вертикально в левой и правой половине окна.

    

    Есть ещё одна возможность, которая придётся Вам по вкусу. Нажмите Synchronous Scrolling (Синхронная прокрутка), чтобы пролистывать обе таблицы одновременно, сравнивать и находить отличия.

    

    Excel запомнит, какой режим просмотра Вы выбрали, и в будущем откроет файлы в таком же виде.

    Иногда бывает необходимо просматривать несколько листов одной и той же рабочей книги. Всё, что Вам нужно сделать – это открыть книгу и нажать команду New Window (Новое окно) на вкладке View (Вид). Вы можете нажать кнопку New Window (Новое окно) несколько раз, чтобы одновременно просматривать столько листов одной и той же рабочей книги, сколько потребуется.

    

    Просматривайте две (и более) рабочие книги Excel в нескольких окнах

    Вы можете просматривать сразу несколько рабочих книг Excel в отдельных окнах. Это может быть особенно удобно, если у Вас подключено два монитора. Итак, сначала открываем один файл. Затем через меню Пуск повторно запускаем Excel. В результате в этом новом окне Вы сможете открыть другую рабочую книгу и изменять ее по своему желанию.

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

    Как в Excel 2010 или 2007 открыть документ в отдельном окне (на два монитора) ?

    В Windows 7 редактор таблиц Microsoft Excel 2007 и 2010 открывает документы в одном и том же окне, что доставляет неудобство при работе с двумя файлами одновременно на двух мониторах. То есть не получается разделить два документа на разные экраны. Рассмотрим несколько простых способов решения такой задачи.

    

    Итак, как разделить документы Excel на два монитора?

    Есть несколько способов:

    1. Повторно запускать Microsoft Excel (например из меню “Пуск”) – и в нём уже открывать документ. Т.е. сначала один раз открываете сам Excel, затем в нём свой документ. Второй раз открываете Excel, – в нём другой документ. В этом случае таблицы будут в отдельных окнах. Но такой способ не очень удобен тем, что нужно вручную не забывать каждый раз открывать сначала само приложение Excel, затем уже документ. И к тому же в этом случае будет расходоваться больше оперативной памяти системы.
    2. Самый простой способ – установить небольшой патч от Microsoft. Он автоматически проделает все необходимые настройки реестра Windows. При этом сделает на всякий случай резервные копии веток вашего реестра на рабочий стол, чтобы Вы могли вернуть его первоначальное состояние.

    Просто скачайте и установите MicrosoftEasyFix50801.msi с нашего сайта.

    

    Установка патча проводится как обычно, при этом автоматически создается точка восстановления системы. После завершения на рабочем столе создаются бэкапы изменяемых веток реестра, на случай если “что-то пошло не так”.

    

    Теперь при щелчке на документы Excel, они каждый раз будут открываться в отдельном окне, и их можно будет распределить на два монитора:

    

    Третий способ – ручной, правка реестра самостоятельно, через regedit.exe

    Шг 1. Необходимо изменить значение ветви HKEY_CLASSES_ROOTExcel.Sheet.12shellOpen

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

    Нажимаем правой кнопкой мыши на нужном разделе, “Эскпортировать” и сохраняем файл резервной копии ветки реестра в какую-нибудь папку.

    

    Шаг 2. Откройте двойным щелчком значение (По умлочанию) параметра Opencommand, измените строку на:

    • “C:Program FilesMicrosoft OfficeOffice14EXCEL.EXE” “%1” – для Офиса 2010
    • “C:Program FilesMicrosoft OfficeOffice12EXCEL.EXE” “%1” – для Офиса 2007

    * ОБЯЗАТЕЛЬНО СО ВСЕМИ КАВЫЧКАМИ!

    

    Шаг 3. Измените значение параметра command следующим образом: в конце строки значение /dde – на “%1”. Если у вас Офис 2007 – то замените /e на “%1”.

    Больше здесь ничего менять не нужно:

    

    Шаг 4. Переименуйте название раздела ddeexec на любое иное значение, например ddeexec2.

    

    Шаг 5. Повторите шаги 1-4 для ключей реестра: HKEY_CLASSES_ROOTExcel.Sheet.8shellOpen

    

    Теперь всё, окна экселя должны открываться отдельно, и документы Excel можно разделить на два монитора!

    Многооконный режим Excel 2010

    Как настроить Excel 2010, чтобы можно было по-умолчанию открывать 2-3-4. и более документов Excel в отдельных окнах и без . этого самого, как его.
    Совет, как открыть 2 документа в разных окнах одноразово – такой совет я в этих ваших интернетах нашел уже. Но геморой каждый раз не устраивает. Люди на фирме открывают документы сотнями каждый день.

    P.S. Суть работы заключается в обработке данных разбитых на 3-4 книги Excel, в каждой из которых до нескольких десятоков страниц, некоторые представлены сводными таблицами. Это комплект документов на определенную дату. Дней в году – 365. Представляете масштаб проблемы? Открой так сначала Excel, а из него документ. И сопоставь данные в них, если они так по-скотски открываются в одном окне.

    Сведения о вопросе

    Как я решил эту проблему. Windows 7 +MS Office 2010

    Способ первый
    1. Создаем ярлык на Excel.exe, например Excel.lnk.
    2. Переносим его в %userprofile%sendto
    3. Нажимаем правой кнопкой на нужной книге и выбираем в контекстном меню Отправить->Excel , книга откроется в новом окне.

    + Простой и всем доступный способ
    – Выбрать сразу несколько файлов, а затем выполнить действия пункта 3 не приведут к желаемому результату, каждый файл нужно открывать таким способом отдельно.

    Способ второй
    Изменение реестра. Сохраняйте разделы реестра перед внесением изменений!
    1. Открываем редактор реестра .
    2. Для каждого типа файла Excel нужно найти соответствующий раздел, пример для .xls:
    идем в раздел HKEY_CLASSES_ROOT.xls и смотрим на значение (Default), видим – “Excel.Sheet.8″. Т.е. нам нужно править раздел HKEY_CLASSES_ROOTExcel.Sheet.8.
    3. Изменяем в разделе HKEY_CLASSES_ROOTExcel.Sheet.8shellOpencommand ключ:
    (Default) на – “C:Program Files (x86)Microsoft OfficeOffice14EXCEL.EXE” /n “%1”
    command на – xb’BV5. MKKSkEXCELFiles>VijqBof(Y8’w!FId1gLQ /n “%1”
    Т.е. заменяем концовку (/dde) на /n “%1”
    4. Удаляем или переименовываем раздел HKEY_CLASSES_ROOTExcel.Sheet.8shellOpenddeexec.
    Теперь можно выбрать сразу несколько .xls файлов или один, и открыть их, каждый из них откроется в отдельном окне.
    5. Повторяем пункты 2-4 для каждого, нужного вам, типа файла Excel.

    + Можно открывать в отдельных окнах сразу несколько выбранных файлов .
    – Не будет доступно переключение между окнами в Excel через Вид-> Перейти в другое окно .
    – Для того чтобы книги открывались как раньше (в одном окне) необходимо все разделы реестра вернуть исходное состояние.

    Для типов файлов Excel .xls, xlsx, xlsm и xlst я выложил 2 reg файла:
    ExcelOpenInSeparateWindows_ON – включение открытия каждой книги в отдельном окне ;
    ExcelOpenInSeparateWindows_OFF – отключение открытия каждой книги в отдельном окне;
    просто запустите их для внесения изменений в реестр (нужны права администратора). Скачать файлы можно по ссылке.

    Открытие двух окон в Excel одновременно

    Возможно ли как-то сделать, чтоб при открытии книги открывалось сразу два окна с определенными листами? (Возможно ли сделать, чтоб открывалось окно на 13 рабочей области) мб VBA, макросы как-то помогут?

    

    1 ответ 1

    В Excel можно открыть два листа в разных окнах.

    После открытия книги (описано для Excel-2010):

    Вкладка на ленте Вид-Новое_окно(нажать), нажать Восстановить_окно (в правом верхнем углу, возле кнопок Закрыть), после этого задать требуемый размер окон, их расположение, выбрать нужные листы.

    Все это можно проделать автоматически.

    P.S. Хитрый “постскриптум” – вынесен выше текста, к которому данное примечание, т.к. решение, показанное здесь, лучше макроса, показанного ранее.

    Макрос предложил ikki:

    В модуль ЭтаКнига вставить код, который сработает после активации книги:

    Чем решение лучше предыдущего: не нужно задавать размеры окон, достаточно указать расположение окон (в данном случае – указав константу xlVertical)

    Если же есть желание задать размеры окон в коде, то см. код ниже.

    В модуль ЭтаКнига вставить код, который сработает после активации книги:

    Выбирается один из листов Worksheets(“имя_листа1”), задаются размеры окна (Width, Height) и его положение (Top, Left), активируется второй лист, выбирается положение этого окна (Left). Параметры Width, Height, Top для второго окна закомментированы. Если нужно задать параметры, отличные от параметров первого окна, строки нужно раскомментировать (убрать апостроф) и вписать нужные числа.

    Окна созданы, но возможен вариант, при котором после открытия книги окна развернуты (видимо только одно). Например, такое может быть при наличии другого кода, который разворачивает окно на весь экран (может быть прописан не в данной книге, а в личной книге макросов).

    Для отображения созданных окон:

    в общий модуль ставить код

    на листе разместить какой-либо элемент управления, объект(можно вкладка Вставка-Фигуры, выбрать объект), правый клик на объекте, Назначить_макрос(выбрать название макроса, здесь two_window)-ОК.

    Все. После открытия книги нужно нажать кнопку – два окна открыты, можно работать.

Объединение копий общей книги

​Смотрите также​​ листа Лист2​ это отвечает Cells(rrow,​Я перелазил кучу​ .Show = 0​ при объединении файлов​ подписывал листы, на​ листе может быть​ с названиями в​ в поле​Консолидация​ Office 2011 г.​ изменения из образца.​ JSON и XML.​>​Не удается выполнить слияние​ его копию с​Примечание:​Заранее благодарю​ 6), у меня​ форумов и нашел​

​ Then Exit Sub​​ в один меняются​ которые он копирует,​ одна табличка, а​ других исходных областях,​Все ссылки​.​ ​При загрузке процедуры объединения​На вкладке​Из папки​ книги, если она​ уникальным именем файла,​ Мы стараемся как можно​vxg​ постоянно на нее​ только вариант где​

​ pth = .SelectedItems(1)​

​ данный, а точнее​​ именем файла, из​ иногда — несколько.​ могут привести к​.​Выберите в раскрывающемся списке​Для консолидации по расположению​ двоичных файлов в​Power Query​. Если кнопка​ еще не разрешается​ отличающимся от исходного.​ оперативнее обеспечивать вас​: Public Sub merge_wbs()​

1. ​ ругается​​ можно работать с​​ End With Application.ScreenUpdating​ переносится запятая -​ которого получены данные?​​Шапка с данными​​ появлению в консолидированных​После добавления данных из​функцию​ диапазон данных на​ Excel может появиться​, затем​Получить данные​вносить изменения несколькими пользователями…​

2. ​ Копии должны находиться​​ актуальными справочными материалами​​ Dim file_name(1 To​Ermak27​ листами, но мне​​ = False Workbooks.Open​ ​ было 30,88, а​

3. ​У себя этот​​ и их (данных)​ данных отдельных строк​​ всех исходных листов​

4. ​, которую требуется использовать​ каждом из исходных​ такое сообщение об​Из файла​не отображается, нажмите​параметр включен.​ в той же​ на вашем языке.​ 2) As String​

5. ​: подскажите плиз​ это не подходит​ pth a =​

   ​ становится 3 088​​ макром попробовал (ничего​

   • ​ последовательность всегда одинаковая.​ или столбцов.​ и книг нажмите​

   • ​ для консолидации данных.​ листов должен иметь​ ошибке:​​>​​ кнопку​

6. ​Откройте исходную общую книгу,​ папке, что и​ Эта страница переведена​

7. ​ file_name(1) = «c:test.xls»​​_Boroda_​​Вот код​​ Range(«E2:H» & Cells(Rows.Count,​ ​ 000, 00?​

8. ​ не меняя), 2​Спасибо!​

9. ​Предположим, имеется куча книг​​ кнопку​Установите флажки в группе​​ формат списка без​Если вы проигнорируете ошибки​Из папки​Новый запрос​ в которую вы​ исходная книга.​ автоматически, поэтому ее​ file_name(2) = «c:test2.xls»​: Cells(rrow, 6) это​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​​ 1).End(xlUp).Row).Value ActiveWorkbook.Close False​

​Tatiana​​ листа были названы​Pavel55​ Excel, все листы​ОК​Использовать в качестве имен​ пустых строк и​ и нажмете кнопку​.​

1. ​>​​ хотите добавить изменения.​​Попросите пользователей внести изменения​​ текст может содержать​​ Dim wb_idx As​

2. ​ ячейка, номер строки​​Option Explicit​​ lr = Cells(Rows.Count,​​: Прошу прощения, «меняются​ по имени файлов,​

3. ​: То, что табличек​ из которых надо​.​, указывающие, где в​ столбцов.​ОК​Нажмите кнопку​Из файла​В меню​

4. ​ в копии и​ неточности и грамматические​ Integer Dim ws_idx​

   ​ которой равняется значению​​Const rrow =​

   • ​ 1).End(xlUp).Row + 1​ данные» в объединяемых​ остальные — нет.​

   • ​ может быть 1​ объединить в один​Для консолидации по категории​​ исходных диапазонах находятся​​Откройте каждый из исходных​

5. ​, то процесс​Обзор​>​

6. ​Сервис​​ сохранить их.​​ ошибки. Для нас​​ As Integer Dim​​ rrow, а номер​

7. ​ 2​ Cells(lr, 1).Resize(UBound(a), UBound(a,​

   ​ файлах (не в​ Или здесь уже​ или несколько -​ файл. Копировать руками​ диапазон данных на​ названия:​ листов и убедитесь​​объединения двоичных файлов​​, чтобы перейти к​

support.office.com

Объединение файлов в папке с объединение двоичных файлов (Power Query)

​Из папки​​выберите команду​Примечания:​ важно, чтобы эта​ dest As Workbook​ столбца равняется 6​Private Sub Worksheet_Activate()​ 2)) = a​ исходном).​ это прописано, но​ это не страшно.​ долго и мучительно,​ каждом из исходных​подписи верхней строки​ в том, что​будет выполнен и​ нужной папке.​Нажмите кнопку​объединить книги…​ ​ статья была вам​ Dim wb As​

​А для правильной​Dim r As​ x = x​Pavelasd​ есть какие-то ограничения​Несколько вопросов:​ поэтому имеет смысл​ листов должен иметь​,​ данные на них​ правильно загрузит данные,​Появится список файлов в​Обзор​.​Объединить книгу можно только​

​ полезна. Просим вас​ Workbook Dim r​ работы именно этого​

​ Range, sh As​ + 1 If​: Здравствуйте!​ к именам файлов?​

​1) Всегда ли​​ использовать несложный макрос.​ формат списка без​значения левого столбца​ расположены одинаково.​ несмотря на это​

1. ​ папке. Нажмите кнопку​​, чтобы перейти к​​Если появится запрос, сохраните​​ с копиями, созданными​​ уделить пару секунд​​ As Integer Dim​​ макроса нужно:​​ Worksheet, ind&​​ MsgBox(«Добавлено файлов: «​​Нужно объединить несколько​​Заранее спасибо)​ лист, на котором​​Открываем книгу, куда хотим​​ пустых строк и​​либо оба флажка​​На конечном листе щелкните​​ сообщение. Мы работаем​

   

2. ​Изменить​​ нужной папке.​​ книгу.​ из оригинала.​

   ​ и сообщить, помогла​ c As Integer​1. сохранить книгу​Application.ScreenUpdating = False​ & x &​ файлов Excel с​Shtirlitz​ находятся таблички называется​​ собрать листы из​​ столбцов. Кроме того,​

   

3. ​ одновременно.​ верхнюю левую ячейку​ над устранением этой​​, чтобы открыть редактор​​Появится список файлов в​​В диалоговом окне Навигация​​Не удается выполнить слияние​​ ли она вам,​​ Set dest =​ в формате xlsx​Range(«a» & rrow​ vbLf & vbLf​ таблицами одинаковой структуры​: Ошибся… те листы,​ «EXEMPLE»? Или он​​ других файлов, входим​​ категории должны быть​Выделите на каждом листе​ области, в которой​ ошибки.​ запросов. В этом​ папке. В этом​ по файлам щелкните​ книги, если она​

   

4. ​ с помощью кнопок​ Application.Workbooks.Add For wb_idx​ или xlsb​ & «:ar» &​ & «Добавить ещё​ (одинаковые столбцы) в​ которые он назвал,​​ может называться по​​ в редактор Visual​​ названы одинаково. Например,​​ нужные данные. Не​ требуется разместить консолидированные​Примечание:​ примере мы загрузим​ случае мы загрузили​ копию книги, которая​ еще не разрешается​ внизу страницы. Для​ = 1 To​2. заменить все​ Cells(rrow, 2).End(xlDown).Row).Clear​ файл?», vbYesNo +​

​ одну таблицу.​ были просто так​ любому, но он​ Basic (​

​ если один из​​ забудьте включить в​ данные.​Мы стараемся как​ четыре книги Excel.​ 4 книг Excel.​

1. ​ содержит изменения, которые​​вносить изменения несколькими пользователями…​​ удобства также приводим​​ 2 Set wb​​ ar на NA​​For Each sh​​ vbInformation, «Сообщение») =​

   

2. ​Через параметры и​​ же названы. В​​ тогда должен быть​ALT+F11​

   ​ столбцов называется​ них ранее выбранные​​Примечание:​​ можно оперативнее обеспечивать​Убедившись в том, что​ Подтвердив, в котором​ вы хотите объединить,​

   

3. ​параметр включен.​ ссылку на оригинал​ = Application.Workbooks.Open(file_name(wb_idx)) For​3. заполнить в​​ In Worksheets​​ vbYes Then GoTo​​ настройку таблицы добавил​​ общем, он копирует​

   

4. ​ всегда ОДИН в​), добавляем новый пустой​Сред.​​ данные из верхней​​ Убедитесь, что справа и​​ вас актуальными справочными​​ все нужные файлы​​ располагаются все файлы,​​ а затем нажмите​Откройте исходную общую книгу,​ (на английском языке).​ ws_idx = 1​ листах 1-3 столбец​With sh​​ begin_ Else a​​ кнопку «Сравнить и​

   

5. ​ листы с исходным​ книге. (кстати, правильно​ модуль (в меню​, а другой —​ строки или левого​ снизу достаточно свободных​ материалами на вашем​ присутствуют в списке,​ которые вы хотите​​ кнопку​​ в которую вы​

   

   ​Важно:​ To wb.Worksheets.Count wb.Activate​ B в тех​If .Index <>​ = Range(«A2:D» &​

6. ​ объединить книги», но​ именем… Можно ли​ «example» пишется через​Insert — Module​Среднее​ столбца.​ ячеек для консолидированных​​ языке. Эта страница​​ нажмите в столбце​​ выберите параметр​​ОК​ хотите добавить изменения.​ В этой статье описан​ wb.Worksheets(ws_idx).UsedRange.Select Selection.Copy r​ строках, которые нужно​ ActiveSheet.Index Then​ Cells(Rows.Count, 1).End(xlUp).Row).Value With​ она почему-то не​ всё-таки как-то сделать​ «a»​) и копируем туда​, консолидация не просуммирует​

Известные проблемы

​Путь к файлу вводится​ данных.​ переведена автоматически, поэтому​Содержимое​Объединить & Загрузка​

​.​На​​ способ объединения копий​​ = dest.Worksheets(ws_idx).UsedRange.Rows.Count c​​ скопировать.​​Set r =​ CreateObject(«Scripting.Dictionary») For i​ активна. В чём​ так, чтобы он​2) Устроит ли​ текст вот такого​

support.office.com

Объединение данных с нескольких листов

​ эти столбцы.​​ в поле​На вкладке​ ее текст может​кнопку​.​Примечание:​панели быстрого доступа​ общей книги. Общие​ = dest.Worksheets(ws_idx).UsedRange.Columns.Count dest.Activate​Хотя я бы​ .Range(«a» & rrow​ = 1 To​ может быть причина.​ ориентировался на название​ вас такой вариант​ макроса:​Откройте каждый из исходных​Все ссылки​Данные​ содержать неточности и​Объединить двоичные данные​

​Анализ каждого файла и​Мы стараемся как​нажмите кнопку​ книги использовались ранее​ dest.Worksheets(ws_idx).Cells(r, c).Select dest.Worksheets(ws_idx).Paste​ написал немного иначе.​ & «:ar» &​ UBound(a) .Item(a(i, 1))​И ещё. Главные​ файла?​ — будет один​Sub CombineWorkbooks() Dim​ листов.​.​в группе​ грамматические ошибки. Для​.​ определяется в правильном​ можно оперативнее обеспечивать​Сравнить и объединить книги​ для организации совместной​ Next wb.Close Next​

​ Но и так​ .Cells(.Rows.Count, 2).End(xlUp).Row)​ = .Item(a(i, 1))​ столбцы в этих​Pavel55​ общий файл (с​ FilesToOpen Dim x​На конечном листе щелкните​После добавления данных из​Работа с данными​ нас важно, чтобы​Будет выполнен анализ каждого​ формате, например​ вас актуальными справочными​.​ работы нескольких пользователей.​ dest.SaveAs («c:res.xls») End​ работает.​

​r.Copy Cells(rrow +​ + a(i, 4)​ таблицах — это​

Консолидация по расположению

​: А можно уточняющий​ макросом), куда будет​ As Integer Application.ScreenUpdating​ верхнюю левую ячейку​ всех исходных листов​нажмите кнопку​ эта статья была​

1. ​ файла и определен​текстовый​ материалами на вашем​Если появится запрос, сохраните​ Эта функция имеет​

2. ​ Subправда меня выкидывает​Есть два файла excel​ ind, 1)​ Next lr =​ номера инвойсов и​

   ​ вопрос. Допустим мы​​ собираться инфо с​ = False ‘отключаем​ области, в которой​ и книг нажмите​

3. ​Консолидация​​ вам полезна. Просим​​ правильный формат, например​​,​​ языке. Эта страница​​ книгу.​​ множество ограничений и​

   

4. ​ на методе селект,​​ с одной вкладкой​​ind = ind​ Cells(Rows.Count, 1).End(xlUp).Row If​

5. ​ суммы по ним.​ имеет «Общий» файл,​

   ​ разных файлов. Если​ обновление экрана для​​ требуется разместить консолидированные​​ кнопку​

6. ​.​ вас уделить пару​текстовый​Excel​​ переведена автоматически, поэтому​​В диалоговом окне​

Консолидация по категории

​ была заменена функцией​ в чем трабл​ каждый. Как объединить​ + r.Rows.Count​ lr > 1​ Так вот, как​ в который будем​ это вас НЕ​ скорости ‘вызываем диалог​ данные.​ОК​​Выберите в раскрывающемся списке​​ секунд и сообщить,​​,​​или​ ее текст может​

1. ​Выберите, какие файлы включить​ совместного редактирования. Совместное​

2. ​ неопределился​ их в один,​End If​ Then Range(«A2:D» &​ можно сделать так,​

   ​ копировать листы с​​ устроит, то где​ выбора файлов для​Примечание:​.​

3. ​функцию​​ помогла ли она​​Excel​​JSON​​ содержать неточности и​​ в книгу​​ редактирование позволяет гораздо​

   

4. ​Апострофф​​ с двумя вкладками?​​End With​ lr).ClearContents Cells(2, 1).Resize(.Count,​

5. ​ чтобы при объединении​​ других книг. Открываем​​ должен храниться сам​ импорта FilesToOpen =​ Убедитесь, что справа и​​Примечание:​​, которую требуется использовать​​ вам, с помощью​​или​. В этом случае​

6. ​ грамматические ошибки. Для​щелкните копию книги,​ эффективнее объединять изменения​:​ Если делать выделить​Next​ 2) = Application.Transpose(Array(.Keys,​

   ​ одни и те​ первую книгу с​​ макрос, который будет​​ Application.GetOpenFilename _ (FileFilter:=»All​

7. ​ снизу достаточно свободных​ Любые названия, не совпадающие​ для консолидации данных.​ кнопок внизу страницы.​​JSON​​ отображается список листов​

   ​ нас важно, чтобы​​ изменения из которой​ и доступно в​Select​ все и копировать,​Application.ScreenUpdating = True​ .Items)) End With​ же номера инвойсов​

Консолидация по расположению

​ навазванием «Доходы.xls», в​ собирать инфо?​ files (*.*), *.*»,​ ячеек для консолидированных​ с названиями в​Выделите на каждом листе​ Для удобства также​

1. ​. В этом примере​ данными из первой​ эта статья была​ вы хотите добавить.​ некоторых версиях Excel,​

2. ​работает только с​ то при выставлении​End Sub​ End If Application.ScreenUpdating​ не повторялись, а​

   ​ ней 3 листа.​​3) В вашей​ _ MultiSelect:=True, Title:=»Files​ данных.​ других исходных областях,​

3. ​ нужные данные.​​ приводим ссылку на​​ отображается список листов​​ книги в Excel.​​ вам полезна. Просим​​ Чтобы одновременно объединить​​ включая Excel 2016 для​

   

4. ​ активным листом!​​ меняется размер строк​​Я ниже прикрепил​ = True Beep​

5. ​ как бы объединялись,​ Мы их копируем​ табличке некоторые строки​​ to Merge») If​​На вкладке​

   ​ могут привести к​Путь к файлу вводится​​ оригинал (на английском​​ из первой книги​

6. ​ Выберите лист, который​ вас уделить пару​ несколько копий, щелкните​ подписчиков Office 365.​​wb.Activate wb.Worksheets(ws_idx).Activate ‘!!!​​ и столбцов и​

Консолидация по категории

​ свой пример, подскажите​ MsgBox «Готово!» End​ т.е. чтобы в​ в «Общий» файл​ были скрыты -​ TypeName(FilesToOpen) = «Boolean»​Данные​ появлению в консолидированных​ в поле​ языке) .​ Excel. Выберите нужный​​ хотите использовать, а​​ секунд и сообщить,​​ их имена, удерживая​​Windows macOS ​ wb.Worksheets(ws_idx).UsedRange.Select Selection.CopyИ использование​

1. ​ фотографии не переносятся.​ пожалуйста как решить​

2. ​ Sub​ объединённой таблице встретился​ и называем все​ ничего страшного не​ Then MsgBox «Не​

   ​в разделе​​ данных отдельных строк​Все ссылки​Если данные, которые требуется​ лист и нажмите​

3. ​ затем и нажмите​​ помогла ли она​​ нажатой клавишу CTRL​​Важно:​​Select​​Китин​​ эту проблему!​

   

4. ​GIKS​​ номер этого инвойса​​ 3 листа «Доходы»?​ будет, если макрос​

5. ​ выбрано ни одного​​Сервис​​ или столбцов.​.​ проанализировать, представлены на​​ кнопку​​кнопку ОК​​ вам, с помощью​​ или SHIFT, а​ Прежде чем продолжить, необходимо​

6. ​в подобных случаях​: открываешь оба файла.​KuklP​: У меня один​ только один раз,​ Excel не даст​ будет раскрывать скрытые​ файла!» Exit Sub​​нажмите кнопку​​Для консолидации по расположению​

   ​После добавления данных из​ нескольких листах или​​ОК​​. Двоичные файлы объединения​

7. ​ кнопок внизу страницы.​ затем нажмите кнопку​ убедиться, что вы​ абсолютно нецелесообразно!​​ в одном на​​: Для двух книг​

   ​ вопрос: а как​​ но чтобы сумма​ присвоить нескольким листам​ строки?​ End If ‘проходим​Консолидация​ диапазон данных на​ всех исходных листов​

support.office.com

Сборка листов из разных книг в одну

​ в нескольких книгах,​.​ преобразования будет процесс,​ Для удобства также​ОК​ хотите использовать этот​Достаточно вместо этих​ листе правой кнопкой.​

​ быстрей скопировать вручную,​ переделать макрос чтоб​ по этому инвойсу​ одно и тоже​P.S. постараюсь сегодня-завтра​​ по всем выбранным​​.​ каждом из исходных​​ и книг нажмите​​ их можно объединить​Начнется процесс преобразования. Автоматически​ а затем автоматическое​

​ приводим ссылку на​.​ метод. Общие книги​ четырёх строк иметь​ переместить/скопировать. сверу выбираешь​ чем писать макрос.​ он копировал данные​ была суммой из​ имя. Или в​ написать макрос​ файлам x =​Выберите в раскрывающемся списке​ листов должен иметь​ кнопку​ на одном листе​ будет создан запрос​ создание запроса на​ оригинал (на английском​Важно:​ имеют ограничения, а​

​ всего одну. wb.Worksheets(ws_idx).UsedRange.copy​ файл №2.ОК. все​ А для Вас​ с ячеек A2​​ сумм по этому​ файле из которого​v_v_s​​ 1 While x​​функцию​​ формат списка без​ОК​ с помощью команды​ на объединение данных​ объединение данных из​ языке) .​ Прежде чем продолжить, вы​ один из них​

planetaexcel.ru

Объединение данных из разных файлов Excel в один

​ регионального представительства, с​​ просмотра. Если он​Если исходные файлы будут​

​ объединить несколько файлов,​​ книги имеют ограничения,​ мы настоятельно рекомендуем​тут перечислять имена​ по Листу​http://forum.msexcel.ru/index.php/topic,7217.msg46197.html#new​ = .Item(a(i, 1))​ объединить, если они​: Ну если имена​ Распакуйте его в​Сервис — Макрос -​, указывающие, где в​ в том, что​ листов должен иметь​ помощью консолидации можно​ вас устраивает, нажмите​ изменены, вы всегда​ которые имеют одинаковые​ поэтому мы настоятельно​ использовать совместное редактирование,​ всех файлов?​Переместить копировать​Ermak27​ + a(i, 4)​ в разных папках,​

​ листов совпадают, то​​ любую пустую папку​ Макросы (Tools -​ исходных диапазонах находятся​ данные на них​ формат списка без​ создать на базе​ кнопку​ сможете обновить импортированные​ схемы, из одной​ рекомендуем использовать вместо​
​ которое является заменой​vxg​и добавлю еще​: Может кто подскажет​ что упустил из​ просто выделив все​ он будет просто​ на вашем компьютере.​ Macro — Macros)​ названия:​
​ расположены одинаково.​

​ пустых строк и​​ этих данных корпоративный​Закрыть и загрузить​ данные. Щелкните любое​ папки в одну​ них совместное редактирование.​ для общих книг.​: это просто для​ один способ:​RAN​ виду?​ эти папки?​

​ в скобках приписывать​​ Откройте файл «Общий​или нажав​подписи верхней строки​На конечном листе щелкните​ столбцов. Кроме того,​ лист расходов. Такой​.​ место в диапазоне​ таблицу. В качестве​На вкладке​Откройте вкладку​ примера. у вас​топнули правой мышкой​: Подсказываю​kalbasiatka​Спасибо​ (2), (3) и​ файл — макрос.xls»​ALT+F8​,​ верхнюю левую ячейку​

​ категории должны быть​​ лист может содержать​Когда процесс объединения двоичных​ данных, а затем​ примера объединение книг​Рецензирование​Рецензирование​ эти имена могут​ на пересечении букв​http://www.excel-vba.ru/chto-um….li-knig​: Если почитать первый​Pavelasd​ т.д., по крайней​ (название можете поменять).​. Отобразится диалоговое окно​значения левого столбца​
​ области, в которой​ названы одинаково. Например,​ итоговые и средние​ файлов завершится, данные​ на вкладке​

​ бюджета для нескольких​​нажмите кнопку​

​и посмотрите, есть​​ быть сохранены где​ и цифр​Но согласен с​ пост, то возможно,​

​: пример файла для​​ мере. когда я​ В нём находится​ открытия файла, где​либо оба флажка​ требуется разместить консолидированные​ если один из​ данные по продажам,​ листов из списка​Работа с запросами​

​ отделов, где столбцы​​открыть книгу​ ли на ней​ нибудь в текстовом​копировать​

planetaexcel.ru

Объединение нескольких файлов в один

​ предыдущим оратором​​ станет ясно, что​
​ объединения​ этот макрос использовал,​ макрос «CombineTables». Запустите​ необходимо указать один​ одновременно.​
​ данные.​ столбцов называется​ текущим уровням запасов​ будут консолидированы на​нажмите кнопку​ те же, но​.​
​ кнопка​ файле, книге или​и вставить в​Ответ на ЛС.​ тут не про​kalbasiatka​ он так и​ этот макрос (через​ или несколько (удерживая​Выделите на каждом листе​Примечание:​Сред.​ и наиболее популярным​ одном листе.​Обновить​ количество строк и​На вкладке​Общий доступ к книге​ даже на одном​ это же место​Ermak27​ копирование диапазонов был​
​: Что будет с​ делал, там в​ Alt+F8). Макрос просмотрит​ CTRL или SHIFT)​ нужные данные. Не​ Убедитесь, что справа и​
​, а другой —​

​ продуктам в рамках​​Если исходные файлы будут​. Кроме того, можно​

​ значений различия между​​Правка​. Если кнопки нет,​ из листов​ на другом файле​: Подскажите пожалуйста почему​ разговор.​

​ датами, да и​​ файлах были имена​ каждый файл в​

​ файлов, листы из​​ забудьте включить в​ снизу достаточно свободных​
​Среднее​
​ всей организации.​ изменены, вы всегда​ легко применить дополнительные​ книгами.​нажмите кнопку​ ее необходимо отобразить.​ultrastar​Лаззат сейтбаева​ у меня выдает​Отбирались уникальные значения​ прочими данными одинаковых​ лист1, лист 2​ текущей папке и​ которых надо добавить​ них ранее выбранные​ ячеек для консолидированных​, консолидация не просуммирует​Тип консолидации следует выбирать​ сможете обновить импортированные​ этапы для преобразования​Более новые версии​Разрешить изменения для нескольких​ Кроме того, потребуется​: какие именно? объяснить​: Abram Pupkin спс​ ошибку​ и суммы по​ инвойсов, или надо​ и т.д., просто​ если на листе​ к текущей книге.​ данные из верхней​ данных.​ эти столбцы.​ с учетом того,​ данные. Щелкните любое​ или извлечения данных,​ Office 2010 –​ пользователей…​ отобразить кнопку «Сравнить​ безтолковому как сделать,​ за картинку​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«a» & rrow &​ ним.​ только инвойс и​ в скобках добавлялись​ «Example» (переименовывать нельзя)​Чайник​

​ строки или левого​​На вкладке​Откройте каждый из исходных​ как выглядят объединяемые​ место в диапазоне​ изменив автоматически созданный​ 2013 ​
​Попросите других пользователей открыть​ и объединить книги».​ если например файлы​Ооо кирус​ «:ar» & Cells(rrow,​Вам бы другую​ сумма?​

​ цифры.​​ есть таблица, в​: День добрый!​ столбца. Затем нажмите​Данные​ листов.​ листы. Если данные​
​ данных, а затем​ запрос-образец. При этом​Чтобы начать процесс объединения​
​ файл и сохранить​ В этой статье​ называются 1,2,3,4 и​

CyberForum.ru

Объединить книг в одну книгу (Объединить книг в одну книгу)

​: ОГРОМНОЕ СПАСИБО!​​ 6).End(xlDown).Row).Clear​ тему создать со​Pavelasd​Но вообще хотелось​ столбце «B» которой​Может, кто может​ кнопку​в разделе​На конечном листе щелкните​ на листах расположены​ на вкладке​ не нужно изменять​
​ нескольких файлов, сначала​ его копию с​ объясняется, как отобразить​ т.д.​ultrastar​файл прикрепил ниже​
​ своим вопросом.​
​: да, надо только​
​ бы в идеале,​
​ есть слово "sku",​ помочь с таким​
​Добавить​
​Сервис​ верхнюю левую ячейку​ единообразно (названия строк​
​Работа с запросами​
​ или добавлять этапы​ поместите их все​ уникальным именем файла,​
​ эти кнопки.​vxg​
​: Добрый день, нужно​
​_Boroda_​Ermak27​
​ инвойс и сумма​ чтобы имена листов​ перенесёт эту таблицу​ вопросом.​
​.​нажмите кнопку​
​ области, в которой​ и столбцов могут​
​нажмите кнопку​
​ запроса-функции, так как​
​ в одну папку.​
​ отличающимся от исходного.​
​На вкладке​

​: пусть полные имена​ объединить около 30​: А почему у​: Добрый день! Столкнулся​

​kalbasiatka​​ давались по названию​ на новый лист​Есть несколько файлов​Путь к файлу вводится​Консолидация​ требуется разместить консолидированные​
​ при этом различаться),​Обновить​
​ в него будут​

​Примечание:​​ Копии должны находиться​

​Рецензирование​​ наших файлов лежат​
​ книг Excell с​
​ Вас rrow=6, а​ с такой проблемой,​
​: Зачем «*» в​

​ файлов…​​ файла «Общий файл​ с данными.​ в поле​
​.​ данные.​ воспользуйтесь консолидацией по​
​. Кроме того, можно​

​ автоматически перенесены все​​ Поддерживаются файлы Excel и​ в той же​или на панели​

​ во внешнем TXT​​ одинаковым количеством и​ не 10?​ есть две книги​ номере инвойса​гость​ — макрос.xls». Потестируйте​Есть ли возможность​Все ссылки​Выберите в раскрывающемся списке​Примечание:​ расположению. Если же​ легко применить дополнительные​

​ изменения из образца.​​ Access, текстовые файлы,​

​ папке, что и​​ быстрого доступа нажмите​ файле​ названием листов.​Ermak27​ каждая книга для​
​Примерно так:​: пробл​ макрос. Если будут​
​ объединить их в​.​функцию​
​ Убедитесь, что справа и​ на листах для​
​ этапы для преобразования​Чтобы начать процесс объединения​ а также файлы​ исходная книга.​ кнопку​
​Open «C:names.txt» For​Нужно чтобы объединяло​: Да заметил ошибочка​ каждой организации, они​

excelworld.ru

Два файла excel в как объединить в один файл с двумя вкладками?

​Sub добавить() Dim​basta​ замечания — пишите.​ один новый файл​После добавления данных из​, которую требуется использовать​ снизу достаточно свободных​ соответствующих категорий используются​ или извлечения данных,​ нескольких файлов, сначала​ в форматах CSV,​

​Попросите пользователей внести изменения​​Общий доступ к книге​ Input As #1​ по листам.​ вышла, я не​ туда заполняют данные​

​ i&, lr&, x&​​: Я так полагаю,​Shtirlitz​
​ ?​ всех исходных листов​
​ для консолидации данных.​

​ ячеек для консолидированных​ одинаковые названия строк​
​ изменив автоматически созданный​ поместите их все​ JSON и XML.​
​ в копии и​
​.​ Do While Not​Т.е. например на​

​ понимаю почему он​​ и есть итоговая​ Dim a() begin_:​

​ вопрос с добовлением​​: Подскажите, плиз, а​

Нужно объединить около 30 книг Excel в одну соответственно по листам

​Пример и то,​​ и книг нажмите​Выделите на каждом листе​ данных.​ и столбцов (данные​ запрос-образец. При этом​
​ в одну папку.​Щелкните на вкладке «​
​ сохранить их.​Установите флажок​ EOF(1) Line Input​ листе1 были все​ мне копирует шапку,​ книга по этим​ With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear​
​ цифр так и​

​ как доработать макрос​​ что хотелось бы​ кнопку​ нужные данные и​На вкладке​ при этом могут​ не нужно изменять​Примечание:​данные​Примечания:​Разрешить изменять файл нескольким​ #1, file_name ‘делаем​ данные с 30​ шапка у меня​ организация, как автоматически​ .Filters.Add «Microsoft Excel​ не решился да?​ таким образом, чтобы​ получить во вложении.​ОК​ нажмите кнопку​Данные​ быть расположены по-разному),​ или добавлять этапы​ Поддерживаются файлы Excel и​» выберите​ ​ пользователям одновременно…​ нечто с этим​ книг листа1, на​ идет до 10​

​ собрать данные с​​ files», «*.xls» .AllowMultiSelect​​Tatiana​​ при копировании из​Проблема, как вы​
​.​Добавить​​в группе​​ используйте консолидацию по​ запроса-функции, так как​
​ Access, текстовые файлы,​Получение данных​Объединить книгу можно только​

​.​​ файлом Loop Close​
​ листе2 все данные​
​ строчки и можете​
​ двух книг в​ = False .InitialFileName​

​: Подскажите, пожалуйста, почему​​ разных книг в​ заметите, в том,​Примечание:​.​Работа с данными​ категории.​ в него будут​ а также файлы​

​>​​ с копиями, созданными​Попросите других пользователей открыть​ #1​ с 30 книг​ объяснить за что​

​ итоговую?​​ = ThisWorkbook.Path If​ такое может происходить:​ один файл он​ что иногда на​
​ Любые названия, не совпадающие​Путь к файлу вводится​нажмите кнопку​Более новые версии​ автоматически перенесены все​ в форматах CSV,​Из файла​ из оригинала.​

CyberForum.ru

​ файл и сохранить​

Содержание

• 1 Одновременная работа пользователей в одной книге
• 2 Объединение листов разных рабочих книг в одну
• 3 Объединение диапазонов значений из разных листов разных рабочих книг на отдельном листе
  • 3.1 Другие материалы по теме:

Вам когда-нибудь приходилось сводить несколько таблиц Excel в одну? Самое неприятное в этом процессе, обычно, заключается в том, что эти таблицы могут содержать сразу по несколько листов внутри каждого файла. Есть ли решение данной проблемы? Сегодня вы об этом узнаете.

Объединим несколько файлов Excel в один, воспользовавшись силой скрипта VBA

Этот способ сделает все за вас, но только вам придется немного под напрячься. Хорошо, если у вас есть хоть какие-то навыки программиста. Но, если вы полный чайник в Excel и, вообще, в компьютере, то переходите ко второму способу, либо, будьте очень внимательными.

Итак, приступим.

Как и в методе «Как объединить несколько файлов Ворд в один», во-первых, прежде чем дать команду объединить несколько таблиц в одну в Excel, вам нужно эти таблицы собрать в одну отдельную папку. Посмотрите на скриншоте, как я это сделал.

Теперь запустим программу VBA. Прочитайте в «Запуск скрипта VBA в Word», потому что принцип в Excel тот же самый.

Теперь, когда вы готовы, вот сам код скрипта:

Sub GetSheets()   Path = "Укажите пусть до папки с файлами Excel"   Filename = Dir(Path & "*.xls")   Do While Filename  ""   Workbooks.Open Filename:=Path & Filename, ReadOnly:=True   For Each Sheet In ActiveWorkbook.Sheets   Sheet.Copy After:=ThisWorkbook.Sheets(1)   Next Sheet   Workbooks(Filename).Close   Filename = Dir()   Loop   End Sub

Прошу обратить внимание на две строчки.

1. Path = «Укажите пусть до папки с файлами Excel». Конечно, надпись в кавычках нужно заменить. Например, я заменил на … и вот, что у меня получилось: Path = » D:mrUnrealistDocumentsНовая папка»
2. Filename = Dir(Path & «*.xls»). В кавычках указан формат файла. В Excel их, обычно, два: .xls и .xlsx. Нажмите на файл правой кнопкой мыши и посмотрите «Свойства» файла. В скобках указан правильный тип файла.несколько таблиц в одну excel

Этот код подойдет, если нужно объединить все листы в один файл Эксель. Но, если вам необходимо объединить определенные листы некоторых файлов, переходите к следующему способу.

Функция «Переместить/скопировать» поможет объединить несколько листов Excel в один файл

В этом методе мы научимся копировать листы из одного файла Excel в другие.

1. Откройте все файлы, из которых вы собираетесь копировать листы, и тот файл (это может быть и новая пустая книга Эксель), в котором будут эти листы собраны.
2. Теперь откройте книгу, из которой будете копировать листы. Выберите те листы, которые вам нужны. Для множественного выбора держите зажатой клавиши CTRL (для выбора отдельных листов), либо SHIFT (для выбора всех вместе листов).
3. Нажмите по имени листа правой кнопкой мыши и в контекстном меню выберите пункт «Переместить/скопировать».
4. В окне «Переместить или скопировать» выберите из списка «Переместить выбранные листы в книгу» нужную вам книгу. Т.е. ту, где вы собираете все листы вместе. А в списке «Перед листом» укажите место, где эти листы будут вставлены.
   Если вы не желаете, чтобы ваши листы пропали из открытой книги, поставьте галочку «Создать копию».
5. Нажмите на кнопку «ОК» и выбранные листы будут перемещены или скопированы.
6. Повторяйте со второго пункта до тех пор, пока вы не получите должного результата.

На этом все. Подписывайтесь, вступайте в группу вКонтакте или ОК, комментируйте, и не забывайте делиться с другими!

Оценка статьи:

(

votes, average:

out of 5)

Как объединить несколько файлов Excel в один Ссылка на основную публикацию

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

Одновременная работа пользователей в одной книге

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

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

Объединение листов разных рабочих книг в одну

Объединение разных файлов в один либо определенных листов в одну книгу имеет разнообразные решения. Это и стандартный вариант с копированием и вставкой листов в нужную книгу, и использование макросов, и установка дополнительных программ, специализирующихся на объединении файлов, таких например, как MergeExcel. У каждого из этих способов есть свои плюсы и свои минусы. Со своей стороны хочу предложить еще один способ решения задачи по объединению листов из разных книг в одну. Не разбираясь с программным кодом макросов и не устанавливая дополнительных программ, можно быстро расширить Excel новыми возможностями, используя дополнение, называемое надстройкой.

Надстройка по объединению различных файлов  в один создана на основе макроса VBA, но выгодно отличается от него удобством в использовании. Надстройка легко подключается и запускается одним нажатием кнопки, выведенной прямо в главное меню, после чего появляется диалоговое окно. Далее все интуитивно понятно, выбираются файлы, выбираются листы этих файлов, выбираются дополнительные параметры объединения и нажимается кнопка «Пуск».

видео по работе с надстройкой

макрос (надстройка) для объединения нескольких файлов Excel в одну книгу

Надстройка позволяет:

1. Одним кликом мыши вызывать диалоговое окно макроса прямо из панели инструментов Excel;

2. выбирать файлы для объединения, а также редактировать список выбранных файлов;

3. объединять все листы выбранных файлов в одну рабочую книгу;

4. объединять в рабочую книгу только непустые листы выбранных файлов;

5. собирать в итоговую книгу листы с заданным именем (можно использовать маску при помощи спец. символов совпадения);

6. собирать в одну книгу листы выбранных файлов с определенным номером (индексом), либо диапазоном номеров;

7. собирать листы с определенным значением в заданном диапазоне ячеек;

8. задавать дополнительные параметры для объединения, такие как присвоение листам имен объединяемых файлов и удаление из книги, в которой происходит объединение данных, собственных листов, которые были в этой книге изначально.

При необходимости имена листов сформированной рабочей книги можно быстро изменить при помощи надстройки для автоматического переименования листов.

Объединение диапазонов значений из разных листов разных рабочих книг на отдельном листе

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

Другие материалы по теме:

Предположим, имеется куча книг Excel, все листы из которых надо объединить в один файл. Копировать руками долго и мучительно, поэтому имеет смысл использовать несложный макрос.

Открываем книгу, куда хотим собрать листы из других файлов, входим в редактор Visual Basic (ALT+F11), добавляем новый пустой модуль (в меню Insert — Module) и копируем туда текст вот такого макроса:

   Sub CombineWorkbooks()      Dim FilesToOpen      Dim x As Integer        Application.ScreenUpdating = False  'отключаем обновление экрана для скорости            'вызываем диалог выбора файлов для импорта      FilesToOpen = Application.GetOpenFilename _        (FileFilter:="All files (*.*), *.*", _        MultiSelect:=True, Title:="Files to Merge")        If TypeName(FilesToOpen) = "Boolean" Then          MsgBox "Не выбрано ни одного файла!"          Exit Sub      End If            'проходим по всем выбранным файлам      x = 1      While x