Макрос для слияния данных при серийной печати рассылок в Excel

Аннотация

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

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

• В основном документе содержится текст, являющийся одинаковым для всех выходных документов. В документе может содержаться бланк, текст и инструкции в полях слияния для вставки текста (такого как имена и адреса получателей) для отдельных выходных документов.

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

• Результатом слияния являются выходные документы. Текст всех выходных документов может быть одинаковым, но возможно форматирование отдельных документов.

Шаг 1. Настройка файла данных Excel

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

• В первой строке должны содержаться имена полей для каждого столбца, например: «Должность», «Приветствие», «Имя», «Отчество», «Фамилия», «Адрес 1» и «Адрес 2».

• Все имена полей должны быть уникальными.

• В каждой строке должны содержаться сведения об определенном элементе. Например, в списке рассылки в каждой строке может содержаться информация о конкретном получателе.

• В таблице не должно быть пустых строк.

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

Сохраните и закройте файл данных Excel после его создания.

Дополнительные сведения о создании списка адресов для слияния см. в следующей статье базы знаний Майкрософт:

294688 Разработка и создание списка адресов для слияния в Word 2002 и более поздних версиях Word

Шаг 2. Настройка основного документа

1. В Microsoft Office Word 2003 или более ранней версии программы Word наведите указатель на пункт Письма и рассылки в меню Сервис, затем щелкните Мастер слияния.
   
   В Microsoft Office Word 2007 щелкните Начать слияние в группе Начать слияние на вкладке Рассылки, а затем щелкните Пошаговый мастер слияния.

2. В списке Выбор типа документа выберите Письма.
   
   Активный документ становится основным документом. Основной документ содержит текст и графические элементы, которые будут одинаковыми для всех версий объединенного документа. Например, обратный адрес и приветствие в стандартном письме будут одинаковыми для всех версий.

3. Нажмите кнопку Далее. Открытие документа.

4. Выполните одно из следующих действий.
   

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

   • Начать с шаблона. Для этого выполните следующие действия.
     

     1. Щелкните Шаблон.
        

     2. Щелкните Выбор шаблона.

     3. На вкладке Слияние выберите шаблон, который требуется использовать в диалоговом окне Выбор шаблона, а затем нажмите кнопку OК.

   • Начать с существующим документом. Для этого выполните следующие действия.
     

     1. Щелкните Существующий документ.

     2. В поле Существующий документ выберите нужный документ и щелкните Открыть.

     3. Если документ отсутствует, щелкните Другие файлы, затем щелкните Открыть. Выберите нужный документ в диалоговом окне Открыть и нажмите кнопку Открыть.

5. Нажмите кнопку Далее. Выбор получателей.

Шаг 3. Указание источника данных Excel

1. В группе Выбор получателей щелкните Использование списка.

2. Нажмите кнопку Обзор.

3. В диалоговом окне Выбор источника данных выберите нужный лист Excel.
   
   По умолчанию в программе Word открывается папка «Мои источники данных».

4. Нажмите кнопку Открыть.

5. Если на листе Excel содержится информация на нескольких вкладках, выберите вкладку с нужными сведениями и нажмите кнопку OК.

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

Шаг 4. Выбор получателей

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

   • Укажите получателей с помощью флажков.
     
     Этот способ является наиболее предпочтительным вариантом, если ваш список короткий. Установите флажки для получателей, которых необходимо включить, и снимите флажки для получателей, которых необходимо исключить.
     
     Примечание. Если известно, что в слияние необходимо включить большую часть получателей в списке, щелкните Выбрать все, затем снимите флажки для определенных получателей. Аналогично, если необходимо включить только несколько записей в списке, щелкните Очистить все, затем выберите нужные записи.

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

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

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

     2. Щелкните один из следующих параметров:
        

        • (Пустые): отображение всех записей, в которых соответствующее поле является пустым.

        • (Непустые): отображение всех записей, в которых соответствующее поле содержит информацию.

        • Если в источнике данных содержатся записи с идентичной информацией и в столбце содержится не более десяти уникальных значений, можно выполнить фильтрацию по определенной информации. Например, если для нескольких адресов в качестве страны указана Австралия, можно выполнить фильтрацию по значению Австралия.

   • В диалоговом окне Получатели слияния отображаются только назначенные записи. Чтобы снова отобразить все записи, щелкните (Все).

   Примечания.

   • Для расширенной сортировки и фильтрации щелкните стрелку рядом с именем какого-либо столбца, затем щелкните (Дополнительно). Для настройки запроса на сортировку или фильтрацию используйте вкладки Отбор записей и Сортировка записей.

   • Если установлено программное обеспечение для проверки адресов, щелкните Проверить в диалоговом окне Получатели слияния для проверки адресов получателей.

2. Нажмите кнопку OК для возврата к мастеру слияния.
   
   Программа Word будет использовать получателей, назначенных для слияния.

3. Нажмите кнопку Далее. Создание письма.
   

Шаг 5. Написание письма и добавление полей слияния

Если это еще не было сделано, введите в основной документ текст, который будет приведен на каждом бланке письма.

Вставка полей слияния

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

1. В основном документе щелкните то место, в которое необходимо вставить поле.

2. Вставьте один из следующих параметров.
   

   • Адресный блок с именем, адресом и другой информацией.
     

     1. Щелкните Блок адреса.

     2. В диалоговом окне Вставка блока адреса выберите элементы адреса, которые необходимо включить, и нужные форматы, затем нажмите OК. Чтобы получить справку по параметру, щелкните вопросительный знак, а затем щелкните параметр.
        
        

     3. Чтобы получить справку по параметру, щелкните вопросительный знак, а затем щелкните параметр. Если появилось диалоговое окно Подбор полей, возможно, программе Word не удалось найти определенную информацию для блока адреса. Щелкните стрелку рядом с полем (отсутствует), затем выберите поле в источнике данных, соответствующем полю, необходимому для слияния.

   • Строка приветствия:
     

     1. Щелкните Строка приветствия.

     2. Выберите формат строки приветствия, включающий приветствие, формат имени и соответствующие знаки препинания.

     3. Выберите текст, который будет отображаться в тех случаях, когда программе Word не удается интерпретировать имя получателя. Например, программа Word не сможет интерпретировать имя, если в источнике данных для получателя указано только название компании, а имя и фамилия отсутствуют.
        

     4. Нажмите кнопку ОК.

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

   • Другие поля с информацией:
     

     1. Щелкните Другие элементы.

     2. Выполните одно из следующих действий.
        

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

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

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

     4. Щелкните Вставить, а затем Закрыть.

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

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

     1. Щелкните Почтовая марка.
        
        Если программное обеспечение для работы с электронными почтовыми марками не установлено, появляется запрос на его установку и предложение подключиться к следующему веб-узлу Microsoft Office:

        Печать электронных почтовых марок
        http://office.microsoft.com/services/service.aspx?sid=2.4

     2. Вставьте марку в соответствии с инструкциями программы.

   • Для добавления электронной почтовой марки необходимо установить соответствующее программное обеспечение, приобретенное у стороннего поставщика в Интернете. Для использования электронной почтовой марки выполните следующие действия. Почтовый штрихкод: Необходимо выбрать тип письма или конверта с поддержкой штрихкода POSTNET. Для использования почтового штрихкода выполните следующие действия.

     1. Щелкните Почтовый штрихкод.

     2. В диалоговом окне Вставка почтового штрихкода выберите соответствующие поля адреса.
        
        Примечание. Параметр Почтовый штрихкод отображается только при использовании программы Word на английском языке (США).

     3. Повторите шаг «а» и «б» для всех полей, которые необходимо вставить. ПРИМЕЧАНИЯ.

        • Нельзя ввести символы поля слияния (" ") или вставить их с помощью команды Символ в меню Вставка.

        • Если поля слияния заключены в фигурные скобки, например { MERGEFIELD City }, программа Word вместо значений отображает коды полей. Это не влияет на слияние, но при необходимости отображения результатов правой кнопкой мыши щелкните код поля, затем выберите Коды/значения полей в контекстном меню.

     Например, при использовании приведенной простой базы данных в вашем письме могут использоваться поля AddressBlock и GreetingLine, а первая страница будет выглядеть примерно так:

     26 февраля 2002 г.
     
     AddressBlock
     
     GreetingLine
     
     Введите сообщение.
     
     С уважением,
     
     Введите свое имя.
     
     

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

Изменение формата объединенных данных

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

1. В основном документе выберите поле с информацией, которую необходимо отформатировать, включая символы, в которые заключено поле слияния (<< >>).

2. В Word 2003 и более ранних версиях щелкните Шрифт в меню Формат и установите нужные параметры.
   
   В Word 2007 щелкните нужный вариант в поле Шрифты темы в группе Шрифт на вкладке Главная.

Форматирование с помощью кодов полей

Для доступа к другим параметрам форматирования нажмите ALT+F9, чтобы отобразить коды полей, затем добавьте ключи в поля слияния. Ключ, используемый при работе с полями, является специальной инструкцией, которая приводит к выполнению определенного действия. В общем смысле ключ добавляется к полю для изменения результата.

Ниже приведены примеры использования ключей.

• Для отображения числа 34987,89 как $34 987,89 добавьте ключ числового формата (\#).

• Для печати имен клиентов в верхнем регистре добавьте ключ формата (\*).

• Чтобы размер и шрифт объединенной информации совпадали с размером и шрифтом, которые установлены для поля слияния, добавьте ключ Charformat (\*).

Шаг 6. Сохранение документа

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

1. В программе Word 2003 и более ранних версиях щелкните Сохранить как в меню Файл.
   
   В программе Word 2007 нажмите кнопку Microsoft Office и щелкните Сохранить как.

2. Укажите имя документа и нажмите кнопку Сохранить.

3. Нажмите кнопку Далее. Просмотр писем.

Шаг 7. Просмотр писем и настройка списка получателей

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

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

26 февраля 2002 г.

Александр Демидов
ул. Морская, 124
Пенза, 140052

Уважаемый Александр Демидов!

Введите сообщение.

С уважением,

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

• Для просмотра элементов по порядку используйте кнопки со стрелками влево и вправо.

• Для просмотра определенного элемента щелкните Найти получателя, затем в диалоговом окне Поиск элемента введите условие поиска.

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

• Чтобы исключить определенного получателя из слияния, щелкните Исключить получателя.

• Чтобы изменить список получателей, щелкните Изменить список получателей и внесите изменения в диалоговом окне Получатели слияния.

Шаг 8. Завершение слияния

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

Персонализация отдельных писем

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

1. Щелкните Изменить часть писем.

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

3. Нажмите кнопку ОК.
   
   Word создает и открывает новый объединенный документ. Основной документ также остается открытым, и в него можно вернуться при необходимости изменения всех документов.

4. Найдите информацию, которую необходимо изменить, и внесите изменения.

5. Напечатайте или сохраните документ так же, как и любой другой документ.

Печать писем

Для печати писем воспользуйтесь одним из указанных ниже способов.

• Если элементы персонализированы и объединенный документ является активным, выполните следующие действия.
  

  1. В программе Word 2003 и более ранних версиях выберите пункт Печать в меню Файл.
     
     В программе Word 2007 нажмите кнопку Microsoft Office и щелкните Печать.

  2. Выберите нужные параметры.

• При необходимости печати напрямую из мастера слияния выполните следующие действия.
  

  1. На шаге 6 мастера слияния (завершение слияния), щелкните Печать.

  2. В диалоговом окне Составные печатные документы воспользуйтесь одним из следующих способов и нажмите кнопку OК.
     

     • Для печати всех документов щелкните Все.

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

     • Для печати диапазона документов щелкните С и введите номера записей в поля С и До.

  3. В диалоговом окне Печать выберите нужные параметры.

Сохранение объединенных писем для последующего использования

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

1. Щелкните Изменить часть писем.

2. В диалоговом окне Составные новые документы воспользуйтесь одним из следующих способов и нажмите кнопку OК.
   

   • Для объединения всех документов щелкните Все.

   • Для слияния только документа, отображаемого в окне документа, щелкните Текущая запись.

   • Для объединения диапазона документов щелкните С и введите номера записей в поля С и До.

3. Word открывает новый документ со всеми отдельными письмами. Затем можно сохранить документ для последующего использования так же, как и любой другой документ.

Ссылки

Дополнительные сведения см. в следующих статьях базы знаний Майкрософт:

318117 Использование адресов в книге Excel для создания наклеек в Word

318115 Создание письма в Word 2002 с использованием информации из базы данных Access

318112 Использование адресов из базы данных Access 2002 для создания наклеек в Word 2002

294686 Использование слияния для создания списка, отсортированного по категории, в Word 2002 и более поздних версиях Word

290408 Часто задаваемые вопросы о слиянии в Word 2002

294688 Разработка и создание списка адресов для слияния в Word 2002 и более поздних версиях Word

294693 Использование слияния для создания каталога в Word 2002 и более поздних версиях Word

294683 Использование слияния для создания писем в Word 2002 и более поздних версиях Word

Макрос для слияния данных при серийной печати рассылок в Excel

​Смотрите также​case "qwer": .Worksheets(s).PrintOut​ листов - все​ эту строку​ Trim$(src.Cells(i, 4)) dst.Cells(3,​Потом следующие 16​ ладно, главное чтоб​ Форма по 213н!AR13​Нужно вплотную заняться​ про With https://msdn.microsoft.com/ru-ru....%3Dtrue​: Доброго времени суток!​Olga_L​ выбирай до умопомрачения.​ принтер и печатал​Естественно можно использовать другие​ ActiveWorkbook.Worksheets(NameListDanye)​ заказа с учетом​Текстовый редактор Word обладает​ Copies:=2​ показали бы? В​Selection.PrintOut Copies:=1, Collate:=True,​ 4) = sUser​ уведомлений по г.​ сами помнили...​ и сразу печатью.​ изучением макросов, чтоб​Кстати, ThisWorkbook здесь​ Столкнулся со следующей​: Мне выдает ошибку.​С уважением, Александр.​ указанный лист. т.е​ названия листов, только​Set DiapazS =​ даты его составления.​ определенной функциональностью, которой​case "tyui": .Worksheets(s).PrintOut​

Подготовка слияния данных для серийной печати рассылок в Excel

​ Вашем конкретном случае​ IgnorePrintAreas:=False​ ' Заполнить Ф.И.О.​ Зиме и т.д.​В остальном должно​Ну или даже​ другим мозг не​ вообще не нужен.​ задачей:​ Run-time error 438.​Igor67​ кнопка на котром​ не забывайте соответственно​ ListSerii.Range(AdresRekvizitov)​ Допустим на строки​ нет в Excel.​ Copies:=3​ можно было вообще​taxi_driver​ dst.Cells(5, 4) =​

1. ​ и также выводились​ работать, если код​ просто цикл от​ выносить))))​ А вот ActiveSheet​Необходим (для удобства)​ Пишет что "обьект​: С жиру не​ прописан этот макрос​ отредактировать значения в​Set DiapazD =​ реализации дается 2​
2. ​ Например, функция слияния​case else: .Worksheets(s).PrintOut​ обойтись без файла-примера,​: разобрался, почему то​ sPodr ' Заполнить​ на печать.​ в нужном месте​ 3 до 468,​ЕЩЕ РАЗ СПАСИБО!!!​ нужен​ макрос печати. Но​ не поддердивает это​ бесимся, условие классное,​ на одном листе,​

​ строках для этих​ ListDannye.Range(AdresDannye)​ недели, тогда вводим​ документов для серийной​ Copies:=1​

Создание Серийной Таблицы с шаблоном для рассылки

​ указав в вопросе:​ именно это было​ отдел. ' Очистить​С помощью ИНДЕКС​ и нигде раскладка​ подменяя число в​Timus​КодSub nameu8()​ не простой, а​ свойство или метод".​ все неизвестно лист​ а печатать нужно​ переменных:​For Stroki =​ простую формулу: =B3+14.​ печати адресов писем​end select​

​ печатать только листы,​ лишним​ табличную часть карточки​ и ПОИСКПОЗ как-то​ не перепутана. Ну​ ссылке =Бюджет!L3​: Добрый день​

​DisplayDrawingObjects = xlHide​ с выделением области​JayBhagavan​ для печати, принтер.​ другой лист.​NameListSerii = "Серии"​ 1 To DiapazD.Rows.Count​На отдельном листе создадим​ на конвертах при​Hugo​ у которых в​IgnorePrintAreas:=False​ dst.Range(dst.Cells(10, 1), dst.Cells(25,​ не получается делать​ и если кнопка​

Подготовка Таблицы Данных с реквизитами для рассылок

​Например такой код​Помогите пожалуйста. Нужно​With ActiveSheet​ печати, принудительной горизонтальной​: Подсказка была, а​ предлагили в макрорекордере​Igor67​NameListDanye = "Данные"​Stolbec = 1​ Таблицу Данных, которая​

​ массовой рассылке. Задумайтесь,​: Или так -​ ячейке, например, А1​расскажите хоть почему​ 8)).ClearContents ' Заполнить​ выборку из двух​ та​в модуль листа:​ чтобы при нажатии​.PageSetup.Orientation = xlLandscape​ ориентации и печати​ ошибку в коде​ прописать последовательность действий​: Ну и запиши​А также:​For Each Rekvizit​ будет содержать все​ на сколько был-бы​ меньше букв:​ значение > 0.​RAN​ первую строку: m​

​ таблиц (одно только​Damon2013​Sub tt() Dim​ на кнопку она​.Range("A1:O23").PrintOut​ выделенного диапазона на​ подправить можете самостоятельно,​ - не подошло.​ макрорекодером последовательность действий​AdresDannye = "A2:D20"​ In DiapazS​ переменные значения, подставляемые​ практически применим этот​Dim n As​GIG_ant​: По той же​

​ = 1: dst.Cells(10,​ поле "Территория (БП)").​: Подскажите, а как​ i& For i​ закрашивалась определенным цветом​.PageSetup.FitToPagesWide = 1​ 1 лист.​ т.к.ЦитатаOlga_L написал: Я​ Что делать дальше​ с переходом на​AdresRekvizitov = "B3,​Set Yacheyki =​ в соответственные места​ инструмент в Excel,​ Byte​: Попробуйте такую продцедуру:​ причине, по которой​ 1) = m:​

Слияние данных обеих таблиц в Excel с помощью макроса

​ реализовать второй вариант:​ = 3 To​ и отправляла на​.PageSetup.FitToPagesTall = 1​Простой макрос печати​ не прошу решить​ ? Ставь задачу,​ заданный лист, установкой​ B4, B6, B7"​ DiapazD.Cells(Stroki, Stolbec)​

​.DisplayDrawingObjects = xlHide​Olga_L​

1. ​: Например распечатать все​Лузер​ на этих листах​Next Rekvizit​ переменными значениям:​ и др. В​ = 3​ In ThisWorkbook.Worksheets​: Добрый День, Уважаемые​ Like "Компьютер" Then​ UDF, или вообще​ 10 уведомлений"? Если​ With DoEvents: DoEvents:​ образом, но чтото​
2. ​ называть что-либо (макросы,​.Worksheets(1).Range("A1:O23").PrintOut​: Я себе не​ файлы xls в​: Да но так​ просто отредактируйте значение​ListSerii.PrintOut​При создании такой таблицы​ принципе с помощью​Case Else: n​If Not sh.[A1].Value​ Дамы и Господа!​ dst.Cells(10, 2) =​ всё делать макросом.​ ок, то начинаем​ DoEvents Me.PrintOut Copies:=1​

​ не работает:​ функции, объекты, переменные,​.DisplayDrawingObjects = xlAll​ так даный макрос​ директории.​ он просто сразу​ в соответственных переменных.​Next Stroki​ мы должны придерживаться​

​ программы Word мы​ = 1​ = 0 Then​

1. ​Необходимо сделать макрос​ "Системный блок" ElseIf​ Это как я​ печать с 11​ DoEvents: DoEvents: DoEvents​200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub CommandButton1_Click()​
2. ​ ...) именами, зарезервированными​ 'xlPlaceholders​ представляла. В этом​Принтер и номер​ выводит на печать​Обратите внимание, что при​

​MsgBox ("Отравлено на​ базового правила –​ можем применять инструмент​End Select​ sh.PrintOut Copies:=1​ который будет печатать​ Trim$(src.Cells(i, 9)) Like​ понял задачу.​ и по такому​ Next End SubDoEvents​If CommandButton1.BackColor =​ в Excel или​End With​

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

​ указании несмежного диапазона​ печать" & _​ каждая строка содержит​ слияния документов так,​.Worksheets(s).PrintOut Copies:=n​Next sh​ документы из конкретной​ "Ноутбук" Then dst.Cells(10,​

​Manqix​
​ принципу до конца​ для того, чтоб​

​ vbBlack Then​ в VBA. У​

​End Sub​ почти ничего не​ в коде с​ котром был выполнен​ адреса между ячейками​CStr(Stroki - 1)​ определенную группу связанных​ чтобы импортировать данные​Guest​End Sub​

​ папки, и конкретные​ 2) = "Ноутбук"​: Здравствуйте! Был бы​ столбца (выводить по​ пока код работает​CommandButton1.BackColor = vbGreen​

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

​ понятно. Ладно.. и​

​ помощью диалогов.​
​ макрос, а мне​ мы разделяем запятыми.​

​ & " бланков")​ между собой значений.​ из Excel. Но​: Sub Печать()​Проверяется значение ячейки​ листы в каждом​

​ Else Stop '​ признателен в помощи​ 10)​ можно было ещё​CommandButton1.ForeColor = vbBlack​ "name". Не нужно​ для горизонтальной ориентации​ на том спасибо.​Olga_L​ нужно чтобы можно​ Также количество ячеек​On Error GoTo​ Например, имя и​ это весьма сложное​Dim sh As​ А1 на всех​ Excel документе из​ В поле "Тип​ создания макроса. Ввиду​Hugo121​ что-то на компе​

​CommandButton1.Caption = "Договор"​ так делать. Назовите​ и печати выделенного​ Будем разбираться​: Здравствуйте, хочу сделать​ было еще выбрать​ в каждой строке​

​ 0​

​ фамилия одного и​ и не всегда​ Worksheet​

​ листах книги, если​

​ этой папки (документы​ техники" недопустимое значение​ того что никогда​: Не проверял печать,​ делать.​Worksheets("Договор).Range("A27:AC199").PrintOut Copies:=2​

Процесс слияния данных и серийной печати рассылок из Excel

​ как-нибудь иначе. Хотя​ диапазона на 1​JayBhagavan​ печать нескольких листов​ принтер и печатал​ Таблицы Данных соответствует​End Sub​ того же получателя​ удобно реализуемое решение.​For Each sh​ не равно нулю​

​ все типовые).​ End If dst.Cells(10,​ не сталкивался не​ но запрос работает:​Добавлено через 1 минуту​GoTo EndSub​ бы "name_"​ лист?​: Olga_L, простите, что​ одной кнопкой, оптом,​ указанный лист. т.е​

​ количеству поданных адресов​В коде применяются 2​ должны находиться в​ В данном примере​ In ThisWorkbook.Worksheets​ то печатаем.​Если есть у​ 3) = src.Cells(i,​ знаю как это​For i =​

​Принудительно ставить формат​End If​BlackRaven​Заранее большое человеческое​ не угодил.​ так саказать. Но​ кнопка на котром​

​ ячеек для несмежного​ цикла:​ одной строке. Наш​ мы с помощью​If Not sh.[A1].Value​evgeny_t​

exceltable.com

Макрос печати

​ кого-то готовое решение,​​ 2) ' Конфигурация​ делать, однако выполнить​ a + 2​

​ ячейке вроде как​​EndSub:​: _Boroda_, про имя​

​ спасибо! )))​​Скрытый текст Sub jjjj()​

​ как сделать не​​ прописан этот макрос​ диапазона в Серийной​For Stroki = 1​ макрос будет по​ VBA-макроса создадим свой​ = 0 Then​: Прошу прощения за​ просьба поделиться! Спасибо!​ k = 11​ задачу надо...​ To b If​ не нужно, но​End Sub​ - я знаю,​P.S. с ориентацией​

​ var_val = Worksheets("Лист1").[H3].Value​​ знаю. При этом​ на одном листе,​ Таблице. Все данные​ To DiapazD.Rows.Count –​ строкам считывать эту​ альтернативный инструмент слияния​ sh.PrintOut Copies:=3​

​ неграмотный вопрос)​​KoGG​ For j =​Суть задания состоит​ i Mod 10​ у меня почему-то​*где Договор это​ спасибо (просто тут​ справился (вроде). Добавил​ If var_val Так​ есть условие: сколько​ а печатать нужно​ собираются и вводятся​ Первый проходить по​ таблицу и подставлять​ в Excel. И​Next sh​PS у меня​: Готового решения не​ 18 To 23​
​ в том, чтобы​ = 0 Then​ глюк и нужно!​
​ название кнопки и​ обозначил как Name.​
​ следующую строку ниже​

​ понятней?​ листов печатать -​ другой лист.{/post}{/quote}Принтер заранее​ по очереди. Например,​ всем строкам Таблицы​ взятые значения с​

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

​ If src.Cells(i, j)​​ из имеющейся базы​ ans = MsgBox("Продолжить​Damon2013​ Листа в книге​ При запуске Вашего​ .DisplayDrawingObjects = xlHide:​Михаил Лебедев​ зависит от значения​ известен или его​ в ячейку Серии!B3​ Данных. Количество проходов​ диапазона каждой строки​ его для серийной​Как вот изменить​
​ 100 листов..​

​ есть:​​ <> Empty Then​ в Excel'e, которая​ печать след. 10​: Подскажите, пожалуйста, почему​vikttur​ макроса - да,​

​Код.ActiveSheet.PageSetup.Orientation = xlLandscape​​: Если яч. H3=3,​ в конкретной ячейке.​ надо выбирать перед​ по очереди будут​ зависит от значения​ в соответственные места​

​ печати документов при​​ данный макрос? печать​Юрий М​
​Sub Печать_заданных_листов_файлов_Excel_из_папки() Dim​ dst.Cells(k, 2) =​ располагается на 3-х​ уведомлений?", vbYesNo) If​ выдает ошибку?​:​

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

​ последний страницы 1​​: Про главное опять​ MyPath$, MyFileName$, ShName,​
​ src.Cells(i, j) k​ листах:​ ans = 7​
​---------------------------​Worksheets("Договор)​ но на 4-х​

​: Для Макрорекодер записал​​ напечатать листы с​ в VB это​ и лист?​ из столбца Данные!A:A,​
​ А ее значение​ будет реализована многоразовая​ массовой рассылке по​ копии.я не силен​ умолчали... Смотрите вариант​
​ i% MyPath =​ = k +​а)​
​ Then Exit Sub​

​Microsoft Visual Basic​​- нет закрывающих​ листах. А у​ActiveSheet.PageSetup.FitToPagesWide = 1​ 1_4 по 17_20,​ реализовать. Знание VB​Если да, то​ а в ячейку​ получено путем определения​ печать одного и​ адресам клиентов получателей.​ и не могу​

​ от GIG_ant'а​​ "C:\Temp3\" ' Папка,​ 1 End If​1-ый лист база пк​
​ With Range("AR13") .NumberFormat​---------------------------​ кавычек​ меня задача впихнуть​

planetaexcel.ru

Макрос печати нескольких листов сразу

​ActiveSheet.PageSetup.FitToPagesTall = 1​​ т.е. ВСЕ листы?​ на уровне "записать"​ совет Igor67 Вам​ Серии!B3 – попадут​ количества заполненных строк​ того же шаблона​Чтобы использовать в Excel​ сам разобраться.​evgeny_t​ из которой печатаем​ Next ' Блок​ или ноутбуков, вместе​ = "General" .Value​Compile error:​Строки лишние:​ невпихуемое (эти 4​BlackRaven​

​Ведь 3 <​​ или "копировать -​
​ в руки​ значения из столбца​ в Таблице Данных.​ с разными реквизитами.​ преимущества серийной печати​Guest​: Большое спасибо!!! Только​ ShName = Array("Лист1",​ питания If src.Cells(i,​
​ их характеристиками, инв.​ = "=Бюджет!L" &​​Invalid use of​GoTo EndSub, EndSub:​ листа на 1).​: Pelena, СПАСИБО огромное!​ 20 ?​ вставить". Потому и​
​Если нет, то​ Данные!B:B и т.д.​ Адрес этой таблицы​
​Так же следует помнить​ и слияния данных,​: Пардон!​

​ что попробовал, всё​​ "Лист2") ' Набор​ 24) <> Empty​ номерами, и прочими​ i End With​ Me keyword​(при необходимости лучше​ Иными словами действия:​ Вроде все работает.​Я хочу сказать,​ не получаеться ничего.​ вызывайте окно печати​На этапе тестирования макроса​ находится в переменной​ о том, то​ в первую очередь​Ребят , что​ работает!! Но есть​ имен листов к​ Then dst.Cells(k, 2)​ данными;​ DoEvents: DoEvents: DoEvents​---------------------------​

​Exit Sub​​ "Выделить диапазон-настройка печати-альбомная​Итого получилось так:​ что по Вашим​ikki​Application.Dialogs(xlDialogPrint).Show​ нет необходимости рисковать​

​ DiapazDannye.​​ Таблица Данных должна​ необходимо создать таблицу​ нужно добавить во​ нюанс, который хотелось​ распечатке MyFileName =​ = "Бл. питания​б)​ ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,​Ругается на Me.PrintOut​)​ ориентация-напечатать выделенный фрагмент-вписать​Sub name()​ условиям, всегда надо​: нет, не поэтому.​Можно сразу некоторые​ ошибочной печатью документов​For Each Rekvizit In​ быть полностью заполнена.​ с определенной структурой​ второй макрос, чтобы​ бы учесть...​ Dir(MyPath & "*.xls*")​ " & src.Cells(i,​2-ой лист база доп​

​ Copies:=1 DoEvents: DoEvents:​​ Copies:=1​200?'200px':''+(this.scrollHeight+5)+'px');">Private Sub CommandButton1_Click()​ лист на 1​With ThisWorkbook​ печатать все листы.​

​скорее - потому,​​ аргументы подставить, подробнее​ и тратит офисные​ DiapazS – Второй​ Если будет пустая​ и контролем ввода​ листы , которые​​Дело в том,​ On Error Resume​

​ 28) & "​​ оборудования, таких как​ DoEvents End If​Hugo121​With CommandButton1​ страницу" должны проводиться​DisplayDrawingObjects = xlHide​JayBhagavan​ что над предыдущими​

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

​ Next ' Если​​ Вт" k =​ принтеры и мфу,​ Next​: - это читали?​If .BackColor =​
​ в автоматическом режиме...​ActiveSheet.PageSetup.Orientation = xlLandscape​
​: Михаил Лебедев, срабатывает​ полученными готовыми решениями​ F1 по ключевым​ лишь поменять строку​

​ первого. Он отвечает​​ опущено значение. А​ при заполнении. А​ условию(в нашем случае,​

​ макроса на печать​​ в файле нет​ k + 1​ ксероксы и мониторы,​Даже можно чуть​Специально болдом выделил...​ vbBlack Then​sboy​Worksheets(6).Range("A1:O23").PrintOut​

​ приоритетное правило. Как​​ Ваших задач Вы​ словам Built-In Dialog​ кода:​ за поочередное заполнение​ если будет пустая​ после подготовки материалов,​ если ячейка=0), выводились​ отправляется каждый лист​ заданного листа, то​ End If '​ а также ИБП​ короче, без переменной​ Нужно было красным​.BackColor = vbGreen​:​ActiveSheet.PageSetup.FitToPagesWide = 1​ понял, правила взаимоисключающие.​ не думали, и​ Box Argument Lists​ListSerii.PrintOut​ соответственных ячеек на​ целая строка, тогда​ мы с помощью​ бы в окно​ по отдельности, у​ игнорируем и продолжаем​ Сетефой фильтр If​

​ (и каждого оборудования​​If MsgBox("Продолжить печать​
​ болдом и 20м​.ForeColor = vbBlack​Цитата​ActiveSheet.PageSetup.FitToPagesTall = 1​Михаил Лебедев​
​ учиться у Вас​Route​на временную строку которая​ листе где находится​ будет прервана серия​ средств VBA напишем​ сообщений. Типа листы​ меня лазерный принтер​ работать Do Until​ Trim$(src.Cells(i, 27)) Like​ может быть свой​
​ след. 10 уведомлений?",​

​ кеглем​​.Caption = "Договор"​
​sboy, 29.05.2018 в​DisplayDrawingObjects = xlAll​
​: , я вот​ либо времени нет,​: Какой принтера не​ включит режим предварительного​ Серийная Таблица. А​ печати. Положение Таблицы​

​ свой макрос, который​​ такие то (перечень),​ и каждый лист​
​ MyFileName = ""​ "да" Then dst.Cells(k,​

​ инвентарный номер, так​

planetaexcel.ru

Макрос печати (Макросы/Sub)

​ vbYesNo) = 7​​Damon2013​Worksheets("Договор").Range("A27:AC199").PrintOut Copies:=2​ 09:14, в сообщении​
​ 'xlPlaceholders​ об этом и​ либо, что скорее,​ известен, имя печатаемой​ просмотра:​ данные берет со​ Данных не обязательно​ будет выполнять серийную​
​ не соответствуют затребованому​ он печатает как​

​ хочу сказать. Ну,​ желания.​ странице известно.​ListSerii.PrintPreview​ строк Таблицы Данных.​
​ должно начинаться с​ печать документов. Данные​
​ условию или условиям,и​ новый документ, то​ <> "~$" Then​ m = m​
​ оргтехники принадлежащей одному​

​Damon2013​​А скажите, пожалуйста,​

​End Sub​​ что я, например,​Знание VB на уровне​
​Igor67​

​End Sub​ потом устанавливаете размеры​Данный макрос на​ не так понял.​ "записать"​: Если принтер не​ Excel не будет​
​ значением переменной Yacheyki.​ адрес расположения укажем​ будет реализована печать​ печать.​ времени тратится..​ файлы Excel Workbooks.Open​ 2) = "Сетевой​

​ один инвентарный номер.​​ без инпутбокса? Выводить​ печать, чтобы выводилось​
​После печати ведь​BlackRaven​

​ фильтр" k =​​ У 2-x одинаковых​ первые 10 уведомлений​ по 10 уведомлений?​ нужно обратно перекрасить?​: sboy, да, читал​ необходимый диапазон и​ взгляд, поставлена не​ такому результату: Sub​ значок печати и​ принтер, а просто​
​ получено путем определения​​ разделены на 2​ как в этот​ нужные листы вручную​ UpdateLinks:=0, ReadOnly:=True For​ k + 1​ видов техники не​ на печать, потом​Т.к. их объем​Damon2013​ Ваше замечание по​ выводит его на​ совсем корректно ☺​ Макрос1() Sheets(Array("1-4", "5-8",​
​ будет печатать на​
​ выведет документ на​
​ количества ячеек в​ факт, что листы​ части:​ же макрос добавлять​ (их в книге​ i = 0​ End If '​ может быть одного​ сообщение, если ок,​ большой (порядка 466),​: Здравствуйте!​
​ этому поводу. Но​ печать в альбомной​Михаил Лебедев​ "9-12")).Select Sheets("1-4").Activate ActiveWindow.SelectedSheets.PrintOut​
​ принтере установленном по​
​ предварительный просмотр печати.​
​ исходной строке.​
​ обеих таблиц должны​
​Таблица с постоянными (не​
​ допусловия для проверки.​
​ больше 100) и​
​ To UBound(ShName) ActiveWorkbook.Sheets(ShName(i)).PrintOut​
​ Комплект (мышь, клавиатура)​
​ инвентарника, прим. 2​
​ то продолжаем с​ то для проверки​Очень прошу помощи​ Ваш код также​ ориентации на одном​: Если логика от​ Copies:=1, Collate:=True, IgnorePrintAreas:=False​ умолчанию, а чтобы​Когда уже создадите и​Когда макрос Excel пройдет​ находиться в одной​

​ изменяющимися) значениями для​​ например , больше​ отправляю на печать​ Next i ActiveWorkbook.Close​ If src.Cells(i, 28)​ принтера с одним​ 11 по счету​ удобнее вывести первые​ в написании макроса,​ печатает на 4-х​ листе.​ именно такая, как​ End Sub​ страница не поплыла​ заполните все таблицы​ по всем циклам,​ рабочей книге Excel.​ информации, которая будет​ чем одна ,​

​ командой "файл -​​ 0 End If​​ <> Empty Then​​ инвентарным номером)​ и опять 10​ 10, потом через​ т.к. новичок. Есть​ листах)))​

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

​ выполнять роль шаблона​​ ко-во проверяемых ячеек​ печать", в таком​ MyFileName = Dir​ dst.Cells(k, 1) =​в)​ и т.д. до​

​ определенный интервал или​​ форма (лист "Форма​_Boroda_​ зрения правильности и​ вот такой еще​ подать до рабочего​ драйверах, в Параметрах​ запустить свой макрос​ окно сообщения (MsgBox)​ макроса не важно​ при многоразовой печати.​

​ и , плюс​​ случае принтер печатает​ Loop End Sub​

​ m m =​​3-й лист это собственно​ конца​ по действию, выводить​ по 213н"), которую​: Да, конечно, еще​ т.д. и т.п.​
​ вариант (правда, в​​ макроса.​ страницы установите -​ для серийной печати.​ о количестве напечатанных​ будут ли в​ Например: суть предложения,​ количество печатаемых столбцов​​ листы без остановки.​​Grego​

​ m + 1​​ сама карточка сотрудника.​For i =​ следующие 10 уведомлений​ необходимо заполнить данными​ нужно поменять местами.​ он правильно прописан,​ отличие от вар.​
​но в Вашем​ Разместить не более​

​ К сожалению проверить​ или кой чего​ от с elseif,​ файле даже таких​
​ 1 стр в​

excelworld.ru

Макрос для печати (При нажатии определенных кнопок печать разных листов)

​ (ALT+F8) из списка​​ сколько было выполнено​
​ другие листы. Так​ реквизиты фактур Вашей​ подлежащие печати столбцы​ вопрос будет наверное​KoGG​ src.Cells(i, 28) k​ карточки определенных людей,​ If i Mod​
​ конца.​ "Бюджет").​ наглядно сейчас не​

​ = k +​ т.е. выбрав определенного​ 10 = 0​

​ActiveWindow.SelectedSheets.PrintOut From:=1, To:=10,​​Заполнить на форме​​ могу, поэтому только​​ нужно сделать?​ в обратном порядке​
​Olga_L​​ в высоту.​​ выбираем имя макроса​​ процессе выполнения кода.​​ этапе для макроса​

​ ☺): Sub procPrint()​: Уважаеммый Ikki, возможно​

excelworld.ru

Макрос в Excel для последовательного заполнения данными и вывод их на печать

​Может так поможет.​​ «PechatSerii» и нажимаем​
​В макросе используются еще​ не играют особой​ эта таблица будет​ в окне. Критерий​ листы с условием,​mark013​ ' Доп. оборудование​ нажатии на "волшебную"​
​ MsgBox("Продолжить печать след.​Hugo121​ - соответсвует ФО_Адм​BlackRaven​
​: Вы печатаете, а​ var_val = Worksheets("Лист1").[H3].Value​ для Вас и​Route​ на кнопку «Выполнить».​
​ 2 переменные с​ роли названия листов.​ называться «Серийная Таблица».​ для определения непечатаемых​ что если ячейка​:​ l = 3​ кнопку происходила печать​
​ 10 уведомлений?", vbYesNo)​: Ну например где-то​ МО в таблице.​: _Boroda_, дак проверить​ потом устанавливаете размеры​ Select Case var_val​ "рукой подать", а​: Да просто хотелось​Циклы инструкций кода сразу​
​ адресами диапазонов ячеек:​ После переименования названий​Таблица в которой все​ столбцов, например в​ E46 отлична от​KoGG​ Do While dop.Cells(l,​ карточки с оборудованием​ If ans =​ в свободные ячейки​Наименование бюджета -​ не вопрос (сам​Примерно так надо​ Case Is >​ для меня привязать​
​ бы чтобы можно​ проходят по всем​

​DiapazS – содержит адрес​​ листов, просто следует​
​ значения уникальны и​
​ строке нумерации столбцов,​
​ нуля, то лист​, подскажите.​
​ 3) <> Empty​
​ приписанному этому сотруднику.​
​ 7 Then Exit​ пишите цветом фона​ название бюджет, ОКТМО,​ сразу проверяю), вот​ поправить​ 16: Sheets("17-20").PrintOut Copies:=1,​
​ записанный макрос "быстрой​ было выбирать на​ строкам Таблицы Данных​ на несмежный диапазон​ указать их имена​
​ подаются для заполнения​​ стоит русская буква​
​ выделяется, если нет​Как в Вашем​ If Trim$(dop.Cells(l, 3))​Так же как​ Sub With Range("AR13")​ два числа, в​ по сводному реестру.​ только я еще​Sub name()​ Collate:=True, IgnorePrintAreas:=False Case​ печати" к условию​ каком печатать. у​ и поочередно вводят​ ячеек для Серийной​ в коде макроса.​ реквизитов при многоразовой​
​ х.​
​ - то нет..​ коде печатать "Лист​ Like sUser Then​ и в примере​ .NumberFormat = "General"​

​ коде ссылаетесь на​​ Остальные данные заполнять​ пытаюсь понять суть​
​ThisWorkbook.DisplayDrawingObjects = xlHide​
​ Is > 12:​
​ пока целая проблема,​
​ нас их аж​
​ собранные значения из​ Таблицы, в которую​
​​
​ печати. Эти значения​Благодарю за ответ!​

​Еще раз огромное​​ 2" дважды?​
​ If Trim$(dop.Cells(l, 4))​ на фото, в​ .Value = "=Бюджет!L"​ них:​

​ не нужно.​​ написания макросов и​
​With ActiveSheet.PageSetup​ Sheets("13-16").PrintOut Copies:=1, Collate:=True,​ на решение которой​ 4 штуки...​
​ ячеек строк в​ будут вводиться переменные​Заполнение серийной таблицы значениями,​ будут вставлены в​Guest​ спасибо!!​Hugo121​ Like sPodr Then​ 1-м "№ п/п"​ & i End​
​For i =​С помощью функции​

​ учусь на пробах​​.FitToPagesWide = 1​ IgnorePrintAreas:=False Case Is​ было потрачено целое​Route​ соответственные ячейки Серийной​ значения.​
​ собранными в Таблице​ соответственные места Серийной​
​: (:​evgeny_t​: Пока​ dst.Cells(k, 1) =​ должно писаться ноутбук​ With DoEvents: DoEvents:​ [A1] To [B1]​ ВПР заполнила наименование​ и ошибках. Что​.FitToPagesTall = 1​
​ > 8: Sheets("9-12").PrintOut​ утро. Поверьте, могла​: Впринцепи операция Application.Dialogs(xlDialogPrint).Show​

​ Таблицы. После заполнения​​DiapazD – содержит адрес​ Данных выполнить за​
​ Таблицы. Например: адреса​Hugo​: прошу прощения)) E46​KoGG​ m m =​ это или компьютер,​ DoEvents ActiveWindow.SelectedSheets.PrintOut From:=1,​Это так чтоб​ финансового органа. С​ с чем поменять​.Orientation = xlLandscape​ Copies:=1, Collate:=True, IgnorePrintAreas:=False​ бы решить сама,​ открывает окно принтеров,​ каждого комплекта данных​ на смежный диапазон​ нас программа VBA-макроса.​ клиентов, имена и​: До "ещё":​ ))​где-то отдыхает -​ m + 1​

​ далее перечисляется комплектующие​​ To:=1, Copies:=1 DoEvents:​ попроще, а если​
​ помощью функций ИНДЕКС​ местами подскажете?​End With​ Case Is >​ не стала бы​
​ но как сделать,​ выполняется печать готового​ ячеек для Таблицы​ Для этого откройте​ фамилии получателей и​Sub Печать()​GIG_ant​

​ самое простое записать​​ dst.Cells(k, 2) =​ компьютера(у ноутбука не​ DoEvents: DoEvents End​ хочется всё усложнить​ и ПОИСКПОЗ заполнила​sboy​Range("A1:O23").PrintOut​ 4: Sheets("5-8").PrintOut Copies:=1,​ обращаться на форум.​ чтобы печатся указанный​ текущего документа.​ Данных из которой​ редактор Visual Basic​

​ т.д. В данном​​Dim sh As​: Вот такой вариант:​
​ имя этого листа​ dop.Cells(l, 5) &​ пишется мощность БП);​ If Nextи ещё​ - можно конечно​ наименование бюджета, ОКТМО​: проверил, сжимает до​ThisWorkbook.DisplayDrawingObjects = xlAll​ Collate:=True, IgnorePrintAreas:=False Case​ А попыток в​ определенный лист не​Данный процесс повторяется ровно​ будут браться переменные​ (ALT+F11) и создайте​ примере вторая таблица​ Worksheet​Sub MyPrint()​ в массив дважды.​ " " &​
​Далее перечисляется техника​ подскажите, мы один​
​ цикл по 10​ и по сводному​ 1 листа нормально​ 'xlPlaceholders​

​ Is > 0:​​ моем файле Вы​ разберусь никак...​ столько раз сколько​ значения для заполнения.​ модуль: «Insert»-«Module», чтобы​ будет навиваться «Таблица​For Each sh​Dim sh As​P.S. А может​ dop.Cells(l, 6) dst.Cells(k,​
​ с их инвентарными​ End If ставим?​ с месиджбоксом "продолжать/отменить"​ реестру.​_Boroda_​End Sub​ Sheets("1-4").PrintOut Copies:=1, Collate:=True,​ не увидели, потому​Лузер​ строк содержит Таблица​Чтобы более-менее было удобно​ в него записать​ Данных».​ In ThisWorkbook.Worksheets​ Worksheet, s​ он вообще на​ 3) = dop.Cells(l,​ номерами.​Hugo121​ приладить, и с​

​В таблице Бюджет​​: Мне не нужно,​
​_Boroda_​ IgnorePrintAreas:=False End Select​ как, я не​: Для тех кто​

​ Данных. После завершения​​ приспособить функционирование макроса​ этот код макроса:​Естественно правильно выполнять слияние​If Not sh.[A1].Value​With ThisWorkbook​ морях - давненько​ 2) k =​
​п.с. Также при​: Да.​ начальным инпутбоксом с​ 466 финансовых органа​
​ чтобы Вы проверяли.​: 1. В одной​ End Sub​ была уверена в​ ф танке повтроряю:​
​ действия макроса выводиться​ к изменениям таблиц​Sub PechatSerii()​ данных из этих​ = 0 Then​
​For Each sh​ не показывался, завидую​ k + 1​ выборе человека, на​Только тут будет​ запросом от куда​ (Накименование колонки "ФО_Адм​ Мне нужно, чтобы​ строке у Вас​Imelman​
​ том, что в​Можно сразу некоторые​ сообщение с информацией​ на листах, адреса​On Error Resume​
​ двух таблиц будет​sh.PrintOut Copies:=3​ In .Worksheets​mark013​ End If End​ первой строчке карточки​

​ сперва первых 7.​​ и сколько печатать.​ МО"). Подскажите, пожалуйста,​ я проверял перед​ работа с шестым​: Всем хороших выходных​ даном случае нужно​ аргументы подставить, подробнее​ о завершении генерации​

CyberForum.ru

Макрос печати карточек из базы Excel

​ на диапазоны ячеек​​ Next​ реализовано с помощью​Else​If Not sh.[E46].Value​:​ If l =​ пишется его ФИО,​ Но можно проверять​
​Но это от​ как последовательно заполнять​ тем, как сюда​ листом, а в​Есть вопрос, по​ начинать с записи​
​ о них в​​ документов и о​ подаются в текстовых​Dim ListSerii As​ определенного макроса VBA.​s = s​
​ = 0 Then​​Hugo121​ l + 1​ и на 2й​ i - 3​ меня если только​ форму по следующим​ код выложить.​ строках ниже и​ этой теме, задам​ "быстрой печати".​ F1 по ключевым​ их количестве отправленных​ переменных AdresRekvizitov и​ Worksheet​Подготовка данных к серийной​ & sh.Name &​ s = s​, Спасибо огромное!​
​ Loop ' Показ​​ строчке пишется служба​Damon2013​
​ вечером...​ бюджетополучателям и выводить​Цитата​ выше - с​ сюда же пожалуй​Olga_L​ словам Built-In Dialog​ на печать:​
​ AdresDannye. Благодаря функции​Dim ListDannye As​ печати можно начать​ vbNewLine​ & sh.Name &​pashulka​ листа, запрос печати​ в которой он​: Подскажите, пожалуйста, если​
​Damon2013​ их сразу на​BlackRaven, 29.05.2018 в​
​ активным. Если активен​ чтоб темы не​: Я не прошу​ Box Argument Lists​После завершения действия макроса​ Range значения этих​ Worksheet​ из создания любой​

​End If​​ ","​:​ dst.Activate If MsgBox("Напечатать​ работает.​ у меня появилась​: Посмотрите, пож-та, что​
​ печать?​ 11:16, в сообщении​ шестой лист, то​ плодить.​ решить задачу за​Route​ Серийная Таблица будет​ переменных из типа​Dim DiapazS As​ таблицы. Но мы​Next sh​Next sh​mark013​ карточку?", vbOKCancel, "Печать​mc-black​ вторая таблица "Ассигнования",​ получилось:​Т.е. сейчас на​ № 10 ()​ все нормально. А​Есть два листа​ меня. Прошу, чтобы​: Я наверное действительно​ содержать данные полученные​ строки (As String)​ Range​ рекомендуем сначала создать​MsgBox "Типа листы"​s = Split(Left(s,​, Ещё один вариант​ карточки") = vbOK​: Формат карточки я​ данные из которой​Sub Кнопка16_Щелчок() Dim​ форме заполнены данные​ Что с чем​ если нет?​ эксель, как их​ подсказали хотя бы​ в танке. Найти​ из последней строки​ преобразуются в тип​Dim DiapazD As​ Серийную Таблицу. Ведь​ & vbNewLine &​ Len(s) - 1),​ печати второго листа​ Then dst.PrintOut End​ немного изменил, так​ также нужно подтянуть​ i& Dim a​ по КФ г.Братска.​ поменять местами подскажете?Это​2. Если написано​ вывести на печать​ каким образом ее​ та я нашел​ Таблицы Данных. Как​ адреса (As Range):​ Range​ она будет содержать​ s & "не​ ",")​ - дважды​ If Set src​ что используйте третий​ на форму из​ As Long Dim​ Далее нужно заполнить​ я про то,​With ThisWorkbook​ одной отправкой? (Необходимо​ решить.​ список диалогов, а​ показано ниже на​Set DiapazS = ListSerii.Range(AdresRekvizitov)​Dim Stroki As​ больше информации, так​ соответствуют затребованому условию​.Worksheets(s).PrintOut Copies:=1​ActiveWorkbook.Sheets(ShName(i)).PrintOut Copies:=i +​ = Nothing Set​ лист из моей​ таблица 1.rar.​ b As Long​ данные по след.​ про что Сергей​, то это​ чтоб принтер подхватил​JayBhagavan​ как задать имя​ рисунке:​Set DiapazD =​ Long​ как представляет собой​ или условиям,и не​End With​ 1 'Sheets(ShName(i)).PrintOut ,​ dop = Nothing​ книги. Можете проверять​На форме есть​ a = Val(InputBox("Укажите​ ФО: Управление по​sboy​ значит, что мы​ и напечатал двухстороннюю)​: Olga_L, проверяйте.Скрытый текст​ листа нужного не​Таким образом у нас​ ListDannye.Range(AdresDannye)​Dim Stolbec As​ форму шаблона с​ выводятся на печать."​End Sub​ , i +​ Set dst =​ в работе​ блок "Сумма межбюджетного​ диапазон печати с​ финансам и налогам​писал​

​ работаем с той​​ Sheets("2").Range("A1:I70").PrintOut Copies:=1, Collate:=True​​ Sub jjj() shs​​ врублюсь. Приведите пример​
​ получилось автоматизировать большой​Такой подход к построению​ Long​
​ видом, наиболее приближенным​

CyberForum.ru

макрос печати

​End Sub​​evgeny_t​
​ 1​​ Nothing End Sub​Option Explicit Sub​
​ трансферта, имеющего целевое​ ...")) b =​ администрации ЗГМО, потом​BlackRaven​
​ книгой, где находится​ Sheets("3").Range("A1:I70").PrintOut Copies:=1, Collate:=TrueМожет​ = Array("1-4", "5-8",​
​ пожалуйста.​ объем роботы с​
​ макроса имеет определенные​Dim Yacheyki As​

​ к финальному результату.​​Guest​: То что доктор​evgeny_t​
​Manqix​
​ test() If ActiveSheet.Name​

​ назначение/сумма изменения"​​ Val(InputBox("Укажите диапазон печати​ по ДФ КБПиФ​: sboy, _Boroda_, Спасибо​ макрос. With что-то​ как-то по умному​

excelworld.ru

Макрос для печати файлов xls из конкретной папки

​ "9-12", "13-16", "17-20")​​Лузер​ помощью макроса и​
​ преимущества. Можно свободно​ Range​ Просто потом его​: Да , как​ прописал!!!​: Имеется книга excel​:​ = "ПК" Then​
​2018 год нужно​ по ...")) For​ г. Иркутска и​

​ вам огромное. У​​ подразумевает, что внутри​ Range (через запятую)​ var_val = Worksheets("Лист1").[H3].Value​
​: sheets("Лист1").Select - сначала​ без использования программы​ редактировать и изменять​Dim Rekvizit As​ нужно заполнить переменными​ говорят в народе​Огромное спасибо!!!!!!!!!!​ с большим количеством​mc-black​ PrintCard ActiveCell.Row End​ заполнить данными из​ i = a​ так до конца.​ меня действительно не​ блока With -​ написать?​ i_f = LBound(shs)​ выделяем нужный лист​ Word.​ адреса диапазонов для​ Range​ значениями из Таблицы​ , беда одна​Куда выслать бутылку​ листов (накладные для​, огромное спасибо!​ Sub Private Sub​ таблицы "Ассигнования" 2018,​ + 2 To​

​ Т.е. будут выведены​​ вкидывало в 1​​ End With мы​​Возможно ли вообще?​ i_n = UBound(shs)​

​Application.Dialogs(xlDialogPrint).Show - показываем​​Route​​ обеих таблиц при​​Dim NameListSerii As​
​ Данных с помощью​ не ходит. Ко​ коньяку!!!)))))​

​ магазинов), как написать​​Завтра съезжу распечатаю​​ PrintCard(i As Long)​​ и т.д. 2019,​ b With Range("AR13")​ на печать 466​ страницу. После добавления​
​ будем обращаться к​Hugo​ i_n = WorksheetFunction.Min(var_val​ диалог, выбираем принтер​

​: Подскажите макрос, чтобы​​ их изменении размера​​ String​​ макроса.​

​ всем негараздам с​​akm1965​​ макрос для отправки​​ гляну как выглядит,​ Dim src As​ 2020.​
​ .NumberFormat = "General"​ форм по разным​ "ZOOM" все стало​ этому что-то, но​

CyberForum.ru

Макрос для отправки на печать листов с определенным условием

​: Можно так:​​ \ 4 +​ и печатаем​ распечатать указанный лист.​ или структуры:​Dim NameListDanye As​Сначала создадим лист для​ моей стороны ,​: Есть одна проблема​ на печать листов,​ лист.​ Worksheet, dop As​
​Т.е. будет формироваться​

​ .Value = "==Бюджет!L"​​ финансовым органам.​ как нужно!​ писать его не​
​Sheets(Array("2", "3")).PrintOut Copies:=1,​ IIf((var_val Mod 4)​А разбиратся в​ Заранее спасибо​AdresDannye = "A2:D20"​ String​ серийной печати. Самая​ добавилось тайное исчезновение​ - помогите пожалуйста.​ у которых значение​Вы гений​ Worksheet, dst As​ уже столько уведомлений,​ & i End​

​Заранее спасибо за​​Итого вот какую​
​ будем. Запись примерно​
​ Collate:=True​ > 0, 1,​
​ параметрах Built-In Dialog​Guest​
​AdresRekvizitov = "B3,​Dim AdresDannye As​ упрощенная версия документа,​
​ постов. Ну да​
​Нужно распечать с​

​ определённой ячейки отлично​taxi_driver​ Worksheet Dim j​ сколько сумм ассигнований,​ With DoEvents: DoEvents:​

​ помощь​​ версию я оставил:​ такая​
​Но тогда вероятно​ 0), i_n -​ мне лень​

​: ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,​​ B4, B6, B7"​ String​ подготовленного к заполнению​

​ ладно.​​ книги определенные листы.​ от нуля, если​: добрый всем вечер​ As Long, k​ т.е порядка 1​

​ DoEvents ActiveWindow.SelectedSheets.PrintOut From:=1,​Hugo121​Sub УПВПНР()​КодWith ThisWorkbook​ диапазоны печати на​ i_f + 1)​Sh_Alex​ Copies:=1​Макрос будет работать без​Dim AdresRekvizitov As​ переменными данными перед​
​Прикрепляю новый файли​ Это получается. А​ равно нулю, то​постановка задачи​ As Long, l​ 714.​ To:=1, Copies:=1 DoEvents:​: - зачем?​ThisWorkbook.DisplayDrawingObjects = xlHide​
​.DisplayDrawingObjects = xlHide​ листе нужно задать​ s_tmp = ""​: Вопрос: А не​Guest​ проблем.​ String​ серийной печатью, изображена​ прошу срочной помощи.​ вот как записать​
​ лист не печатается.​не вдаваясь в​

​ As Long, m​​Как сделать выборку,​ DoEvents: DoEvents Next​

​Вместо​​With ActiveSheet.PageSetup​
​End Withточка перед​
​ заранее мануально, ну​ For i =​
​ кажется ли Вам​
​: сильно сказано :)​Код макроса содержит некоторую​
​'настройки структуры книги​ на рисунке:​ Иначе чудеса не​ макрос так, чтобы​Спасибо)​
​ подробности​
​ As Long Dim​ чтобы заполнялись к​ End SubЧто-то не​
​=ВПР(Бюджет!L3;Бюджет!L:L;1;ЛОЖЬ)​
​.Orientation = xlLandscape​
​ DisplayDrawingObjects означает, что​

​ или этим же​​ i_f To i_n​ что с жиру​
​Route​

​ информацию о структуре​NameListSerii = "Серии"​

​Несложно догадаться, что ячейки​​ закончатся.​ еще задать определенное​

​Юрий М​есть лист в​ sUser As String,​ примеру первые данные​ запускается на печать​проще дать прямую​.Zoom = False​ перед ним как​

​ макросом.​​ - 1 s_tmp​ бесимся?​
​: Да но так​ данной рабочей книги​

​NameListDanye = "Данные"​
​ B3, B4, B6​Hugo​
​ количество копий определенных​: Главное не написали:​
​ эксель нужно написать​ sPodr As String​
​ по КФ г.​

​ после ввода диапазона​​ ссылку​.FitToPagesWide = 1​

​ бы написано то,​Imelman​

​ = s_tmp &​
​Ну, для знатоков​ он просто сразу​
​ Excel: размещение исходных​AdresDannye = "A2:D20"​
​ и B7 предназначены​: У меня Эксель​
​ листов?​

​ "определённая" ячейка -​

​ макрос его печати​​ Set src =​
​ братска (будет 15​Hugo121​
​=Бюджет!L3​.FitToPagesTall = 1​
​ про что мы​: Да, в такой​ IIf(i > i_f,​
​ Excel - это​
​ выводит на печать​

​ данных и целевых,​AdresRekvizitov = "B3,​ для заполнения переменными​ проекты ВБА теряет,​Hugo​ это какая?​

​ при следующих условиях​​ Worksheets(1) Set dop​
​ уведомлений, т.к. 15​: 1. у меня​результат не изменится​End With​ написали With. Если​ форме сработало:​ Chr(10), "") &​ разминка ума, а​ тот лист на​ а также названия​ B4, B6, B7"​ данными из Таблицы​ гад...​: Строку .Worksheets(s).PrintOut Copies:=1​
​И зачем нам​печать выделенного фрагмента,​ = Worksheets(2) Set​ сумм). Наименование бюджета,​ не было ==​По вопросу -​Range("A1:O23").PrintOut​ без With, то​Sheets(Array("1", "2")).PrintOut Copies:=1,​ shs(i) Next i​ что для пользователя,​ котром был выполнен​ листов. Сами названия​'код программы​ Данных. А в​Но вряд ли​ видите?​ такой большой файл?​ вписывание всех столбцов​
​ dst = Worksheets(3)​

​ ФО и ОКТМО​​2. почему +2​

​ макросом организуете цикл​​ThisWorkbook.DisplayDrawingObjects = xlAll​

​ вот так КодThisWorkbook.DisplayDrawingObjects​
​ Collate:=True, _ IgnorePrintAreas:=False​ ActiveWindow.Sheets(Array(Split(s_tmp, Chr(10)))).PrintOut Copies:=1,​
​ задающего такую задачу?​ макрос, а мне​
​ листов указаны в​Set ListSerii =​
​ ячейку B9 введем​
​ в коде было​
​Проверяете s на​ А было бы​ в лист​
​ sUser = Trim$(src.Cells(i,​
​ будет одинаковое, разные​
​ только в одном​ по столбцу Бюджет!L:L​ 'xlPlaceholders​ = xlHide .​Спасибо​ Collate:=True, IgnorePrintAreas:=False End​
​Два раза кликнуть​

​ нужно чтобы можно​​ строковых переменных NameListSerii​ ActiveWorkbook.Worksheets(NameListSerii)​ формулу, которая автоматически​ написано, что там​ "определённость", меняете количество.​ у Вас 100​макрорекордер ругается на​ 3)) sPodr =​ суммы ассигнований.​
​ случае? Ну да​ с заполнением ячейки​End Sub​ Короче, почитайте справку​

​BlackRaven​​ Sub​ мышкой "Файл_Печать" и​ было еще выбрать​
​ и NameListDannye.​Set ListDannye =​ вычислит сроки реализации​ должно было происходить?​

planetaexcel.ru

​select case s​

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

Подготовка слияния данных для серийной печати рассылок в Excel

Чтобы использовать в Excel преимущества серийной печати и слияния данных, в первую очередь необходимо создать таблицу с определенной структурой и контролем ввода в нее значений при заполнении. А после подготовки материалов, мы с помощью средств VBA напишем свой макрос, который будет выполнять серийную печать документов. Данные на основе которых будет реализована печать тиража, должны быть разделены на 2 части:

1. Таблица с постоянными (не изменяющимися) значениями для информации, которая будет выполнять роль шаблона при многоразовой печати. Например: суть предложения, бланк заказа, отчет, реквизиты фактур Вашей фирмы и т.п. В данном примере эта таблица будет называться «Серийная Таблица».
2. Таблица в которой все значения уникальны и подаются для заполнения реквизитов при многоразовой печати. Эти значения будут вставлены в соответственные места Серийной Таблицы. Например: адреса клиентов, имена и фамилии получателей и т.д. В данном примере вторая таблица будет навиваться «Таблица Данных».

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

Создание Серийной Таблицы с шаблоном для рассылки

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

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

Несложно догадаться, что ячейки B3, B4, B6 и B7 предназначены для заполнения переменными данными из Таблицы Данных. А в ячейку B9 введем формулу, которая автоматически вычислит сроки реализации заказа с учетом даты его составления. Допустим на строки реализации дается 2 недели, тогда вводим простую формулу: =B3+14.

Подготовка Таблицы Данных с реквизитами для рассылок

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

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

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

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

Слияние данных обеих таблиц в Excel с помощью макроса

Заполнение серийной таблицы значениями, собранными в Таблице Данных выполнить за нас программа VBA-макроса. Для этого откройте редактор Visual Basic (ALT+F11) и создайте модуль: «Insert»-«Module», чтобы в него записать этот код макроса:

В коде применяются 2 цикла:

1. For Stroki = 1 To DiapazD.Rows.Count – Первый проходить по всем строкам Таблицы Данных. Количество проходов зависит от значения в переменной Stroki. А ее значение получено путем определения количества заполненных строк в Таблице Данных. Адрес этой таблицы находится в переменной DiapazDannye.
2. For Each Rekvizit In DiapazS – Второй цикл находиться внутри первого. Он отвечает за поочередное заполнение соответственных ячеек на листе где находится Серийная Таблица. А данные берет со строк Таблицы Данных. Количество циклов определяется значением переменной Yacheyki. А ее значение получено путем определения количества ячеек в исходной строке.

Когда макрос Excel пройдет по всем циклам, тогда можно вызвать окно сообщения (MsgBox) о количестве напечатанных документов. То есть сколько было выполнено непрерывных циклов в процессе выполнения кода.

В макросе используются еще 2 переменные с адресами диапазонов ячеек:

1. DiapazS – содержит адрес на несмежный диапазон ячеек для Серийной Таблицы, в которую будут вводиться переменные значения.
2. DiapazD – содержит адрес на смежный диапазон ячеек для Таблицы Данных из которой будут браться переменные значения для заполнения.

Чтобы более-менее было удобно приспособить функционирование макроса к изменениям таблиц на листах, адреса на диапазоны ячеек подаются в текстовых переменных AdresRekvizitov и AdresDannye. Благодаря функции Range значения этих переменных из типа строки (As String) преобразуются в тип адреса (As Range):

Set DiapazS = ListSerii.Range(AdresRekvizitov)
Set DiapazD = ListDannye.Range(AdresDannye)

Такой подход к построению макроса имеет определенные преимущества. Можно свободно редактировать и изменять адреса диапазонов для обеих таблиц при их изменении размера или структуры:

AdresDannye = "A2:D20"
AdresRekvizitov = "B3, B4, B6, B7"

Макрос будет работать без проблем.

Код макроса содержит некоторую информацию о структуре данной рабочей книги Excel: размещение исходных данных и целевых, а также названия листов. Сами названия листов указаны в строковых переменных NameListSerii и NameListDannye.

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

NameListSerii = "Серии"
NameListDanye = "Данные"

А также:

AdresDannye = "A2:D20"
AdresRekvizitov = "B3, B4, B6, B7"

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

Обратите внимание, что при указании несмежного диапазона адреса между ячейками мы разделяем запятыми. Также количество ячеек в каждой строке Таблицы Данных соответствует количеству поданных адресов ячеек для несмежного диапазона в Серийной Таблице. Все данные собираются и вводятся по очереди. Например, в ячейку Серии!B3 по очереди будут заполняться все значения из столбца Данные!A:A, а в ячейку Серии!B3 – попадут значения из столбца Данные!B:B и т.д.

На этапе тестирования макроса нет необходимости рисковать ошибочной печатью документов и тратит офисные листы бумаги. Достаточно лишь поменять строку кода:

ListSerii.PrintOut

на временную строку которая включит режим предварительного просмотра:

ListSerii.PrintPreview

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

Процесс слияния данных и серийной печати рассылок из Excel

Когда уже создадите и заполните все таблицы необходимыми значениями, можно запустить свой макрос для серийной печати. Нажимаете комбинацию клавиш (ALT+F8) из списка в появившемся окне выбираем имя макроса «PechatSerii» и нажимаем на кнопку «Выполнить».

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

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

После завершения действия макроса Серийная Таблица будет содержать данные полученные из последней строки Таблицы Данных. Как показано ниже на рисунке:

Таким образом у нас получилось автоматизировать большой объем роботы с помощью макроса и без использования программы Word.

Слияние Word и Excel.

excel-office.ru

Объединение и отмена объединения ячеек

​ из таблицы Excel​​ порядке. Для этого​ Для подстановки нужного​ будет являться основой​as​ не подумал, что​ListSerii.PrintPreview​ обеих таблиц при​ А ее значение​Dim ListSerii As​ базового правила –​ подаются для заполнения​ нет в Excel.​ центре​ работы, мы изменили​ «Другие элементы», выбираем​ шесть легких этапов​ в форму бланка​ в меню Microsoft​ окончания к слову​ (заготовкой) для всех​

​Table​ письмо сделано автоматически,​В таком режиме макрос​ их изменении размера​ получено путем определения​ Worksheet​

Объединение ячеек

1. ​ каждая строка содержит​

2. ​ реквизитов при многоразовой​​ Например, функция слияния​.​

   ​ список.​​ слово – «Имя»,​ действий.​ отчета в Word.​ Outlook можно выбрать​ "уважаемый/ая" выберем третий​ будущих однотипных сообщений.​)​ а был уверен,​ Excel не будет​ или структуры:​ количества заполненных строк​Dim ListDannye As​

Отмена объединения ячеек

1. ​ определенную группу связанных​ печати. Эти значения​​ документов для серийной​Выберите​​Подробнее о функции​

2. ​ нажимаем «Вставить», «ОК».​​Первый этап.​

​Как заполнить бланк в​​ команду​

• ​ пункт​ Мы выбираем -​с вкладки​ что письмо было кропотливо​ направлять данные на​AdresDannye = "A2:D20"​ в Таблице Данных.​ Worksheet​ между собой значений.​ будут вставлены в​

• ​ печати адресов писем​Отменить объединение ячеек.​ слияния читайте в​ После слова «Уважаем»​Выберем «Тип документа»​ Word.​Файл - Автономный режим​​IF...THEN...ELSE​​Текущий документ (Current document)​

support.office.com

Объединение текста из двух или нескольких ячеек в одну

​Главная​ написано ради него​ принтер, а просто​AdresRekvizitov = "B3,​ Адрес этой таблицы​

Объединение данных с помощью символа "амперсанд" (&)

1. ​Dim DiapazS As​ Например, имя и​ соответственные места Серийной​

2. ​ на конвертах при​Важно:​ статье «Распечатать много​ ставим слово «Пол».Так​

3. ​ - «Письма».​​В нашем примере,​​или даже временно отключить сетевое​. В открывшемся затем​

4. ​.​(​ вручную.​ выведет документ на​​ B4, B6, B7"​​ находится в переменной​

Объединение данных с помощью функции СЦЕП

1. ​ Range​ фамилия одного и​ Таблицы. Например: адреса​

2. ​ массовой рассылке. Задумайтесь,​​ ​​ писем с разными​

3. ​ помечаем все места​Нажимаем внизу этого диалогового​

   ​ мы рассмотрим, как​ подключение к вашему​ окне зададим правило​Этап 3. Выбор получателей​Home​

4. ​В конце все созданные сообщения​ предварительный просмотр печати.​Макрос будет работать без​ DiapazDannye.​​Dim DiapazD As​​ того же получателя​

support.office.com

Макрос для слияния данных при серийной печати рассылок в Excel

​ клиентов, имена и​ на сколько был-бы​Ячейку, которая не была​ именами в Word».​ нужными словами.​ окна кнопку «Далее.​ написать уведомление клиентам,​ компьютеру. Письма временно​ подстановки правильного окончания​На этом шаге мы​)​ надо:​Когда уже создадите и​ проблем.​For Each Rekvizit In​ Range​ должны находиться в​ фамилии получателей и​ практически применим этот​ создана путем объединения,​Как ещё можно​У нас получилась такая​ Открытие документа».​ список которых у​ "застрянут" в папке​ в зависимости от​ подключаем список клиентов​. Подробнее про такие​либо отправить через Outlook​ заполните все таблицы​Код макроса содержит некоторую​ DiapazS – Второй​Dim Stroki As​ одной строке. Наш​ т.д. В данном​ инструмент в Excel,​

Подготовка слияния данных для серийной печати рассылок в Excel

​ невозможно разделить. Если​ использовать функцию слияния,​ заготовка документа.​Второй этап.​ нас в таблице​ Исходящие (Outbox) и​ пола:​ в Excel к документу​ "умные таблицы" можно​ каждому клиенту на​ необходимыми значениями, можно​ информацию о структуре​ цикл находиться внутри​ Long​ макрос будет по​ примере вторая таблица​ чтобы можно было​ вы ищете сведения​ смотрите в статье​Нажимаем кнопку в окне​

1. ​В диалоговом окне​ Excel.​ вы сможете их​Этап 5. Просмотр писем​ Word. Выбираем​ почитать тут.​ его e-mail​ запустить свой макрос​ данной рабочей книги​ первого. Он отвечает​Dim Stolbec As​ строкам считывать эту​
2. ​ будет навиваться «Таблица​ печатать: счета фактур,​ о том, как​ "Как перенести таблицу​ мастера слияния «Далее.​ «Выбор документа» ставим​1. Таблица Excel​ открыть и проверить​На этом этапе мы​Использование списка​Открываем новый пустой документ​либо распечатать для последующей​ для серийной печати.​ Excel: размещение исходных​

​ за поочередное заполнение​ Long​ таблицу и подставлять​ Данных».​ отчеты, анкеты, бланки​

Создание Серийной Таблицы с шаблоном для рассылки

​ распределить данные из​ из Excel в​ Просмотр писем».​ – «Текущий документ».​ с данными должна​ перед отправкой.​ уже можем предварительно​и жмем на​ в Microsoft Word​ отправки обычной почтой​ Нажимаете комбинацию клавиш​ данных и целевых,​ соответственных ячеек на​Dim Yacheyki As​ взятые значения с​Естественно правильно выполнять слияние​ заказов, коммерческие предложения​

​ ячейки по нескольким​ Word" тут.​Пятый этап.​ Т.к. мы открыли​ соответствовать некоторым правилам.​Kir​ просмотреть результаты слияния,​

​Обзор (Browse)​ и набираем туда​либо закинуть в новый​ (ALT+F8) из списка​ а также названия​ листе где находится​ Range​ диапазона каждой строки​ данных из этих​ и др. В​ ячейкам, см. статью​Как изменить в​Просматриваем, как получились​ мастер слияния на​Таблица Excel должна​

Подготовка Таблицы Данных с реквизитами для рассылок

​: Здрям!​ используя кнопки со​, после чего в​ текст нашего сообщения,​ файл, где каждое​ в появившемся окне​ листов. Сами названия​ Серийная Таблица. А​Dim Rekvizit As​ в соответственные места​

​ двух таблиц будет​ принципе с помощью​ Распределение содержимого ячейки​ Excel формат значения​ письма. Нажимаем на​ странице Word, на​ иметь шапку таблицы​Подскажите, пожалуйста, как​ стрелками. При необходимости,​ диалоговом окне открытия​ оставляя в нем​ письмо будет отдельным​ выбираем имя макроса​ листов указаны в​ данные берет со​ Range​ Серийной Таблицы. Так​ реализовано с помощью​ программы Word мы​ на соседние столбцы.​ ячейки (не формат​ стрелку в диалоговом​

​ которой написали шаблон​ (название столбцов).​ быть:​ также, можно исключить​ файла указываем где​ пустые места для​ листом (разделом)​ «PechatSerii» и нажимаем​ строковых переменных NameListSerii​ строк Таблицы Данных.​Dim NameListSerii As​ будет реализована многоразовая​ определенного макроса VBA.​ можем применять инструмент​Ячейку, полученную путем объединения,​ ячейки), чтобы работала​

​ окне у слова​ бланка. И хотим​Не должно быть​есть 2 листа.​ любого получателя из​ лежит наш файл​ будущей вставки имени​В терминах Microsoft Office​ на кнопку «Выполнить».​ и NameListDannye.​ Количество циклов определяется​ String​ печать одного и​Подготовка данных к серийной​ слияния документов так,​ можно снова разделить​ сортировка дат, т.д.,​ «Получатель: 1», перелистываем​

Слияние данных обеих таблиц в Excel с помощью макроса

​ одинаковых названий столбцов.​ 1 - данные​ списка.​ со списком клиентов.​ клиента и его​ такая процедура называется​Циклы инструкций кода сразу​Естественно можно использовать другие​ значением переменной Yacheyki.​Dim NameListDanye As​

​кнопкой​ для рассылки должна удовлетворять​

1. ​ собранные значения из​ строках для этих​ исходной строке.​Dim AdresRekvizitov As​ Таблица Данных должна​ Серийную Таблицу. Ведь​ удобно реализуемое решение.​ команду​ Мы стараемся как можно​ привыкли читать. Но​Третий этап.​ было смещения строк.​ номера артикулов и​Печать (Print)​
2. ​ при помощи окна​Начать слияние (Start Mail​ нескольким простым условиям:​ ячеек строк в​ переменных:​Когда макрос Excel пройдет​ String​ быть полностью заполнена.​ она будет содержать​ В данном примере​Найти​ оперативнее обеспечивать вас​ есть выход.​У нас уже​ Как сделать таблицу,​ их наименование.​

​ приведет к немедленной отправке​Получатели слияния​ Merge) – Пошаговый​Шапка таблицы должна быть​ соответственные ячейки Серийной​NameListSerii = "Серии"​ по всем циклам,​'настройки структуры книги​ Если будет пустая​

​ больше информации, так​ мы с помощью​для их поиска.​

1. ​ актуальными справочными материалами​Нажимаем правой мышкой​ есть список получателей​ смотрите в статье​Собственно вопрос: как​ всех результатов слияния​
2. ​:​ мастер слияния (Step-by-Step​ простой - одна​ Таблицы. После заполнения​NameListDanye = "Данные"​ тогда можно вызвать​

​NameListSerii = "Серии"​ ячейка, тогда будет​ как представляет собой​ VBA-макроса создадим свой​Данные из нескольких ячеек​ на вашем языке.​ на дату в​ этого послания в​ "Как сделать таблицу​ перенести данные из​ на принтер без​Этап 4. Создание письма​ Merge Wizard)​

​ строка с уникальными​
​ каждого комплекта данных​А также:​

​ окно сообщения (MsgBox)​NameListDanye = "Данные"​ опущено значение. А​ форму шаблона с​ альтернативный инструмент слияния​ можно объединить в​ Эта страница переведена​ нашем письме и​

​ таблице Excel, п.э.​
​ в Excel" тут.​ листа 1 в​

​ вывода на экран.​На этом этапе пользователь​

​:​ названиями столбцов (без​ выполняется печать готового​AdresDannye = "A2:D20"​ о количестве напечатанных​AdresDannye = "A2:D20"​ если будет пустая​ видом, наиболее приближенным​ в Excel. И​ одну с помощью​

​ автоматически, поэтому ее​ выбираем из контекстного​ выбираем – «Использование​Например, у нас​ "пустой отчет" так,​Если необходимо сохранить созданные​

​ должен указать –​
​В Word 2003 и​

​ повторений и пустых​

​ текущего документа.​
​AdresRekvizitov = "B3,​ документов. То есть​

​AdresRekvizitov = "B3,​ целая строка, тогда​ к финальному результату.​ продемонстрируем как использовать​ символа "амперсанд" (&)​ текст может содержать​

​ меню функцию «Коды/Значения​ списка».​ такая таблица.​ чтобы было совмещение​ в результате слияния​ куда именно в​ старше эта команда​ ячеек).​Данный процесс повторяется ровно​ B4, B6, B7"​ сколько было выполнено​ B4, B6, B7"​ будет прервана серия​ Просто потом его​ его для серийной​ или функции СЦЕП.​ неточности и грамматические​ полей». Вместо даты​А чтобы найти нашу​В столбце «Пол» пишем​ по артикулам? На​

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

​'код программы​

​ печати. Положение Таблицы​ нужно заполнить переменными​ печати документов при​

​Выделите ячейку, в которую​

​ ошибки. Для нас​ образовалось такое поле.​ таблицу, нажимаем кнопку​ окончание мужское или​ листе "пустой отчет"​ использования или требуется​

Процесс слияния данных и серийной печати рассылок из Excel

​ данные из подключенного​ меню​ объединенных ячеек.​ строк содержит Таблица​ изменились размеры или​ процессе выполнения кода.​Set ListSerii =​ Данных не обязательно​ значениями из Таблицы​ подготовке их к​ вы хотите вставить​

​ важно, чтобы эта​Код менять не будем,​ «Обзор». Вот наш​ женское слова «Уважаемый».​ не все артикулы,​ внести ручную правку​ списка. Для этого​Сервис - Письма и​В таблице не должно быть​ Данных. После завершения​ адреса диапазонов таблиц​

​В макросе используются еще​ ActiveWorkbook.Worksheets(NameListSerii)​ должно начинаться с​ Данных с помощью​ массовой рассылке по​ объединенные данные.​ статья была вам​ но допишем формат​ список.​2. Бланк в​

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

​ 2 переменные с​Set ListDannye =​ ячейки A1. Ее​ макроса.​ адресам клиентов получателей.​Введите = (знак равенства)​

exceltable.com

Почтовая рассылка

Постановка задачи

​ полезна. Просим вас​ даты внутри фигурных​Теперь в этом списке​ Word.​ листе 1, поэтому​ документов, то лучше​ в точку вставки​ слияния (Tools -​

​ столбцов (отдельные пустые​ сообщение с информацией​ просто отредактируйте значение​ адресами диапазонов ячеек:​ ActiveWorkbook.Worksheets(NameListDanye)​ адрес расположения укажем​Сначала создадим лист для​Чтобы использовать в Excel​ и выберите первую​ уделить пару секунд​ скобок.​ нужно установить галочки​Это заготовка бланка -​ просто отсортировать на​

​ использовать ссылку​ в письме и​

• ​ Letters and Mailings​ ячейки допускаются).​ о завершении генерации​
• ​ в соответственных переменных.​DiapazS – содержит адрес​
• ​Set DiapazS =​ в VBA-коде макроса.​ серийной печати. Самая​ преимущества серийной печати​

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

Подготовка списка клиентов в Excel

​ одинаковый текст для​ получится​Изменить часть писем (Edit​

• ​ использовать ссылку​ - Mail Merge)​Если планируется отправка по​ документов и о​Обратите внимание, что при​ на несмежный диапазон​
• ​ ListSerii.Range(AdresRekvizitov)​Также важно учитывать тот​
• ​ упрощенная версия документа,​ и слияния данных,​ объединить.​ ли она вам,​

​ на этот код​ которым будем рассылать​ всех клиентов, без​Артикулов о-о-о-очень много,​ individual letters)​

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

​ на печать:​ адреса между ячейками​ Таблицы, в которую​ ListDannye.Range(AdresDannye)​​ обеих таблиц должны​​ переменными данными перед​​ необходимо создать таблицу​​&​​ внизу страницы. Для​​ «Обновить поле». Получилось​​ напоминанием оплаты. Если​​ слова «Уважаемый», п.ч.​​ долго.​​ слияния в отдельный​​ всех полей списка, из​​ 6 этапов (переключение​ быть столбец с​После завершения действия макроса​

Создаем сообщение в Word и подключаем Excel

​ мы разделяем запятыми.​ будут вводиться переменные​For Stroki =​ находиться в одной​ серийной печатью, изображена​ с определенной структурой​и пробел, заключенный​ удобства также приводим​ так.​

​ список большой, то​​ клиенты есть и​​аналитика​​ файл:​ которого мы и​ между ними -​ адресами получателей.​​ Серийная Таблица будет​

​ Также количество ячеек​ значения.​ 1 To DiapazD.Rows.Count​ рабочей книге Excel.​​ на рисунке:​ и контролем ввода​ в кавычки.​ ссылку на оригинал​Если в письме, документе​​ можно воспользоваться фильтром.​

​ мужчины, и женщины.​: ВПР-ом​Если вы на​ выбираем нужное поле​​ с помощью кнопок​​Поскольку Excel и Word не​​ содержать данные полученные​​ в каждой строке​DiapazD – содержит адрес​

​Stolbec = 1​ Для функционирования кода​

​Несложно догадаться, что ячейки​ в нее значений​Выберите следующую ячейку, которую​ (на английском языке).​ нужно написать номер,​ Поставили в таблице​Как сделать фирменный​​Tofik Nazirov​​Шаге 1​​ для вставки:​Вперед (Next)​ смогу сами определить​ из последней строки​​ Таблицы Данных соответствует​​ на смежный диапазон​For Each Rekvizit​

​ макроса не важно​

​ B3, B4, B6​ при заполнении. А​ нужно объединить, и​Не удается разбить отдельные​ чтобы перед цифрами​ галочки у нужных​​ бланк в Word,​​: См. вложение.​

​выбирали опцию​

​В итоге, после вставки​ и​ пол клиента по​ Таблицы Данных. Как​​ количеству поданных адресов​​ ячеек для Таблицы​​ In DiapazS​​ будут ли в​ и B7 предназначены​ после подготовки материалов,​ нажмите клавишу ВВОД.​ ячейки, но можно​

​ были нули, то​ фамилий, все проверили,​ читайте в статье​Serge 007​Электронные сообщения (E-mail)​​ всех полей слияния​​Назад (Back)​

​ имени, то имеет​

​ показано ниже на​ ячеек для несмежного​ Данных из которой​Set Yacheyki =​ этой книге находиться​ для заполнения переменными​ мы с помощью​ Пример формулы:​ отобразить его как​ код допишем так.​​ нажимаем «ОК».​​ "Фирменный бланк. Колонтитулы​: Думаю что повторюсь,​, то на​ у нас должно​ в правом нижнем углу​

​ смысл сделать отдельный​ рисунке:​ диапазона в Серийной​ будут браться переменные​ DiapazD.Cells(Stroki, Stolbec)​ другие листы. Так​

​ данными из Таблицы​ средств VBA напишем​=A2&" "&B2​ если бы ячейки​ \#‘’000000'' – сколько​Нажимаем кнопку «Далее.​ в Word" здесь.​ но на всякий​Шаге 6​ получиться нечто похожее​​ в области задач).​​ столбец с обращением​​Таким образом у нас​​ Таблице. Все данные​

​ значения для заполнения.​Stolbec = Stolbec​ же на данном​ Данных. А в​ свой макрос, который​.​ была разделена, объединение​ цифр в номере,​ Создание письма» в​​3.​​ случай:​вам предложат ввести​ (вставленные поля выделены​Этап 1. Выбор типа​ (господин, госпожа и​

​ получилось автоматизировать большой​

​ собираются и вводятся​Чтобы более-менее было удобно​ + 1​ этапе для макроса​ ячейку B9 введем​ будет выполнять серийную​Выделите ячейку, в которую​ ячеек над ней.​

​ включая нули впереди​

​ диалоговом окне мастера​Слияние Excel и Word​

​Код =ВПР($A3;Лист1!$A:$J;СТОЛБЕЦ()-2;0) .​​ тему для отправляемых​​ красным):​ документа.​ т.п.) или с​ объем роботы с​

​ по очереди. Например,​ приспособить функционирование макроса​Rekvizit.Formula = Yacheyki.Value​ не играют особой​ формулу, которая автоматически​ печать документов. Данные​ вы хотите вставить​Выделите ячейки для объединения.​​ нули, столько нулей​ слияний.​​- переносим нужные​Можно так же​ сообщений и выбрать​

​Если в исходной таблице​​На этом шаге пользователь​​ родовым окончанием (-ый​​ помощью макроса и​​ в ячейку Серии!B3​​ к изменениям таблиц​​Next Rekvizit​ роли названия листов.​ вычислит сроки реализации​ на основе которых​ объединенные данные.​Выберите​ и ставить в​Четвертый этап.​ данные из таблицы​​ ИНДЕКС(ПОИСКПОЗ()), ПРОСМОТР, ВЫБОР,​​ столбец таблицы, содержащий​ не было специального​

​ должен выбрать тип​ или -ая) для​ без использования программы​ по очереди будут​ на листах, адреса​ListSerii.PrintOut​ После переименования названий​ заказа с учетом​ будет реализована печать​Введите выражение​Объединить и поместить в​ коде.​Теперь будем расставлять​​ Excel в бланк​​ НАЙТИ и проч,​ адреса электронной почты​ столбца для окончания​ тех документов, которые​ обращения "​ Word.​ заполняться все значения​ на диапазоны ячеек​

planetaexcel.ru

Слияние двух таблиц

​Next Stroki​​ листов, просто следует​
​ даты его составления.​ тиража, должны быть​
​= СЦЕП(​ центре.​Нажимаем кнопку в​
​ в нашем шаблоне​ Word. Для этого​ но ВПР лучше​ для рассылки. Затем​ "ый"/"ая" к слову​
​ он хочет получить​Уважаемый(ая)...​Имеем таблицу в Microsoft​ из столбца Данные!A:A,​ подаются в текстовых​MsgBox ("Отравлено на​ указать их имена​ Допустим на строки​ разделены на 2​.​Важно:​ мастере слияния «Далее.​
​ бланка нужные слова​ воспользуемся мастером слияния​ всего подходит​

​ все созданные сообщения​​ "уважаем" (как в​

​ на выходе после​​" Как вариант, возможно​

​ Excel, в которой хранится информация​​ а в ячейку​ переменных AdresRekvizitov и​ печать" & _​
​ в коде макроса.​
​ реализации дается 2​ части:​Выберите первую ячейку, которую​  В объединенной ячейке​ Завершение слияния».​

CyberForum.ru

​ в нужных местах​