Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как вставить значение ячейки в колонтитул в Excel?

Author: Xiaoyang Last Modified: 2025-08-26

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

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

Вставка значения ячейки в верхний или нижний колонтитул всех рабочих листов с помощью кода VBA

Вставка информации о файле в колонтитул с помощью Kutools для Excel good idea3

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


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

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

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

1. Активируйте рабочий лист, куда вы хотите поместить значение ячейки в верхний или нижний колонтитул. Нажмите ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставка > Модуль и вставьте следующий код в новое окно Модуль.

VBA код: вставка указанного значения ячейки в верхний колонтитул рабочего листа

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Нажмите F5 (или нажмите кнопку Выполнить), чтобы выполнить этот макрос. Появится диалоговое окно с запросом выбрать ячейку, значение которой вы хотите использовать в верхнем колонтитуле.
Dialog for selecting a cell that you want to put its content into the header

4. После выбора ячейки и нажатия OK, значение выбранной ячейки будет вставлено в левый верхний колонтитул активного рабочего листа. Чтобы просмотреть колонтитул, перейдите в раздел Файл > Печать (или используйте Разметка страницы вид). Смотрите пример ниже:
The cell value is inserted to header

Примечания:

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

VBA код: вставка указанного значения ячейки в нижний колонтитул рабочего листа

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
  • Чтобы изменить положение, замените LeftHeader или LeftFooter в коде на CenterHeader, RightHeader, CenterFooter или RightFooter по необходимости. Например, чтобы вставить значение в центральный верхний колонтитул, измените LeftHeader на CenterHeader.
  • Всегда убедитесь, что ссылка на ячейку действительна перед запуском скрипта. Если вы попытаетесь сослаться на пустую ячейку, верхний/нижний колонтитул будет пустым.
  • После запуска макроса, если вы измените исходную ячейку, верхний/нижний колонтитул не обновится автоматически; вам придется повторно запустить макрос, чтобы обновить отображаемую информацию.
  • Этот метод с использованием VBA рекомендуется, когда вы хотите автоматизировать действия переноса значений ячеек в колонтитулы без частых обновлений, или когда работаете с шаблонами с динамическим содержимым для каждого вывода на печать.
  • Если вы столкнетесь с предупреждением «Макросы отключены», убедитесь, что параметры макросов включены в Файл > Параметры > Центр доверия.

Вставка значения ячейки в верхний или нижний колонтитул всех рабочих листов с помощью кода VBA

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

1. Откройте книгу, где вы хотите применить изменения, и нажмите ALT + F11, чтобы запустить окно Visual Basic for Applications.

2. В редакторе VBA щелкните Вставка > Модуль, затем скопируйте и вставьте следующий макрос в окно модуля.

VBA код: вставка указанного значения ячейки в нижний колонтитул всех рабочих листов

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

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

Dialog for selecting a cell that you want to put its content into the footer

4. После выбора ячейки и нажатия OK, это значение ячейки будет вставлено в левый нижний колонтитул каждого рабочего листа в книге. Вы можете проверить назначение колонтитула, перейдя в раздел Файл > Печать.
The cell value is inserted to footer

Примечания:

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

VBA код: вставка указанного значения ячейки в верхний колонтитул всех рабочих листов

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
  • Чтобы вставить значение в правое или центральное положение верхнего/нижнего колонтитула, просто замените LeftHeader/LeftFooter на CenterHeader/CenterFooter или RightHeader/RightFooter в скрипте.
  • Обратите внимание, что действия отмены не применяются к изменениям, сделанным с помощью макросов VBA. Перед этим сохраните свой документ, чтобы избежать потери данных, если результат окажется неожиданным.
  • Этот подход лучше всего подходит для книг, где все листы имеют общие требования к верхним/нижним колонтитулам. Когда листы нуждаются в разных данных, рассмотрите возможность запуска макроса для одного листа отдельно на каждом.
  • Если вы столкнетесь с проблемами, когда верхние/нижние колонтитулы не обновляются должным образом, убедитесь, что у вас не включена защита листов или защита книги.

Вставка информации о файле в колонтитул с помощью Kutools для Excel

В случаях, когда вы хотите быстро и гибко вставить информацию о файле, такую как имя рабочего листа, имя книги или путь к файлу, в верхний или нижний колонтитул, Kutools для Excel предоставляет специальный инструмент под названием Insert Workbook Information. Этот инструмент особенно подходит, если вы предпочитаете решение без использования кода, требуете пакетной обработки или хотите вставить несколько встроенных свойств документа без ручного ввода или риска ошибок. Kutools делает процесс доступным для пользователей, которые не хотят взаимодействовать с VBA или регулярно нуждаются в обновлении колонтитулов на основе метаданных книги.

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

После бесплатной установки Kutools для Excel выполните следующие шаги:

1. Перейдите на вкладку Kutools Plus затем выберите Книга > Insert Workbook Information.
Insert Workbook Information option on the Kutools tab on the ribbon

2. В диалоговом окне Insert Workbook Information выберите конкретную информацию, которую хотите вставить (например, путь к книге, имя файла, имя листа и т. д.) в разделе Информация. Затем укажите, хотите ли вы вставить ее в верхний или нижний колонтитул, отметив Верхний колонтитул или Нижний колонтитул.

Совет: Вы можете выбрать положение внутри верхнего или нижнего колонтитула — по центру, слева или справа — используя параметры расположения. Это полезно для структурированных макетов, таких как размещение пути к файлу слева и имени листа по центру.
Insert Workbook Information dialog

3. Нажмите OK чтобы применить ваши настройки. Чтобы проверить результат, перейдите в раздел Вид > Разметка страницы или используйте Файл > Предварительный просмотр.
Header with file info inserted

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

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

Если информация в вашем верхнем или нижнем колонтитуле не обновляется автоматически, проверьте, установлен ли режим расчета книги на Ручной, поскольку некоторые верхние/нижние колонтитулы требуют обновления документа для отображения последних данных.


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

Если вам нужно только периодически обновлять верхний или нижний колонтитул содержимым ячейки и вы хотите избежать использования VBA и надстроек, вы можете скопировать значение ячейки и вставить его вручную в диалоговое окно верхнего или нижнего колонтитула. Дважды щелкните раздел верхнего/нижнего колонтитула в режиме Разметка страницы и вставьте значение ячейки с помощью Ctrl+V. Недостатком является то, что это ручной процесс — вам нужно будет обновлять значение каждый раз, когда оно меняется.


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

Демонстрация: Вставка информации о книге в ячейку/верхний или нижний колонтитул

 
Kutools для Excel: Более 300 удобных инструментов у вас под рукой! Наслаждайтесь постоянно бесплатными функциями ИИ! Скачать сейчас!

Связанные статьи:

Как вставить имя файла или путь в ячейку / верхний или нижний колонтитул в Excel?

Как вставить и удалить верхний колонтитул, нижний колонтитул и изображение в верхнем колонтитуле в Excel?

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
  • Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!

Все надстройки Kutools. Один установщик

Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.

Excel Word Outlook Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек