Excel список несколько листов - Word и Excel - помощь в работе с программами

На чтение 5 мин Опубликовано 26.01.2021

Листам в книгах Excel можно дать имена, соответствующие содержимому. Из них было бы удобно составить оглавление, но не все знают, как это сделать. Существуют несложные способы сформировать список листов и методы, требующие усилий, например установки сторонних дополнений. С помощью инструментов Excel пользователи также могут подсчитать количество листов в крупной книге. Выясним, как получить оглавление для чтения или перехода к каждому листу, какими формулами для этого нужно воспользоваться.

Содержание

Список листов с помощью формулы
Как составить список листов через VBA
Надстройки для составления списка листов
Как подсчитать количество листов в книге

Список листов с помощью формулы

Этот способ основан на использовании функции, которую нельзя найти в Менеджере. Она связана с макросами Excel 4.0. Чтобы применить формулу на практике, необходимо пройти дополнительный шаг, редко встречающийся в работе с функциями – зайти в диспетчер имен и добавить туда выражение.

Переходим на вкладку «Формулы» и кликаем по кнопке «Диспетчер имен». Опция находится в разделе «Определенные имена».

Нажимаем «Создать» в открывшемся диалоговом окне.

Записываем новое имя в верхнем поле, выбираем область «Книга» (обычно она установлена по умолчанию) и записываем в графу «Диапазон» эту формулу: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1; НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»»)
После заполнения всех полей жмем «ОК». В книге Excel пока ничего не изменится, но эти шаги помогут в будущем. Окно диспетчера имен можно закрыть.

Открываем лист, где будет расположен список. Выбираем ячейку и записываем в ней формулу с только что созданным именем: =ИНДЕКС(Список_листов;СТРОКА()). Нажмите Enter, и в ячейке появится название первого листа.

Необходимо вывести все названия листов в столбец. Для этого зажимаем маркер заполнения, который находится в правом нижнем углу выбранной ячейки, и выделяем нужное количество ячеек. В таблице-примере 4 листа столько и было выделено ячеек.

Создадим список, из которого можно перейти на каждый лист. Выберите другую пустую ячейку и вставьте эту формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Обратите внимание! Ячейка A1 прописывается в формуле, чтобы пользователи могли перейти на конкретную ячейку каждого листа. После нажатия Enter появится кликабельное название листа.

Полный список с гиперссылками можно создать так же, с помощью маркера заполнения.
Если название листа изменено, придется перезаполнить списки – для этого нужно просто удалить их, снова вставить те же формулы и выделить ячейки ниже.

Важно! Невозможно сделать ссылку на лист с диаграммой в Excel. На экране появляется сообщение об ошибке, переход не происходит.

Как составить список листов через VBA

Существует другой способ составления списка листов из книги – можно подключить пользовательскую функцию через редактор Visual Basic. Такой метод может показаться сложным, но это не так, если воспользоваться шаблоном для добавления функции в программу.

Открываем VBA с помощью комбинации клавиш «Alt+F11». Если при нажатии F11 снижается яркость или срабатывает другая функция, установленная на эту кнопку, зажмите клавишу Fn.
Нажмите «Вставить» (Insert) на верхней панели и выберите в открывшемся меню пункт «Модуль» (Module).

Вставляем в свободное поле этот текст:

Function SheetList(N As Integer)

SheetList = ActiveWorkbook.Worksheets(N).Name

End Function

Далее можно закрыть окно Visual Basic, потому что этот инструмент больше не понадобится, а функция уже добавлена в программу.

Открываем лист для списка и вводим формулу в начальную ячейку. Теперь не нужно длинное выражение, чтобы создать список листов. Новая формула выглядит так: =SheetList(СТРОКА()).
Нажимаем Enter и получаем название листа в ячейке. Маркером заполнения создаем список.

Для гиперссылок придется использовать ту же длинную формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Надстройки для составления списка листов

Надстройки – это дополнения для Microsoft Excel, которые создаются продвинутыми пользователями. Компания Microsoft рассказывает на официальном сайте о возможности подключить надстройки, но не предлагает скачать дополнения, поэтому обычно их загружают из других источников.

Всегда проверяйте загрузки на вредоносные элементы с помощью антивирусной программы.

Существуют платные и бесплатные надстройки. Сегодня рассмотрим набор дополнений для Excel 2007-2019 под названием «Ёxcel». Разработчик распространяет файл на своем сайте за добровольное пожертвование. Установите надстройку по инструкции – после этого можно приступать к составлению списка.

Открываем лист, где будет размещен список, и нажимаем левой кнопкой мыши на начальную ячейку будущего перечисления.
На вкладке надстройки находим кнопку «Листы». Кликаем по ней, чтобы открылось меню, и выбираем пункт «Получить список листов книги». Скриншот создателя надстройки:

Выбираем, какие листы показать в списке. Для простейшего перечисления названий листов кликаем по пункту «Простой список» и жмем на кнопку с галочкой в левом нижнем углу диалогового окна.
На экране появится список листов. Если выставить настройки сложнее, то внешний вид списка немного изменится.

Как подсчитать количество листов в книге

Иногда в книгах Excel появляется много листов, например если документ относится к крупному проекту. Выяснить, сколько в файле страниц, можно с помощью функции ЛИСТЫ.

Обратите внимание! Функция работает только в версиях Microsoft Excel от 2013.

Выбираем пустую ячейку и записываем в ней формулу: =ЛИСТЫ(). Не обязательно заполнять аргумент «Ссылка», если нужно посчитать листы в одной книге.

Жмем Enter и получаем числовое значение.

Если все листы переименованы, и нужно узнать их номера, воспользуйтесь функцией ЛИСТ. Эта формула также доступна с 2013-й версии. У функции ЛИСТ один аргумент – «Значение». Если аргумент не заполнен, после нажатия клавиши Enter в ячейке появится номер того же листа, где была введена формула. Простое выражение с ЛИСТ выглядит так: =ЛИСТ().

Оцените качество статьи. Нам важно ваше мнение:

Источник

Как создать несколько листов из списка значений ячеек?

Есть ли какие-нибудь быстрые или простые методы для создания нескольких рабочих листов на основе списка значений ячеек в Excel? В этой статье я расскажу о некоторых хороших приемах для решения этой задачи.

Создайте несколько листов из списка значений ячеек с кодом VBA

Создайте несколько рабочих листов из списка значений ячеек с помощью Kutools for Excel

Создайте несколько листов из списка значений ячеек с кодом VBA

Чтобы быстро создать несколько новых листов, названных списком значений ячеек, вам может помочь следующий код VBA.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: создание нескольких листов из списка ячеек:

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

Внимание: В приведенном выше коде A1: A7 — это диапазон ячеек, на основе которого вы хотите создать листы, измените его по своему усмотрению.

3, Затем нажмите F5 ключ для запуска этого кода, и новые листы были созданы после всех листов в текущей книге, см. снимок экрана:

Создайте несколько рабочих листов из списка значений ячеек с помощью Kutools for Excel

Если вы не знакомы с приведенным выше кодом, вот удобный инструмент:Kutools for Excel, С его Создать рабочие листы последовательностей , рабочие листы будут созданы на основе значений ячеек в новой книге.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Рабочий лист > Создать рабочие листы последовательностей, см. снимок экрана:

2. В Создать рабочие листы последовательностей диалоговое окно:

(1.) Выберите один рабочий лист, на основе которого вы хотите создать рабочие листы последовательности;

(2.) Затем выберите Данные в варианте диапазона от Имена листов на основе список и щелкните кнопку, чтобы выбрать значения ячеек, которые вы хотите использовать.

3, Затем нажмите Ok , рабочие листы были созданы с именами значений ячеек в новой книге, см. снимок экрана:

Нажмите «Загрузить и получить бесплатную пробную версию». Kutools for Excel от Yhao сейчас!

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (16)

Оценок пока нет. Оцените первым!

Источник

Содержание

Microsoft Excel
Как создать список всех листов, содержащихся в книге Excel при помощи макрофункции
Примеры использования функций ЛИСТ и ЛИСТЫ в формулах Excel
Функции ЛИСТ и ЛИСТЫ в Excel: описание аргументов и синтаксиса
Как получить имя листа формулой в Excel
Примеры использования функции ЛИСТ и ЛИСТЫ
Обработка информации о листах книги по формуле Excel
Как получить список листов книги Excel
Список листов с помощью формулы
Как составить список листов через VBA
Надстройки для составления списка листов
Как подсчитать количество листов в книге

Microsoft Excel

трюки • приёмы • решения

Как создать список всех листов, содержащихся в книге Excel при помощи макрофункции

Странно, но в Excel невозможно напрямую сгенерировать список имен листов из книги. В этой статье будет рассказано, как создать список всех листов, содержащихся в книге. Как и в предыдущей статье, здесь мы будем использовать макрофункцию из Excel 4 XLM в именованной формуле.

Начнем с книги, в которой много рабочих листов или листов с диаграммами. Выполните следующие действия, чтобы создать список названий листов.

Вставьте новый лист, на котором будет находиться список.
Выполните команду Формулы ► Присвоить имя, чтобы открыть диалоговое окно Создание имени.
Впишите в поле Имя название Список.
Введите следующую формулу в поле Диапазон (рис. 9.1): =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1;НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»») .
Осталось нажать ОК, чтобы закрыть диалоговое окно Создание имени.

Рис. 9.1. Работа с окном Создание имени для создания именованной формулы

Обратите внимание: в формуле используется функция ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ, которая не относится к числу стандартных функций рабочего листа. Это макрофункция, написанная в сравнительно старом XLM-стиле и предназначенная для применения на специальном листе макросов. При использовании аргумента 1 она возвращает массив имен листов, причем перед именем каждого листа указано название книги, откуда он взят. Функции ЗАМЕНИТЬ и НАЙТИ удаляют имя книги, сопутствующее названию листа. Чтобы сгенерировать имена листов, введите в ячейку А1 следующую формулу, а затем скопируйте ее ниже по столбцу: =ИНДЕКС(Список;СТРОКА()) .

На рис. 9.2 приведена данная формула для диапазона А1:А10. В книге семь листов, поэтому формула возвращает ошибку #ССЫЛКА! при попытке отобразить имя несуществующего листа. Чтобы избежать этого, измените формулу следующим образом: =ЕСЛИОШИБКА(ИНДЕКС(Список;СТРОКА());»») .

Рис. 9.2. Использование формулы для отображения списка имен листов

Список названий листов можно откорректировать, если вы будете добавлять, удалять или переименовывать листы, но это не происходит автоматически. Чтобы принудительно обновить формулы, нажмите Ctrl+Alt+F9. Если вы хотите, чтобы имена листов автоматически обновлялись при пересчете книги, измените именованную формулу следующим образом, чтобы сделать ее меняющейся: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1;НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»»)&Т(ТДАТА()) .

Рис. 9.3. Создание списка гиперссылок

Зачем может понадобиться список названий листов? На рис. 9.3 показано оглавление, созданное с помощью ссылки ГИПЕРССЫЛКА. В ячейке В1 записана следующая формула: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»Перейти по ссылке») . Щелкнув на гиперссылке, вы активизируете лист и выделяете ячейку А1. К сожалению, Excel не поддерживает гиперссылок, ведущих на лист с диаграммами, поэтому при попытке сослаться на такой лист программа выдаст ошибку.

Если вы пользуетесь такими приемами, то книгу нужно сохранить как файл с поддержкой макросов (в формате *.xlsm или *.xls).

Источник

Примеры использования функций ЛИСТ и ЛИСТЫ в формулах Excel

Функция ЛИСТ в Excel возвращает числовое значение, соответствующее номеру листа, на который указывает ссылка, переданная функции в качестве параметра.

Функции ЛИСТ и ЛИСТЫ в Excel: описание аргументов и синтаксиса

Функция ЛИСТЫ в Excel возвращает числовое значение, которое соответствует количеству листов, на которые предоставлена ссылка.

Обе функции полезны для использования в документах, содержащих большое количество листов.
Лист в Excel – это таблица из всех ячеек, отображаемых на экране и находящихся за его пределами (всего 1 048 576 строк и 16 384 столбца). При отправке листа на печать он может быть разбит на несколько страниц. Поэтому нельзя путать термины «лист» и «страница».
Количество листов в книге ограничено лишь объемом ОЗУ ПК.

Функция ЛИСТ имеет в своем синтаксисе всего 1 аргумент и то не обязательный для заполнения: =ЛИСТ(значение).

значение – необязательный аргумент функции, который содержит текстовые данные с названием листа либо ссылку, для которой требуется установить номер листа. Если данный параметр не указан, функция вернет номер листа, в одной из ячеек которого она была записана.

При работе функции ЛИСТ учитываются все листы, которые являются видимыми, скрытыми и очень скрытыми. Исключениями являются диалоги, макросы и диаграммы.
Если аргументом функции является текстовое значение, которое не соответствует названию ни одного из листов, содержащихся в книге, будет возвращена ошибка #НД.
Если в качестве аргумента функции было передано недействительное значение, результатом ее вычислений будет являться ошибка #ССЫЛКА!.
В рамках объектной модели (иерархия объектов на VBA, в которой Application является главным объектом, а Workbook, Worksheer и т. д. – дочерними объектами) функция ЛИСТ недоступна, поскольку она содержит схожую функцию.

Функция листы имеет следующий синтаксис: =ЛИСТЫ(ссылка).

ссылка – объект ссылочного типа, для которого требуется определить количество листов. Данный аргумент является необязательным. Если данный параметр не указан, функция вернет количество листов, содержащихся в книге, на одном из листов которой она была записана.

Данная функция подсчитывает количество всех скрытых, очень скрытых и видимых листов, за исключением диаграмм, макросов и диалогов.
Если в качестве параметра была передана недействительная ссылка, результатом вычислений является код ошибки #ССЫЛКА!.
Данная функция недоступна в объектной модели в связи с наличием там схожей функции.

Как получить имя листа формулой в Excel

Пример 1. При выполнении расчетной работы студент использовал программу Excel, в которой создал книгу из несколько листов. Для собственного удобства, студент решил в ячейках A2 и B2 каждого листа выводить данные о названии листа и его порядковом номере соответственно. Для этого он использовал следующие формулы:

Описание аргументов для функции ПСТР:

ЯЧЕЙКА(«имяфайла») – функция, возвращающая текст, в котором функция ПСТР выполняет поиск заданного количества символов. В данном случае вернется значение «C:UserssoulpDesktop[ЛИСТ_ЛИСТЫ.xlsx]Статические расчеты», где после символа «]» находится искомый текст – название листа.
НАЙТИ(«]»;ЯЧЕЙКА(«имяфайла»))+1 – функция, возвращающая номер позиции символа «]», единица добавлена с той целью, чтобы функция ПСТР не учитывала символ «]».
31 – максимальное количество символов в названии листа.

=ЛИСТ() – данная функция без параметра вернет номер текущего листа. В результате ее вычисления получим количество листов в текущей книге.

Примеры использования функции ЛИСТ и ЛИСТЫ

Пример 2. В книге Excel содержится несколько листов. Необходимо:

Вернуть номер текущего листа.
Вернуть номер листа с названием «Статические_расчеты».
Вернуть номер листа «Динамические_расчеты», если его ячейка A3 содержит значение 0.

Внесем данные в таблицу:

Далее составим формулы для всех 4-х условий:

для условия №1 используем следующую формулу: =ЛИСТ()
для условия №2 введем формулу: =ЛИСТ(«Статические_расчеты»)
для условия №3 запишем формулу:

Функция ЕСЛИ выполняет проверку условия равенства значения, хранящегося в ячейке A3 листа Динамические_расчеты, нулю или пустому значению.

В результате получим:

Обработка информации о листах книги по формуле Excel

Пример 3. В книге Excel содержится несколько листов. Необходимо определить общее количество листов, а также число листов, содержащихся между листами «Статические_расчеты» и «Экономические_расчеты».

Исходная таблица имеет вид:

Общее количество листов вычислим по формуле:

Для определения количества листов, содержащихся между двумя указанными листами, запишем формулу:

Статические_расчеты:Экономические_расчеты!A2 – ссылка на ячейку A2 диапазона листов между «Статические_расчеты» и «Экономические_расчеты» включая эти листы.
Для получения искомого значения было вычтено число 2.

В результате получим следующее:

Формула выводит подробную информацию по данным о листах в определенном диапазоне их расположения в рабочей книге Excel.

Источник

Как получить список листов книги Excel

Список листов с помощью формулы

Переходим на вкладку «Формулы» и кликаем по кнопке «Диспетчер имен». Опция находится в разделе «Определенные имена».

Нажимаем «Создать» в открывшемся диалоговом окне.

Записываем новое имя в верхнем поле, выбираем область «Книга» (обычно она установлена по умолчанию) и записываем в графу «Диапазон» эту формулу: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1; НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»»)
После заполнения всех полей жмем «ОК». В книге Excel пока ничего не изменится, но эти шаги помогут в будущем. Окно диспетчера имен можно закрыть.

Открываем лист, где будет расположен список. Выбираем ячейку и записываем в ней формулу с только что созданным именем: =ИНДЕКС(Список_листов;СТРОКА()). Нажмите Enter, и в ячейке появится название первого листа.

Необходимо вывести все названия листов в столбец. Для этого зажимаем маркер заполнения, который находится в правом нижнем углу выбранной ячейки, и выделяем нужное количество ячеек. В таблице-примере 4 листа столько и было выделено ячеек.

Создадим список, из которого можно перейти на каждый лист. Выберите другую пустую ячейку и вставьте эту формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Обратите внимание! Ячейка A1 прописывается в формуле, чтобы пользователи могли перейти на конкретную ячейку каждого листа. После нажатия Enter появится кликабельное название листа.

Полный список с гиперссылками можно создать так же, с помощью маркера заполнения.
Если название листа изменено, придется перезаполнить списки – для этого нужно просто удалить их, снова вставить те же формулы и выделить ячейки ниже.

Важно! Невозможно сделать ссылку на лист с диаграммой в Excel. На экране появляется сообщение об ошибке, переход не происходит.

Как составить список листов через VBA

Открываем VBA с помощью комбинации клавиш «Alt+F11». Если при нажатии F11 снижается яркость или срабатывает другая функция, установленная на эту кнопку, зажмите клавишу Fn.
Нажмите «Вставить» (Insert) на верхней панели и выберите в открывшемся меню пункт «Модуль» (Module).

Вставляем в свободное поле этот текст:

Далее можно закрыть окно Visual Basic, потому что этот инструмент больше не понадобится, а функция уже добавлена в программу.

Открываем лист для списка и вводим формулу в начальную ячейку. Теперь не нужно длинное выражение, чтобы создать список листов. Новая формула выглядит так: =SheetList(СТРОКА()).
Нажимаем Enter и получаем название листа в ячейке. Маркером заполнения создаем список.

Для гиперссылок придется использовать ту же длинную формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Надстройки для составления списка листов

Всегда проверяйте загрузки на вредоносные элементы с помощью антивирусной программы.

Открываем лист, где будет размещен список, и нажимаем левой кнопкой мыши на начальную ячейку будущего перечисления.
На вкладке надстройки находим кнопку «Листы». Кликаем по ней, чтобы открылось меню, и выбираем пункт «Получить список листов книги». Скриншот создателя надстройки:

Выбираем, какие листы показать в списке. Для простейшего перечисления названий листов кликаем по пункту «Простой список» и жмем на кнопку с галочкой в левом нижнем углу диалогового окна.
На экране появится список листов. Если выставить настройки сложнее, то внешний вид списка немного изменится.

Как подсчитать количество листов в книге

Обратите внимание! Функция работает только в версиях Microsoft Excel от 2013.

Выбираем пустую ячейку и записываем в ней формулу: =ЛИСТЫ(). Не обязательно заполнять аргумент «Ссылка», если нужно посчитать листы в одной книге.

Жмем Enter и получаем числовое значение.

Источник

вывести списком все листы, для удобства работы

Гость	Дата: Пятница, 18.05.2012, 11:25 \| Сообщение № 1
	Здравствуйте. Подскажите пожалуйста. У меня много листов в екселе, естественно работать, мягко говоря, неудобно. Возможно ли как нибудь создать список с названиями листов сбоку, чтобы легко можно было искать нужный лист и переходить на него???

Ответить

Hugo

Дата: Пятница, 18.05.2012, 11:30 |
Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3140

Репутация:
670
±

Замечаний:
0% ±

2010, теперь уже с PQ

Не пробовали нажать ПКМ на стрелочках навигации по листам?

excel@nxt.ru
webmoney: R418926282008 Z422237915069

Ответить

Гость	Дата: Пятница, 18.05.2012, 11:38 \| Сообщение № 3
	Классно… Я даже и не знала про такую функцию… Спасибо, что просвятили)))

Ответить

Alex_ST

Дата: Пятница, 18.05.2012, 14:39 |
Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Quote (Гость)

Спасибо, что просвятили

Игорь, а ты у нас оказывается святой, а не просветитель biggrin

С уважением,
Алексей
MS Excel 2003 — the best!!!

Ответить

ivanov1974

Дата: Пятница, 18.05.2012, 19:52 |
Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация:
1
±

Замечаний:
0% ±

Меня тоже интересует этот ворос. Но я ничего не понял, что такое ПКМ?

Ответить

Serge_007

Дата: Пятница, 18.05.2012, 21:51 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 15888

Репутация:
2623
±

Замечаний:
±

Excel 2016

Quote (ivanov1974)

что такое ПКМ?

Правая Кнопка Мыши

ЮMoney:41001419691823 | WMR:126292472390

Ответить

ivanov1974

Дата: Воскресенье, 20.05.2012, 15:36 |
Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 149

Репутация:
1
±

Замечаний:
0% ±

Спасибо!

Ответить

nikitan95

Дата: Воскресенье, 20.05.2012, 16:51 |
Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410

Репутация:
0
±

Замечаний:
0% ±

2016

ПКМ конечно не плохой вариант, а если листов к примеру больше ста? В смысле что можно ли посредством функций вывести на первом листе список листов и при нажатии на них перейти на соответствующий лист?

Сообщение отредактировал nikitan95 — Воскресенье, 20.05.2012, 16:52

Ответить

Serge_007

Дата: Воскресенье, 20.05.2012, 17:15 |
Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 15888

Репутация:
2623
±

Замечаний:
±

Excel 2016

Quote (nikitan95)

…можно ли посредством функций вывести на первом листе список листов?

Нет.

Альтернатива — см. вложение. Макросы должны быть разрешены

ЮMoney:41001419691823 | WMR:126292472390

Ответить

nikitan95

Дата: Вторник, 22.05.2012, 08:06 |
Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410

Репутация:
0
±

Замечаний:
0% ±

2016

спасибо, Сергей! Превосходное решение. Думаю, многим будет полезно. Виват!

Ответить

Гость

Дата: Пятница, 01.06.2012, 12:00 |
Сообщение № 11

Сергей, а как поправить формулу на листе «Список»
[vba]

Code

=ЕСЛИ(ПРОВЕРКА;ГИПЕРССЫЛКА(ЛИСТ.СПИСОК&»‘!A1″;ЛИСТ.ИМЯ);»»)

[/vba]
так чтобы в общем списке листок не было самого листа «Список» и пары еще заранее известных, например Март и Сентябрь?

Ответить

Serge_007

Дата: Пятница, 01.06.2012, 12:26 |
Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 15888

Репутация:
2623
±

Замечаний:
±

Excel 2016

Quote (Гость)

как поправить формулу на листе «Список»

Её править не надо. Тут дело не в формуле на листе, а в именованых формулах, на которые она ссылается. Вот их и надо изменять

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Гость	Дата: Пятница, 01.06.2012, 13:16 \| Сообщение № 13
	возможно ошибаюсь, но ведь в принципе возможно написать через условие на совпадение имени в заданным и при выполнении условия задавать пустое значение … в общем попробую, т.к. в корне не представляю как работать с именованными диапазонами для листов и как их вообще задавать =)

Ответить

Гость

Дата: Пятница, 01.06.2012, 13:48 |
Сообщение № 14

предложенный мною вариант не есть хорошо,
[vba]

Code

=ЕСЛИ((ИЛИ(ЕСЛИ(ПРОВЕРКА;ЛИСТ.ИМЯ;»»)=»Март»;ЕСЛИ(ПРОВЕРКА;ЛИСТ.ИМЯ;»»)=»Сентябрь»)=ИСТИНА); «»; ЕСЛИ(ПРОВЕРКА;ГИПЕРССЫЛКА(ЛИСТ.СПИСОК&»‘!A1″;ЛИСТ.ИМЯ);»»))

[/vba]
т.к. отработав условие остается пустая ячейка и выглядеть это будет например так (исключаем «Март»):
Список
Январь 2012
Фераль

Апрель
Май
Июнь
Июль
Август

Октябрь
Ноябрь
Декабрь

а по хорошему нужно чтобы было без пустых ячеек … полистаю почитаю, может разберусь как с диапазонами работать =)

Ответить

ABC

Дата: Пятница, 01.06.2012, 14:02 |
Сообщение № 15

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация:
112
±

Замечаний:
0% ±

Excel 2007

Я предложил бы такой вариант:
вводите в диапазон $H$3:$H$10 не нужные, можно расширить диапазон…

Code

=ЕСЛИ(ПРОВЕРКА;ЕСЛИ(ЕНД(ПОИСКПОЗ(ЛИСТ.ИМЯ;$H$3:$H$10;0));ГИПЕРССЫЛКА(ЛИСТ.СПИСОК&»‘!A1″;ЛИСТ.ИМЯ);»»);»»)

MS Excel 2007 and 2010…
——————————-
С Уважением, Даулет

Ответить

Гость

Дата: Пятница, 01.06.2012, 14:11 |
Сообщение № 16

Quote (ABC)

Я предложил бы такой вариант:
вводите в диапазон $H$3:$H$10 не нужные, можно расширить диапазон…

кстати да, так более грамотно, но все же результат остается прежним =( а именно список имеет вид:
[vba]

Code

Список
Январь 2012
Фераль

Апрель
Май
Июнь
Июль
Август

Октябрь
Ноябрь
Декабрь

[/vba]
вместо требуемого:
[vba]

Code

Список
Январь 2012
Фераль
Апрель
Май
Июнь
Июль
Август
Октябрь
Ноябрь
Декабрь

[/vba]

Ответить

ABC

Дата: Пятница, 01.06.2012, 14:39 |
Сообщение № 17

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация:
112
±

Замечаний:
0% ±

Excel 2007

смотрите в ИМЕНИ ЛИСТА не должен быть ПРОБЕЛЫ.
массивная
Excel 2007

К сообщению приложен файл:

6540919.xls
(57.0 Kb)

MS Excel 2007 and 2010…
——————————-
С Уважением, Даулет

Сообщение отредактировал ABC — Пятница, 01.06.2012, 14:49

Ответить

Гость	Дата: Пятница, 01.06.2012, 15:04 \| Сообщение № 18
	спасибо! воспользуюсь вашим вариантом =)

Ответить

ABC

Дата: Пятница, 01.06.2012, 15:11 |
Сообщение № 19

Группа: Друзья

Ранг: Обитатель

Сообщений: 397

Репутация:
112
±

Замечаний:
0% ±

Excel 2007

Quote (Гость)

воспользуюсь вашим вариантом

не мой вариант — вариант Сергея, я добавил кои что по Вашему 2-му хотелку!!! и все… smile

MS Excel 2007 and 2010…
——————————-
С Уважением, Даулет

Ответить

Serge_007

Дата: Пятница, 01.06.2012, 16:56 |
Сообщение № 20

Группа: Админы

Ранг: Местный житель

Сообщений: 15888

Репутация:
2623
±

Замечаний:
±

Excel 2016

Quote (ABC)

не мой вариант — вариант Сергея

Не, я сам этот файлик где-то когда-то нашел smile

Подшаманил, сделал свой вариант, с исключаемыми листами. Можно ещё доработать, но сейчас лень smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Источник

Сборка данных со всех листов книги в одну таблицу

Постановка задачи

Допустим, что у нас есть книга с большим количеством листов, где на каждом листе находится таблица с данными по сделкам в этом городе:

Давайте будем исходить из следующих соображений:

Структура и столбцов на всех листах одинаковая.
Количество строк на всех листах разное.
Листы могут в будущем добавляться или удаляться.

Наша задача — собрать все данные со всех листов в одну таблицу, чтобы потом с ней работать (фильтровать, сортировать, построить сводную и т.д.) Сделать это можно разными способами, но самыми удобными будут, пожалуй, Power Query и макросы.

Способ 1. Сборка данных с листов с помощью Power Query

Если вы ещё не сталкивались в своей работе с Power Query, то очень советую копнуть в этом направлении. Использование этой бесплатной и уже встроенной по умолчанию в Excel надстройки, способно полностью перевернуть весь ваш процесс сбора и анализа данных, упростив всё в разы. С задачей сбора данных с листов Power Query справляется весьма успешно.

Шаг 1. Подключаемся к файлу

Для начала, создадим новый пустой файл в Excel, куда и будут собираться данные.

Если у вас Excel 2010-2013 и вы установили Power Query как отдельную надстройку, то откройте вкладку Power Query, если у вас Excel 2016 или новее, то вкладку Данные (Data). Нажмите кнопку Получить данные / Создать запрос — Из файла — Книга Excel (Get Data / New Query — From file — From Excel) и укажите наш файл с исходными листами:

В появившемся окне Навигатора (Navigator) выберите слева любой лист и нажмите в правом нижнем углу кнопку Преобразовать данные (Transform Data) или Изменить (Edit):

Должно появиться окно редактора запросов Power Query, где отобразятся данные с выбранного листа. Поскольку нам нужен, на самом деле, не один лист, а все, то удалим в правой панели все шаги, кроме первого шага Источник (Source) используя крестик слева от названия шага:

То, что останется после удаления шагов — это список всех объектов, которые Power Query «видит» во внешних файлах, а это:

листы (Sheet)
«умные таблицы» (Table)
именованные диапазоны (Defined Name)
области печати (Print Area), которые, по сути, являются одним из видов именованного диапазона

Шаг 2. Отбираем нужные листы

В исходном файле может быть много всего лишнего, что нам не требуется собирать: случайные ненужные листы, служебные именованные диапазоны, побочные умные таблицы и т.п. Очень важно отфильтровать этот «информационный мусор», т.к. в будущем из-за любого подобного объекта наш запорс будет, скорее всего, вылетать с ошибкой или некорректно собирать данные. Для решения этой задачи можно использовать несколько подходов.

Во-первых, легко можно отфильтровать нужные объекты по типу по столбцу Kind. Например, если вам нужны только листы:

Во-вторых, если нам нужны только видимые листы, то дополнительно можно отфильтровать ещё по столбцу Hidden.

В-третьих, если вы точно знаете размер таблиц, которые вам нужны, то можно легко добавить к нашему списку вычисляемый столбец с формулой, выводящей количество столбцов или строк и использовать потом эти числа для отбора. Для этого выберем на вкладке Добавление столбца — Настраиваемый столбец (Add Column — Custom Column) и введём в открывшееся окно следующую формулу (с учётом регистра):

Для подсчёта количества строк можно использовать аналогичную функцию Table.RowCount. Получившийся столбец затем можно использовать для фильтрации «мусорных» таблиц.

В-четвёртых, можно извлечь с каждого листа содержимое любой ячейки (например, А1) и использовать его для отбора. Например, если там нет слова «Товар«, то это не наш лист. Для извлечения нужно будет также добавить вычисляемый столбец с такой конструкцией:

=[Data][Column1]{0}

Здесь:

[Data] — имя столбца, где в каждой ячейке лежат таблицы с содержимым каждого листа (убийственная формулировка для рядового пользователя Excel, да, я знаю)
[Column1] — имя столбца на листе, из которого мы хотим извлечь данные
{0} — номер строки (считая с нуля), откуда мы хотим взять данные

После фильтрации «мусора» все добавленные вспомогательные столбцы можно, конечно же, спокойно удалить, оставив только колонки Name и Data.

Шаг 3. Разворачиваем таблицы

Теперь развернём содержимое таблиц в одно целое, используя кнопку с двойными стрелками в заголовке столбца Data, отключив флажок Использовать исходное имя столбца как префикс (Use original column name as prefix):

После нажатия на ОК Power Query соберёт для нас все данные в одну мегатаблицу со всех отобранных листов нашего файла:

Останется лишь «навести блеск», а именно:

Поднять первую строку в шапку таблицы кнопкой Использовать первую строку в качестве заголовков (Use first row as headers) на вкладке Главная (Home).
Переименовать первый столбец в Город двойным щелчком на заголовку.
Удалить повторяющиеся шапки таблиц, попавшие в одну кучу вместе с данными, используя фильтр по столбцу Товар.

Всё. Осталось только дать нашему запросу подходящее имя (например, Сборка) в панели справа и выгрузить затем собранные данные обратно в Excel кнопкой Закрыть и загрузить на вкладке Главная (Home — Close & Load):

В будущем, при любых изменениях в исходном файле достаточно будет лишь обновить наш запрос, щелкнув по собранной таблице правой кнопкой мыши и выбрав команду Обновить (Refresh) или такой же кнопкой на вкладке Данные (Data) или сочетанием клавиш Ctrl+Alt+F5.

Плюсы такого подхода:

Не нужно уметь программировать, всё делается быстро и почти без использования клавиатуры.
Последовательность столбцов на разных листах может быть различной — это не играет роли, столбцы правильно встанут друг под друга в итоговой сборке.
Можно быстро обновлять запрос при изменении исходных данных.

Минусы этого способа:

Собираются только значения, т.е. формулы с исходных листов не сохраняются.
Названия столбцов должны на всех листах совпадать с точностью до регистра.
Нельзя выбрать какой именно диапазон берётся с каждого листа — это определяется автоматически (берётся всё, что есть).
Для обновления нужен Excel 2016 или новее или установленная надстройка Power Query.

Способ 2. Сборка данных с листов макросом на VBA

Похожего результата можно добиться и с помощью более «классического» подохода — макросом на VBA. Для этого на вкладке Разработчик (Developer) нажмите кнпоку Visual Basic или воспользуйтесь сочетанием клавиш Alt+F11. В открывшемся окне добавьте новый модуль через меню Insert — Module и скопируйте туда текст вот такого макроса:

Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
    
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
    
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
    
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
    
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
        
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
        Set rngData = ws.UsedRange                 'всё, что есть на листе или
        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
        
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
        
    Next ws
End Sub

Запустить созданный макрос можно на вкладке Разработчик кнопкой Макросы (Developer — Macros) или с помощью сочетания клавиш Alt+F8. Макрос автоматически создаст новую книгу и скопирует туда нужные вам данные.

Плюсы такого подхода:

Формулы с исходных листов сохраняются в сборке.
Имена столбцов не играют роли.
Макрос будет работать в любой версии Excel.
Можно выбирать, что именно брать с каждого листа (конкретный фиксированный диапазон или весь лист).

Минусы этого способа:

Последовательность столбцов на всех листах должна быть одинаковой, т.к. происходит, по сути, тупое копирование таблиц друг-под-друга.
Защита от макросов должна быть отключена.
Быстрого обновления, как это было с Power Query, здесь, к сожалению, не будет. При изменении исходных данных придётся запустить макрос повторно.

Способ 3. Готовый макрос из надстройки PLEX

Если лень возиться с макросами или Power Query, то можно пойти по пути наименьшего сопротивления — использовать готовый макрос (кнопка Собрать) из моей надстройки PLEX для Excel. Это, может, и не спортивно, но зато эффективно:

В общем, выбирайте любой удобный вам вариант и действуйте. Выбор — это всегда хорошо.

Ссылки по теме

Что такое Power Query и с чем его едят.
Как создавать свои макросы, использовать чужие и запускать их в своих файлах.
Сборка данных из нескольких файлов с помощью Power Query.

Источник

Список листов с помощью формулы

Как составить список листов через VBA

Надстройки для составления списка листов

Как подсчитать количество листов в книге

Как создать несколько листов из списка значений ячеек?

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Microsoft Excel

Как создать список всех листов, содержащихся в книге Excel при помощи макрофункции

Примеры использования функций ЛИСТ и ЛИСТЫ в формулах Excel

Функции ЛИСТ и ЛИСТЫ в Excel: описание аргументов и синтаксиса

Как получить имя листа формулой в Excel

Примеры использования функции ЛИСТ и ЛИСТЫ

Обработка информации о листах книги по формуле Excel

Как получить список листов книги Excel

Список листов с помощью формулы

Как составить список листов через VBA

Надстройки для составления списка листов

Как подсчитать количество листов в книге

Сборка данных со всех листов книги в одну таблицу

Постановка задачи

Способ 1. Сборка данных с листов с помощью Power Query

Шаг 1. Подключаемся к файлу

Шаг 2. Отбираем нужные листы

Шаг 3. Разворачиваем таблицы

Способ 2. Сборка данных с листов макросом на VBA

Способ 3. Готовый макрос из надстройки PLEX

Ссылки по теме

А вот еще интересные статьи: