4 Эффективные способы вывести все Имя листа в Рабочая книга Excel

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

Перечисление всех имён листов в рабочей книге

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

Перечисление всех имён листов в рабочей книге

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

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

Самый простой способ перечислить все Имя листа — это ручной процесс:

Шаг 1: Откройте Новая рабочая книга

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

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

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

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

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

Использование Kutools для Excel (просто, имена листов кликабельны)

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

Нажмите «KUTOOLS PLUS» → «Лист» → «Создать связующую таблицу». В открывшемся диалоговом окне задайте необходимые параметры:

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

2. Задайте имя новому листу, на котором будет размещён список имён листов.

3. Укажите, где разместить новый лист.

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

5. Нажмите «ОК».

   

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

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

В Excel вы можете быстро вывести все имена листов на новый лист, создав именованный диапазон.

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

Шаг 2: Измените имя и формулу в диалоговом окне «Новое имя»

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

• «Ссылка на»: скопируйте и вставьте приведённую ниже формулу

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

• Нажмите «ОК».

  

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

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

=TRANSPOSE(ListNames)

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

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

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

Шаг 1: Откройте книгу, имена листов которой требуется вывести

Шаг 2: Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications

Шаг 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 — в нашем блоге.