Как сделать оглавление листов в Excel: 5 рабочих способов с примерами

Зачем нужно оглавление листов в Excel и когда без него не обойтись

Работаете с книгой Excel, где десятки листов, и постоянно теряетесь в поисках нужного? Оглавление листов решает эту проблему раз и навсегда. Это не просто удобство — это инструмент повышения продуктивности, когда речь идёт о сложных финансовых моделях, отчётах с разделением по месяцам или проектах с множеством этапов. Без оглавления вы тратите до 30% времени на переключение между листами и поиск данных.

Представьте: у вас книга с 50 листами, названными Январь_2026_Продажи, Февраль_2026_Затраты, Март_2026_Аналитика и так далее. Без оглавления вам придётся прокручивать вкладки вручную или использовать поиск (Ctrl+F), который ищет только внутри активного листа. С оглавлением достаточно одного клика — и вы на нужной странице. А если листы часто добавляются или переименовываются? Автоматическое оглавление обновляется само, экономя часы ручной работы.

В этой статье вы узнаете:

• 🔹 Как создать ручное оглавление с гиперссылками за 2 минуты (подходит для небольших книг)
• 🔹 Пошаговую инструкцию по автоматическому оглавлению с формулами ГИПЕРССЫЛКА и ДВССЫЛ
• 🔹 Как добавить оглавление через Power Query (для продвинутых пользователей)
• 🔹 Секреты оформления: иконки, выпадающие списки и цветовые группы
• 🔹 Типичные ошибки, из-за которых оглавление "ломается" (и как их избежать)

Способ 1: Ручное оглавление с гиперссылками — быстро и без формул

Если в вашей книге меньше 20 листов и они редко меняются, ручное оглавление — самый простой вариант. Его плюс: не нужно разбираться в формулах или VBA. Минус: при добавлении нового листа придётся обновлять оглавление вручную.

Алгоритм действий:

1. Создайте новый лист и назовите его Оглавление (или Contents, если работаете с англоязычной версией Excel).
2. В ячейке A1 введите заголовок, например, "Список листов".
3. Начиная с A2, перечислите названия всех листов книги (по одному на строку).
4. Выделите первую ячейку с названием листа (например, A2), нажмите правой кнопкой мыши и выберите Ссылка (или Link).
5. В открывшемся окне слева выберите Место в документе, затем укажите нужный лист и ячейку (обычно A1). Нажмите ОК.
6. Повторите шаги 4-5 для всех остальных названий.

Теперь при клике на любой пункт оглавления Excel будет переходить на соответствующий лист. Чтобы ссылки выглядели как текст (без подчёркивания), выделите их и нажмите Ctrl+1, затем выберите нет подчёркивания в настройках шрифта.

Создать отдельный лист "Оглавление"

Перечислить все листы в столбце A

Добавить гиперссылки на каждый лист

Убрать подчёркивание у ссылок (через формат ячеек)

Проверить работоспособность всех ссылок-->

⚠️ Внимание: Если вы переименуете лист после создания оглавления, гиперссылка не обновляется автоматически — её придётся пересоздавать. Это главная ловушка ручного метода.

Способ 2: Автоматическое оглавление с формулами ГИПЕРССЫЛКА и ДВССЫЛ

Для книг с часто меняющимися листами ручное оглавление не подходит. Здесь на помощь приходят формулы. Мы будем использовать комбинацию ГИПЕРССЫЛКА (создаёт кликабельную ссылку) и ДВССЫЛ (динамически подставляет адрес листа).

Инструкция:

1. Создайте лист Оглавление и в ячейке A1 введите заголовок.
2. В ячейке A2 введите формулу:

   =ГИПЕРССЫЛКА("#"&ДВССЫЛ("Лист"&СТРОКА(A1))&"!A1"; ДВССЫЛ("Лист"&СТРОКА(A1)))

   Эта формула предполагает, что ваши листы названы Лист1, Лист2 и так далее. Если названия другие, читайте дальше.

3. Протяните формулу вниз на столько строк, сколько листов в книге.

Если листы имеют уникальные названия (например, Отчёт_2026, Бюджет), используйте этот вариант:

=ЕСЛИОШИБКА(ГИПЕРССЫЛКА("#"&ПОДСТАВИТЬ(ДВССЫЛ("Лист"&СТРОКА(A1));" ";""); ДВССЫЛ("Лист"&СТРОКА(A1)));"")

Формула автоматически обновит оглавление при добавлении или переименовании листов. Чтобы скрыть ошибки для пустых строк, оберните её в ЕСЛИОШИБКА.

Способ 3: Оглавление через VBA — для больших книг с сотнями листов

Если в вашей книге больше 100 листов, формулы начинают тормозить, а ручное оглавление становится нереалистичным. Здесь поможет макрос на VBA, который создаст оглавление за секунды.

Как это работает:

1. Нажмите Alt+F11, чтобы открыть редактор VBA.
2. В меню выберите Insert → Module.
3. Вставьте следующий код:

   Sub CreateTableOfContents()
   Dim ws As Worksheet, tocWS As Worksheet
   Dim i As Integer
   
   ' Создаём лист для оглавления (или очищаем существующий)
   On Error Resume Next
   Set tocWS = ThisWorkbook.Sheets("Оглавление")
   If tocWS Is Nothing Then
   Set tocWS = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1))
   tocWS.Name = "Оглавление"
   Else
   tocWS.Cells.Clear
   End If
   On Error GoTo 0
   
   ' Заголовок
   tocWS.Range("A1").Value = "Оглавление листов"
   tocWS.Range("A1").Font.Bold = True
   
   ' Перебираем все листы и добавляем гиперссылки
   i = 2
   For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "Оглавление" Then
   tocWS.Hyperlinks.Add Anchor:=tocWS.Cells(i, 1), _
   Address:="", SubAddress:="'" & ws.Name & "'!A1", _
   TextToDisplay:=ws.Name
   i = i + 1
   End If
   Next ws
   
   ' Форматирование
   tocWS.Columns("A:A").AutoFit
   tocWS.Range("A2:A" & i - 1).Font.Name = "Calibri"
   tocWS.Range("A2:A" & i - 1).Font.Size = 11
   End Sub

4. Закройте редактор и запустите макрос через Alt+F8 (выберите CreateTableOfContents и нажмите Выполнить).

Макрос создаст лист Оглавление с кликабельными ссылками на все остальные листы книги. Преимущества этого метода:

• 🔹 Работает даже с 500+ листами (формулы в таком случае "подвисают").
• 🔹 Автоматически пропускает скрытые листы (если они есть).
• 🔹 Можно доработать код для сортировки листов по алфавиту или группам.

⚠️ Внимание: Макросы могут конфликтовать с защитой книги. Если ваш файл защищён паролем, временно снимите защиту перед запуском кода (меню Рецензирование → Снять защиту книги).

Ручное с гиперссылками

Автоматическое с формулами

Макрос на VBA

Power Query

Ещё не пробовал-->

Способ 4: Оглавление через Power Query — для продвинутых пользователей

Power Query (или Get & Transform в новых версиях Excel) позволяет создать оглавление, которое обновляется при изменении структуры книги. Этот метод подходит, если вы работаете с данными из разных источников и нуждаетесь в динамическом управлении листами.

Пошаговая инструкция:

1. Перейдите на лист Оглавление и выберите Данные → Получить данные → Из других источников → Пустая запрос.
2. В открывшемся редакторе Power Query введите в строку формул:

   = Excel.CurrentWorkbook(){[Name="TableNames"]}[Content]

   (Этот код вернёт список всех таблиц в книге. Для листов используем другой подход.)

3. Для получения списка листов используйте этот запрос:

   = let
   Source = Excel.CurrentWorkbook(),
   Sheets = Source{[Name="SheetNames"]}[Content],
   #"Filtered Rows" = Table.SelectRows(Sheets, each ([Name] <> "Оглавление"))
   in
   #"Filtered Rows"

4. Нажмите Закрыть и загрузить, выбрав вариант Таблица.
5. Добавьте столбец с гиперссылками через формулу:

   =ГИПЕРССЫЛКА("#"&A2&"!A1"; A2)

Главное преимущество Power Query — возможность фильтрации и трансформации данных. Например, вы можете:

• 🔹 Сгруппировать листы по префиксам (например, все листы с "2026_" в одну группу).
• 🔹 Добавить столбец с датой последнего изменения листа.
• 🔹 Исключить служебные листы (например, Data или Temp).

Оформление оглавления: иконки, выпадающие списки и цветовые группы

Функциональность оглавления — это хорошо, но визуальная привлекательность повышает удобство работы. Вот несколько приёмов оформления:

1. Добавление иконок

Используйте символы из шрифта Wingdings или Segoe UI Symbol для визуального разделения разделов. Например:

• 📄 Для обычных листов: вставьте символ 📄 (код 1F4C4 в Segoe UI Symbol).
• 📊 Для листов с диаграммами: символ 📊 (код 1F4CA).
• 🔒 Для защищённых листов: символ 🔒 (код 1F512).

2. Выпадающий список для быстрого перехода

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

1. В ячейке B1 создайте выпадающий список через Данные → Проверка данных → Список.
2. В качестве источника укажите диапазон с названиями листов (например, =Оглавление!A2:A50).
3. Рядом добавьте кнопку с макросом, который будет переходить на выбранный лист:

   Sub GoToSheet()
   Dim sheetName As String
   sheetName = Range("B1").Value
   On Error Resume Next
   Sheets(sheetName).Activate
   Range("A1").Select
   End Sub

3. Цветовые группы

Раскрасьте названия листов в оглавлении в зависимости от их типа:

Для автоматической раскраски используйте Условное форматирование с формулами вроде:

=ПОИСК("Отчёт_";A2)>0

Эта формула выделит все листы, в названии которых есть префикс "Отчёт_".

Типичные ошибки и как их избежать

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

1. Гиперссылки не работают после переименования листа

Если вы переименовали лист вручную, а оглавление было создано через формулы или макрос, ссылки "сломаются". Решение:

• 🔹 Для формул: используйте ДВССЫЛ с динамическими именами.
• 🔹 Для макросов: запустите код заново (Alt+F8).
• 🔹 Для ручных ссылок: удалите старую ссылку и создайте новую.

2. Оглавление не обновляется при добавлении новых листов

Это характерно для ручного оглавления и статических формул. Решения:

• 🔹 Переключитесь на динамические формулы с ДВССЫЛ.
• 🔹 Используйте Power Query или VBA для автоматического обновления.
• 🔹 Добавьте кнопку "Обновить оглавление" с макросом, который пересоздаёт список листов.

3. Ошибка #ССЫЛКА! в формулах

Появляется, если формула пытается обратиться к несуществующему листу. Как исправить:

• 🔹 Оберните формулу в ЕСЛИОШИБКА:

=ЕСЛИОШИБКА(ГИПЕРССЫЛКА("#"&ДВССЫЛ("Лист"&СТРОКА(A1))&"!A1"); "")

• 🔹 Проверьте, не скрыты ли листы (скрытые листы не отображаются в ДВССЫЛ).
• 🔹 Убедитесь, что в названиях листов нет запрещённых символов: / \ ? * [ ].

4. Макрос не создаёт оглавление

Частые причины:

• 🔹 Отключены макросы (проверьте настройки безопасности).
• 🔹 Книга защищена от изменений (снимите защиту в меню Рецензирование).
• 🔹 Ошибка в коде (например, опечатка в названии листа Оглавление).

⚠️ Внимание: Если вы делитесь книгой с оглавлением по электронной почте, гиперссылки могут перестать работать после сохранения в формате CSV или TXT. Всегда сохраняйте файл как .xlsx или .xlsm (если есть макросы).

FAQ: Ответы на частые вопросы об оглавлении в Excel

If ws.Visible = xlSheetVisible And ws.Name <> "Оглавление" Then
' Добавляем ссылку
End If