Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 04.04.2020
Сообщений: 17
1

Вывод всех уникальных значений в порядке возрастания со всех листов книги

21.06.2020, 20:04. Просмотров 870. Ответов 1

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


Во вложении файл с примером применения взятой из этой темы формулы, с ее применением для

Код
=ЕСЛИОШИБКА(ИНДЕКС(F$4:F$125;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ(I$3:I3;F$4:F$125)=0)*(F$4:F$125<>"");0);0));"")
для 3 вариантов: а) Для поиска значений в диапазоне на одном листе б) для поиска значений в диапазоне в указываемом листе
в) для поиска значений в диапазоне на нескольких листах


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

Когда использую задание адреса нескольких листов '*'! выдает почему то имя листов в таком виде 1 Apr 2019:[7 Apr 2019]7 Apr 2019 , хотя квадратных скобок там быть не должно.

задача стоит такая: формула которая будет выводить построчно все уникальные значения из указываемого диапазона (например A1:A1000 на всех листах книги.


Если такую задачу не решить формулой эксель, можно ли предложить решение при помощи макроса? (условие одно - макрос не должен выполнять поиск значений на том листе на котором он используется).


Спасибо!
0
Вложения
Тип файла: zip Вывод уникальных значений.zip (925.8 Кб, 1 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2020, 20:04
Ответы с готовыми решениями:

Найти итоги из всех листов другой книги и записать в факт для всех выделенных значений рабочей книги
Написал макрос для проверки итогов с фактом. Как запустить всё это по циклу? Чтоб отрабатывался для...

Вывод всех исходных точек в порядке возрастания их расстояний от начала координат
Выведите все исходные точки в порядке возрастания их расстояний от начала координат. Входные...

Вывод в порядке возрастания всех трехзначных чисел, сумма цифр которых равна n
вот,что накидала: но программа выдает при выводе n n=int(input()) for i in range(100,1000): ...

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

1
4056 / 2178 / 922
Регистрация: 01.12.2010
Сообщений: 4,539
21.06.2020, 20:42 2
Лучший ответ Сообщение было отмечено SergeyBelov как решение

Решение

Цитата Сообщение от SergeyBelov Посмотреть сообщение
можно ли предложить решение при помощи макроса?
Можно и с помощью макроса. А возможно кто-то решит и с помощью формулы...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Test()
    Dim dic As Object, ws As Worksheet, el, i&
    Set dic = CreateObject("SCripting.Dictionary")
    For Each ws In Worksheets
        If Not ws Is ActiveSheet Then
           For Each el In ws.UsedRange.Value
               dic(el) = el
           Next
        End If
    Next
    i = dic.Count: If i = 0 Then Exit Sub
    With Range("A1").Resize(i)
         .Value = Application.Transpose(dic.Items)
         .Sort .Cells(1), xlAscending, Header:=xlNo
    End With
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2020, 20:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Анализ всех листов книги
День добрый) У меня вот такой вот вопрос. Есть таблица. Также есть больше 40 листов, где по каждому...

Узнать имена всех листов открытой книги
Собственно, вопрос уже задан :) P.S.: В VB я не очень силен, поэтому прошу помочь разобраться :)

Поиск значений по всем листам книги и вывод имени листа/столбца для всех совпадений
Всем здравствуйте. Прошу помощи профессионалов. Прикрепил файл, Есть задача - необходимо сделать...

Обработка макросом всех листов книги, а не только текущего
Во вложении файл с кодом. Код был написан под лист &quot;1-тех&quot; но его нужно еще использовать в листе...

Копирование построчной информации со всех листов 1-й книги на общую страницу
Добрый день, друзья. Прошу Вашей помощи. Мне необходимо перенести попорядку построчно данные со...

Защита всех листов книги, но редактирование определённых столбцов или строк
Добрый день. Защищаю всю книгу с вводом пароля. Private Sub Workbook_Open() Dim wsSh...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.