Ако имате работна книга на Excel, която има стотици работни листове и сега искате да получите списък с всички имена на работни листове, можете да се обърнете към тази статия. Тук ще споделим 3 лесни метода с вас.
Понякога може да се наложи да генерирате списък с всички имена на работни листове в работна книга на Excel. Ако има само няколко листа, можете просто да използвате Метод 1, за да изброите имената на листа ръчно. Ако обаче работната книга на Excel съдържа голям брой работни листове, по-добре използвайте последните 2 метода, които са много по-ефективни.
Метод 1: Вземете списък ръчно
- Първо отворете конкретната работна книга на Excel.
- След това щракнете двукратно върху името на лист в списъка с листове в долната част.
- След това натиснете „Ctrl + C“, за да копирате името.
- По-късно създайте текстов файл.
- След това натиснете „Ctrl + V“, за да поставите името на листа.
- По този начин можете да копирате името на всеки лист в текстовия файл едно по едно.
Метод 2: Списък с формула
- В началото се обърнете към раздела „Формули“ и щракнете върху бутона „Мениджър на имена“.
- След това в изскачащия прозорец щракнете върху „Ново“.
- В следващия диалогов прозорец въведете “ListSheets” в полето “Name”.
- По-късно в полето „Отнася се за“ въведете следната формула:
= ЗАМЕНЕТЕ (GET.WORKBOOK (1), 1, FIND ("]", GET.WORKBOOK (1)), "")
- След това щракнете върху „OK“ и „Close“, за да запазите тази формула.
- След това създайте нов работен лист в текущата работна книга.
- След това въведете „1“ в клетка А1 и „2“ в клетка А2.
- След това изберете двете клетки и ги плъзнете надолу, за да въведете 2,3,4,5 и т.н. в колона А.
- По-късно поставете следната формула в клетка B1.
= ИНДЕКС (ListSheets, A1)
- Веднага името на първия лист ще бъде въведено в клетка B1.
- И накрая, просто копирайте формулата надолу, докато видите „#REF!“ грешка.
Метод 3: Списък чрез Excel VBA
- За катоtart, задейства редактора на Excel VBA според „Как да стартирате VBA код във вашия Excel".
- След това поставете следния код в модул или проект.
Sub ListSheetNamesInNewWorkbook () Dim objNewWorkbook As Workbook Dim objNewWorksheet As Worksheet Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) For i = 1 To ThisWorkbook.Sjeets.JetCWorks.JetCworks. i objNewWorksheet.Cells (i, 1) = ThisWorkbook.Sheets (i) .Name Next i С objNewWorksheet .Rows (2) .Insert .Cells (1, 1) = "INDEX" .Cells (1, 1) .Font. Удебелен = Вярно. Клетки (1, 1) = "ИМЕ". Клетки (2, 1). Шрифт.Bold = Вярно. Колони ("A: B"). Автоматично монтиране Край с край Sub
- По-късно натиснете „F5“, за да стартирате този макрос точно сега.
- Веднага ще се появи нова работна книга на Excel, в която можете да видите списъка с имена на работни листове на изходната работна книга на Excel.
сравнение
| Предимства | Недостатъци | |
| Метод 1 | Лесен за работа | Твърде обезпокоително, ако има много работни листове |
| Метод 2 | Лесен за работа | Изисква първо да въведете индекса |
| Метод 3 | Бързо и удобно | Потребителите трябва да се пазят от външните злонамерени макроси |
| Лесно дори за VBA начинаещи |
Excel се поврежда
Известно е, че MS Excel от време на време се срива, като по този начин уврежда текущите файлове при запазване. Затова е силно препоръчително да се сдобиете с външен мощен Поправка на Excel инструмент, като DataNumen Outlook Repair. Това е така, защото е доказано, че тази функция за самовъзстановяване в Excel често се проваля.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com