Это проще сделать с помощью Power Query.В этом примере у меня есть:
- Одна таблица на каждом листе для каждой даты обучения.Показы не отображаются с пометкой «Да».
- Каждая таблица имеет имя t_ и имя таблицы.
Затем Power Query объединяет все таблицы в одну и создает одну таблицу, отображающую всеиз консолидированных записей, которые объединены в сводную таблицу, и другую с уникальными именами, которые можно использовать в раскрывающемся меню.
Если у вас есть новая дата, просто добавьте новую рабочую таблицу сВ таблице на эту дату заполните информацию и обновите расчеты.
Вот таблица консолидированных данных ...
Вот точка, которая подсчитывает не показы ...
Чтобы получить сводную таблицу ... После настройки таблиц вставьте пустой запрос, выбрав Данные> Получить и преобразовать данные> Получить данные> Из других источников>Пустой запрос.
Затем нажмите «Расширенный редактор», удалите любой существующий текст и вставьте его:
let
Source = Excel.CurrentWorkbook(),
#"Filtered Rows" = Table.SelectRows(Source, each ([Name] <> "Summary")),
#"Expanded Content1" = Table.ExpandTableColumn(#"Filtered Rows", "Content", {"Seat Number", "Name of Physician", "No Show?"}, {"Seat Number", "Name of Physician", "No Show?"}),
#"Duplicated Column" = Table.DuplicateColumn(#"Expanded Content1", "Name", "Name - Copy"),
#"Removed Columns" = Table.RemoveColumns(#"Duplicated Column",{"Seat Number"}),
#"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Name - Copy", "Date"}}),
#"Extracted Text After Delimiter" = Table.TransformColumns(#"Renamed Columns", {{"Date", each Text.AfterDelimiter(_, "_"), type text}}),
#"Changed Type" = Table.TransformColumnTypes(#"Extracted Text After Delimiter",{{"Date", type date}}),
#"Reordered Columns" = Table.ReorderColumns(#"Changed Type",{"Name", "Date", "Name of Physician", "No Show?"}),
#"Renamed Columns1" = Table.RenameColumns(#"Reordered Columns",{{"Name", "Table Name"}})
in
#"Renamed Columns1"
Затемнажмите Закрыть и загрузить в> Новый рабочий лист.
Чтобы получить таблицу уникальных имен .... Выполните те же шаги, что и выше, но в новом пустом запросе вставьте этот текст ...
let
Source = Excel.CurrentWorkbook(),
#"Filtered Rows" = Table.SelectRows(Source, each ([Name] <> "Summary")),
#"Expanded Content1" = Table.ExpandTableColumn(#"Filtered Rows", "Content", {"Seat Number", "Name of Physician", "No Show?"}, {"Seat Number", "Name of Physician", "No Show?"}),
#"Duplicated Column" = Table.DuplicateColumn(#"Expanded Content1", "Name", "Name - Copy"),
#"Removed Columns" = Table.RemoveColumns(#"Duplicated Column",{"Seat Number"}),
#"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Name - Copy", "Date"}}),
#"Extracted Text After Delimiter" = Table.TransformColumns(#"Renamed Columns", {{"Date", each Text.AfterDelimiter(_, "_"), type text}}),
#"Changed Type" = Table.TransformColumnTypes(#"Extracted Text After Delimiter",{{"Date", type date}}),
#"Reordered Columns" = Table.ReorderColumns(#"Changed Type",{"Name", "Date", "Name of Physician", "No Show?"}),
#"Renamed Columns1" = Table.RenameColumns(#"Reordered Columns",{{"Name", "Table Name"}}),
#"Removed Columns1" = Table.RemoveColumns(#"Renamed Columns1",{"No Show?", "Date", "Table Name"}),
#"Removed Duplicates" = Table.Distinct(#"Removed Columns1")
in
#"Removed Duplicates"
Затем закройте и загрузите в> Новый рабочий лист.
Затем вы можете выбрать данные в сводной таблице и вставить сводную таблицу.Добавьте имена в раздел «Строки» и «Не показывать» в раздел «Значения».В заголовке столбца «Метки строк» выберите «Фильтры значений»> «Больше, чем 0» (чтобы удалить пробелы).С помощью сводной таблицы вы можете дважды щелкнуть по числу неявок, и будет создан новый рабочий лист, показывающий, откуда пришли эти вычисления, поэтому гиперссылка не требуется.
