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

Перечислить все имена листов в книге

• Использование копирования и вставки (вручную)
• Использование Kutools for Excel (просто, имена листов можно связать)
• Использование диапазона имен (список на новом листе)
• Использование VBA (нестабильно)

Перечислить все имена листов в книге

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

Использование копирования и вставки (вручную)

Самый простой способ составить список всех имен рабочих листов включает ручной процесс:

Шаг 1. Откройте новую книгу

Шаг 2. Дважды щелкните вкладку листа, которую вы хотите скопировать.

Шаг 3. Нажмите клавиши Ctrl + C, чтобы скопировать имя листа.

Шаг 4: Щелкните ячейку и нажмите Ctrl + V, чтобы вставить имя листа.

Шаг 5. Повторите описанные выше шаги, чтобы скопировать и вставить все имена вкладок листов в книгу одно за другим.

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

Использование Kutools for Excel (просто, имена листов можно связать)

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

Нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов. В появившемся диалоговом окне укажите настройки:

1. Выберите стиль индекса (способ отображения названий листов, к которым можно ссылаться: в виде текста гиперссылки или кнопок).

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

3. Укажите расположение нового листа.

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

5. Нажмите OK.

   

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

Использование диапазона имен (список на новом листе)

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

Шаг 1. Нажмите «Формулы» > «Определить имя».

Шаг 2. Отредактируйте имя и формулу в диалоговом окне «Новое имя».

• Имя: введите имя для диапазона имен

• Относится к: скопируйте и вставьте в нее приведенную ниже формулу

  =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

• Нажмите OK.

  

Шаг 3. Использование формулы для получения списка имен листов

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

=TRANSPOSE(ListNames)

ListNames — это имя, которое вы даете для диапазона имен на шаге выше.

Использование VBA (нестабильно)

Более продвинутый и настраиваемый метод включает в себя написание сценария VBA для извлечения и вывода имен рабочих листов:

Шаг 1. Откройте книгу, в которой хотите просмотреть имена ее листов.

Шаг 2. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 3. Нажмите «Вставить модуль».

Шаг 4. Скопируйте и вставьте приведенный ниже код в модуль.

Sub ListSheetNamesInNewWorkbook()
'UpdatebyExtendoffice
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' Reference the current workbook
    Set wbSource = ActiveWorkbook
    
    ' Create a new workbook
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    
    ' List all sheet names from the active workbook in the new workbook
    For i = 1 To wbSource.Sheets.Count
        wsTarget.Cells(i, 1).Value = wbSource.Sheets(i).Name
    Next i
    
    ' Cleanup
    Set wbSource = Nothing
    Set wbTarget = Nothing
    Set wsTarget = Nothing
End Sub

Шаг 5: Нажмите клавишу F5 или кнопку «Выполнить», чтобы запустить код.

Теперь открывается новая книга, в которой перечислены все имена листов.

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