Прескочи на основното съдържание

Как бързо да вмъкнете имена на листове в клетки в Excel?

Автор: Кели Последна промяна: 2020-04-27

Има ли лесен начин да вмъкнете името на текущия работен лист в една клетка? Как да вмъкна имената на всички работни листове в клетките? Тази статия ще ви предостави хитри методи за решаване на тези проблеми.

Бързо вмъкване на текущо име на лист в клетка с функции

Бързо вмъкнете всички имена на листове в клетки с VBA

Бързо вмъкнете името на активния лист с Kutools за Excel добра идея3

Бързо вмъкнете всички имена на листове с хипервръзки в клетки като индекс добра идея3


стрелка син десен балон Бързо вмъкване на текущо име на лист в клетка с функции

Просто въведете формулата на =RIGHT(CELL("име на файл",D2),LEN(CELL("име на файл",D2))-FIND("]",CELL("име на файл",D2))) във всяка клетка и натиснете Въведете ключ, той показва името на текущия работен лист в клетката.
doc-insert-sheets-name-into-cells1

Тази формула може да показва само името на текущия работен лист, но не и името на друг работен лист.


стрелка син десен балон Бързо вмъкнете всички имена на листове в клетки с VBA

Ако искате да вмъкнете всички имена на листове в клетките, макросът VBA е добър избор.

Стъпка 1: Задръжте надолу Друг + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.

Стъпка 2: Кликнете върху Поставете > Модулии поставете следния макрос в прозореца на модула.

VBA за вмъкване на имена на всички работни листове в клетки:

Имена на подлистове()
Колони(1).Вмъкване
За i = 1 To Sheets.Count
Клетки(i, 1) = Листове(i).Име
Следващ i
End Sub

Стъпка 3: Натиснете бутона F5 ключ за изпълнение на този макрос. След това имената на всички работни листове ще бъдат посочени в колона A на текущия работен лист. Вижте екранна снимка:
doc-insert-sheets-name-into-cells2

Забележка: В кода на VBA можете да промените Клетки (i, 1) към друга препратка, за да вмъкнете имената на листовете, започващи от други клетки. Например вмъкнете имена на листове, започващи от C3, променете го на Клетки (i+2, 3).


стрелка син десен балон Бързо вмъкнете името на активния лист с Kutools за Excel

Ако искате да вмъкнете информация за активния лист, включително име на лист, име на работна книга, път на файла и т.н., в клетка или горен/долен колонтитул, можете да използвате Kutools за ExcelЕ Вмъкване на информация за работна книга.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. Изберете клетка или диапазон, за да поставите името на листа, и щракнете Kutools плюс > Workbook > Вмъкване на информация за работна книга.doc вмъкване на информация от работен лист 1

2. След това изберете информацията за работната книга, от която трябва да вмъкнете Информация и посочете местоположението, от което искате да поставите информацията Вмъкнете в раздел. След това щракнете OK.

doc 1

Можете да щракнете тук, за да научите повече за Insert Workbook Information.

стрелка син десен балон Вмъкнете информация от работната книга в клетка/горен колонтитул/долен колонтитул


стрелка син десен балон Бързо вмъкнете всички имена на листове с хипервръзки в клетки като индекс

Kutools за Excel's Създайте списък с име на лист помощната програма не само вмъква всички имена на листове в клетките, но също така вмъква хипервръзки към съответните листове.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

Стъпка 1: Кликнете върху Kutools плюс > Работен лист > Създайте списък с имена на листове.
doc-insert-sheets-name-into-cells3

Стъпка 2: В Създайте списък с имена на листове диалоговия прозорец, задайте настройките според вашите нужди и щракнете OK.
doc-insert-sheets-name-into-cells4

След това ще видите, че имената на всички листове са вмъкнати в нов работен лист и всяко име на лист има връзка към съответния работен лист. Вижте следните екранни снимки:

Имена на работни листове с хипервръзки
Имена на работни листове с макро бутони
doc-insert-sheets-name-into-cells5
doc-insert-sheets-name-into-cells6

- Създайте списък с име на лист помощната програма ви улеснява да създадете списък с имена на всички работни листове на активната работна книга в нов работен лист, който съдържа хипервръзки или макро бутони за бързо навигиране до други работни листове. Кликнете, за да научите повече за тази помощна програма.

стрелка син десен балон Избройте всички имена на листове с хипервръзки



Kutools за Excel: 300 + функции, които трябва да имате в Excel, 30-дневен безплатен пробен период от тук

Комбинирайте лесно няколко листа/работна книга в един единствен лист или работна книга

Комбинирането на множество листове или работни книги в един лист или работна книга може да е досадно в Excel, но с Комбинирам функция в Kutools за Excel, можете да комбинирате обединяване на десетки листове/работни книги в един лист или работна книга, също така можете да консолидирате листовете в един само с няколко кликвания.  Щракнете за пълнофункционален 30-дневен безплатен пробен период!
комбинирайте листове
 
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (32)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to find the sheet name (section name ) when you type employee no. in a cell? A workbook has 15 sheets named as per sections of the department.In each section has 100 employees in range A2:A101with unique employee no. I have a list of 50 employee nos in different sections. In a new work sheet how to find the section name which corresponds to the employee no.
This comment was minimized by the moderator on the site
Hello, Ashley Pereira, please visit this: https://www.extendoffice.com/documents/excel/5335-excel-vlookup-return-sheet-name.html this article may help you.
This comment was minimized by the moderator on the site
How do you get this formula to copy the tabnames into consecutive columns. In other words not vertically but horizontally.
This comment was minimized by the moderator on the site
Change the following:

Cells(i, 1) = Sheets(i).Name
to
Cells(1, i) = Sheets(i).Name

This causes to step columns in same row.
This comment was minimized by the moderator on the site
you can copy the data entered, then paste Transpose, this converts Cols to Rows, and Rows to Cols.
This comment was minimized by the moderator on the site
Just tried now the macro for inserting all the sheet's name in one sheet. Awesome! Thank you very much
This comment was minimized by the moderator on the site
How do you get the VBA to start in a specific cell instead of A1?
This comment was minimized by the moderator on the site
Just add to i like I did below. If you add to i you can start on any row you would like.

Sub GetNames()

For i = 1 To Sheets.Count

Cells(i + 6, 1) = Sheets(i).Name

Next i
End Sub
This comment was minimized by the moderator on the site
Thank u for your supplement.
This comment was minimized by the moderator on the site
You can change the number in Cells(i, 1) = Sheets(i).Name to other to insert the sheet names in other column, for instance, insert start from C1,change Cells(i, 1) = Sheets(i) to Cells(i, 3) = Sheets(i), but this VBA only can insert the sheet names start from the row 1.
This comment was minimized by the moderator on the site
Thanks!! this was was a great help.
This comment was minimized by the moderator on the site
Hi Kindly i want VBA code to insert file name in specific cell. Thanks
This comment was minimized by the moderator on the site
Great site was very helpful. I have different tab names and I get the names in one sheet using your code, but it gives names of all the tab names, is there anyway we can add code to select from certain tab number or something like that.
This comment was minimized by the moderator on the site
I have multiple project sheets database with different tab name and this name is shown in master sheet table. which formula can i give that when i insert new tab it should automatically updated in master table.
This comment was minimized by the moderator on the site
Can anyone help me with this: Create a macro that creates 10 sheets and name them Sheet1 to Sheet10 but using a loop
This comment was minimized by the moderator on the site
Hello, Can you please help me with the simple VBA code. I have a list of Names in Column A. Specific Range - (A2:A251) - Now I need to create new spreadsheets with these names. The names are driven from a different sheet, thus they keep changing. So in short, if I have 10 names today, they might not appear tomorrow. So on the click of button all older spreadsheets (except 1) should be deleted first and then from the names on the column, new ones should get created. Please advice if this is possible to do? Thanks, Manish Gupta
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations