Как быстро вставить имена листов в ячейки Excel?
Существует ли простой способ вставить имя текущего листа в ячейку? А как насчёт вставки имён всех листов? В этой статье раскрыты изящные методы решения этих задач.
Вставка имени Текущий лист в ячейку с помощью функций
Быстрая вставка имени Текущий лист с помощью Kutools для Excel
Вставка имён всех листов в ячейки с помощью VBA
Быстрая вставка имён всех листов с гиперссылками в ячейки в виде оглавления
Быстрая вставка имени Текущий лист в ячейку с помощью функций
Просто введите формулу =RIGHT(CELL(«filename»,D2),LEN(CELL(«filename»,D2))-FIND(«]»,CELL(«filename»,D2))) в любую ячейку и нажмите клавишу Enter, чтобы отобразить имя текущего листа в ячейке.
Эта формула отображает только имя текущего листа, но не имена других листов.
Быстрая вставка имени Текущий лист с помощью Kutools для Excel
Чтобы вставить информацию о текущем листе — включая имя листа, имя книги, путь к файлу и т.д. — в ячейку или колонтитул, воспользуйтесь функцией Kutools для Excel — Вставить информацию о книге.
После бесплатной загрузки и установкиKutools для Excel выполните следующие действия:
1. Выберите ячейку или диапазон для вставки имени листа и нажмите KUTOOLS PLUS > Книга > Вставить информацию о книге.
2. Затем выберите нужную информацию о книге в разделе Информация и укажите место её размещения в разделе Вставить в. Нажмите кнопку OK.
Подробнее о функции «Вставить информацию о книге» можно узнать здесь.
Быстрая вставка имён всех листов в ячейки с помощью VBA
Если вы хотите вставить имена всех листов в ячейки, макрос VBA — идеальное решение.
Шаг 1: Удерживая клавиши Alt+F11 в Excel, откройте окно Microsoft Visual Basic для приложений.
Шаг 2: Нажмите Вставка > Модуль и вставьте следующий макрос в окно модуля.
VBA-код для вставки имён всех листов в ячейки:
Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub
Шаг 3: Нажмите клавишу F5, чтобы запустить этот макрос. После этого имена всех листов появятся в столбце A текущей книги. См. снимок экрана:
Примечание: В коде VBA вы можете заменить Cells(i, 1) на другую ссылку, чтобы начать вставку имён листов с другой ячейки. Например, чтобы вставить имена листов, начиная с C3, замените её на Cells(i+2, 3).
Быстрая вставка имён всех листов с гиперссылками в ячейки в виде оглавления
Kutools для Excel's Создать список имён листов не только вставляет имена всех листов в ячейки, но и добавляет к ним гиперссылки, ведущие на соответствующие листы.
После бесплатной загрузки и установкиKutools для Excel выполните следующие действия:
Шаг 1: Нажмите KUTOOLS PLUS>Лист>Создать связующую таблицу.
Шаг 2: В диалоговом окне Создать связующую таблицу укажите необходимые параметры и нажмите кнопку OK.
После этого все имена листов будут вставлены в новый лист, и каждое из них будет содержать ссылку на соответствующий лист. См. следующие снимки экрана:
Утилита Создать список имён листовпозволяет легко создать список всех Имя листа книги Текущая книга в Новый лист, содержащий гиперссылки или кнопки макросов для быстрого перехода на другие листы.Подробнее об этой утилите.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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 и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек