Как подсчитать количество листов с определённым именем в Excel?
Пробовали ли вы когда-нибудь подсчитать количество листов в книге Excel, имена которых соответствуют определённым критериям? Например, начинаются или содержат конкретное слово, такое как «KTE»? В этом руководстве показано, как с помощью кода VBA и мощных функций Kutools для Excel легко подсчитать и отфильтровать листы, отвечающие вашим требованиям.
Подсчёт листов с определённым именем с помощью кода VBA
Быстрый поиск всех листов, имена которых содержат заданное слово
Подсчёт листов с определённым именем с помощью кода VBA
Приведённые ниже коды VBA помогут вам подсчитать количество листов с заданным именем в рабочей книге. Выполните следующие действия.
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, затем скопируйте приведённый ниже код VBA в окно кода.
Код VBA 1: подсчёт листов, имена которых начинаются с «KTE»
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End SubЕсли вы хотите подсчитать количество листов, содержащих «KTE», воспользуйтесь приведённым ниже кодом VBA 2.
Код VBA 2: подсчёт листов, имена которых содержат «KTE»
Sub CountWSNames()
Dim I As Long
Dim xCount As Integer
For I = 1 To ActiveWorkbook.Sheets.Count
If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
Next
MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End SubПримечание: замените слово «KTE» на текст, по которому нужно подсчитать количество листов.
3. Нажмите клавишу F5, чтобы запустить код. После этого появится диалоговое окно с информацией о том, сколько листов в текущей книге начинаются с «KTE» или содержат «KTE». См. скриншоты:
Количество листов, имена которых начинаются с «KTE»:
Количество листов, имена которых содержат «KTE»:
Быстрый поиск всех листов, имена которых содержат заданное слово
В этом разделе показано, как с помощью Kutools для Excel быстро найти все листы, имена которых содержат заданное слово.
1. После установки Kutools для Excel панель навигации Kutools’Navigation автоматически откроется слева от рабочей книги. Вы также можете включить эту панель, последовательно выбрав Kutools > Navigation, как показано на скриншоте ниже.
2. В разделе Рабочая книга и Лист панели «Навигация» установите флажок Фильтр и введите конкретное имя листа, по которому нужно найти нужные листы. Все листы, имена которых содержат указанное слово, будут отфильтрованы и отображены в поле «Список листов». См. скриншот:
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Связанные статьи:
- Как сослаться на имя вкладки в ячейке Excel?
- Как сопоставить значение ячейки с именем вкладки листа или наоборот в Excel?
- Как открыть нужный лист, выбрав значение в поле со списком (Combo Box) в Excel?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек