KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как вставить номер страницы в ячейку, верхний или нижний колонтитул в Excel?

АвторСяоянДата изменения

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

Вставка номера страницы в верхний / нижний колонтитул одного листа

Вставка номера страницы в верхний / нижний колонтитул сразу на нескольких листах

Вставка номера страницы в ячейку с помощью кода VBA

Удаление всех номеров страниц одновременно в Excel

Вставка номера страницы в верхний / нижний колонтитул одного листа

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

1. Перейдите на лист, в верхний или нижний колонтитул которого хотите вставить номера страниц.

2. Затем нажмите Вставка > Верхний и нижний колонтитулы, после чего ваш лист перейдёт в режим Разметка страницы, см. снимок экрана:

снимок экрана, показывающий, как включить верхний и нижний колонтитулы на листе

3. Щёлкните по верхнему или нижнему колонтитулу, куда нужно вставить номер страницы. После этого на ленте появится вкладка Конструктор с группой инструментов Работа с верхними и нижними колонтитулами. Нажмите Конструктор > Номер страницы, см. снимок экрана:

снимок экрана вставки номера страницы в верхний или нижний колонтитул

4. В выбранной области появится заполнитель &[Page]. Щёлкните в любом месте за пределами области колонтитулов, чтобы отобразить номера страниц. См. снимок экрана:

снимок экрана с отображением номера страницы в верхнем или нижнем колонтитуле

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

Примечание: если вы хотите, чтобы номера страниц отображались в формате «1 из 15», «2 из 15» и т. д., просто введите в поле верхнего или нижнего колонтитула текст &[Page] из &[Pages]. См. снимок экрана:

снимок экрана с отображением номера страницы в формате «страница из общего числа страниц» в верхнем или нижнем колонтитуле

Вставка имени листа / имени файла / Время создания / Время изменения … в верхний/нижний колонтитул или ячейку:

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

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

Kutools для Excel: более чем 300 удобных надстроек для Excel, бесплатная пробная версия без ограничений на 30 дней.Скачайте и начните бесплатный пробный период прямо сейчас!

Вставка номера страницы в верхний / нижний колонтитул сразу на нескольких листах

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

1.Выделите все вкладки листов, перейдите на вкладку Разметка страницы и нажмите значок Запуск диалогового окна в группе Настройки страницы (см. снимок экрана):

снимок экрана открытия диалогового окна «Параметры страницы»

2. В диалоговом окне Настройки страницы перейдите на вкладку Верхний и нижний колонтитулы и нажмите кнопку Пользовательский верхний колонтитул или Пользовательский нижний колонтитул, чтобы настроить нужные колонтитулы. См. снимок экрана:

снимок экрана нажатия кнопки «Настраиваемый верхний колонтитул» или «Настраиваемый нижний колонтитул» по мере необходимости

3. В диалоговом окне Верхний колонтитул или Нижний колонтитул укажите место для вставки номера страницы: щёлкните внутри поля Левая часть:, Центральная часть: или Правая часть:, а затем нажмите значок Вставить номер страницы. Появится заполнитель &[Page]. См. снимок экрана:

снимок экрана вставки номера страницы в нужное место

Примечание: Чтобы номера страниц отображались в формате «1 из 45», «2 из 45» и т. д., введите в поле верхнего или нижнего колонтитула текст &[Page] из &[Pages].

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

Вставка номера страницы в ячейку с помощью кода VBA

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

1. Щёлкните ячейку, в которой должен отображаться номер страницы.

2. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

3. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуль.

Код VBA: вставка текущего номера страницы в ячейку:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Затем нажмите клавишу F5, чтобы выполнить этот код. Номер страницы появится в выбранной ячейке — см. снимок экрана:

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

Удаление всех номеров страниц одновременно в Excel

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

1. Выделите все вкладки листов, перейдите на вкладку Разметка страницы на ленте и нажмите значок Запуск диалогового окна в группе Настройки страницы. См. снимок экрана:

снимок экрана, показывающий, как открыть диалоговое окно «Параметры страницы»

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

снимок экрана удаления всех номеров страниц сразу из верхнего или нижнего колонтитула

3. Затем нажмите кнопку ОК, и все номера страниц будут удалены из книги одновременно.

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

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  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.

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