Если у вас есть рабочая книга Excel с сотнями рабочих листов, и теперь вы хотите получить список имен всех рабочих листов, вы можете обратиться к этой статье. Здесь мы поделимся с вами тремя простыми методами.
Иногда вам может потребоваться создать список всех имен рабочих листов в книге Excel. Если листов всего несколько, вы можете просто использовать метод 1, чтобы перечислить имена листов вручную. Однако в случае, если рабочая книга Excel содержит большое количество рабочих листов, вам лучше использовать последние 2 метода, которые намного эффективнее.
Метод 1. Получить список вручную
- Во-первых, откройте конкретную книгу Excel.
- Затем дважды щелкните имя листа в списке листов внизу.
- Затем нажмите «Ctrl + C», чтобы скопировать имя.
- Позже создайте текстовый файл.
- Затем нажмите «Ctrl + V», чтобы вставить имя листа.
- Теперь, таким образом, вы можете копировать имена каждого листа в текстовый файл одно за другим.
Способ 2: список с формулой
- Сначала перейдите на вкладку «Формулы» и нажмите кнопку «Диспетчер имен».
- Далее во всплывающем окне нажмите «Создать».
- В следующем диалоговом окне введите «ListSheets» в поле «Имя».
- Затем в поле «Относится к» введите следующую формулу:
=ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ КНИГУ(1),1,НАЙТИ("]", ПОЛУЧИТЬ.РАБОЧУЮ КНИГУ(1)),"")
- После этого нажмите «ОК» и «Закрыть», чтобы сохранить эту формулу.
- Затем создайте новый лист в текущей книге.
- Затем введите «1» в ячейку A1 и «2» в ячейку A2.
- После этого выберите две ячейки и перетащите их вниз, чтобы ввести 2,3,4,5 и т. д. в столбце A.
- Позже поместите следующую формулу в ячейку B1.
= ИНДЕКС (Список Листов, A1)
- Сразу же имя первого листа будет введено в ячейку B1.
- Наконец, просто скопируйте формулу вниз, пока не увидите «#ССЫЛКА!» ошибка.
Способ 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.Sheets.Count objNewWorksheet.Cells(i, 1) = i objNewWorksheet.Cells(i, 2) = ThisWorkbook.Sheets(i).Name Далее i С objNewWorksheet .Rows(1).Insert .Cells(1, 1) = "INDEX" .Cells(1, 1).Font. Полужирный = True .Cells(1, 2) = "NAME" .Cells(1, 2).Font.Bold = True .Columns("A:B").AutoFit End With End Sub
- Позже нажмите «F5», чтобы запустить этот макрос прямо сейчас.
- Сразу же появится новая рабочая книга Excel, в которой вы можете увидеть список имен рабочих листов исходной рабочей книги Excel.
сравнение
| Наши преимущества | Недостатки бонуса без депозита | |
| Метод 1 | Простота в эксплуатации | Слишком хлопотно, если листов много |
| Метод 2 | Простота в эксплуатации | Требует сначала ввести индекс |
| Метод 3 | Быстро и удобно | Пользователи должны остерегаться внешних вредоносных макросов |
| Легко даже для новичков в VBA |
Excel становится поврежденным
Известно, что MS Excel время от времени дает сбой, тем самым повреждая текущие файлы при сохранении. Поэтому настоятельно рекомендуется обзавестись внешним мощным Ремонт Excel инструмент, такой как DataNumen Outlook Repair. Это связано с тем, что эта функция самовосстановления в Excel часто дает сбой.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправление sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com