Голову сломал. Как определить общие элементы множества строк

[Hugo121]

Сообщение от ArtemSkudalov

В 900 строках находятся числа (вместе): 6, 30, 55, 70, 87

Могу дописать в вывод вот это "(вместе)", что бы это не было
P.S. Аа, т.е. нужно чтобы выводило строки где есть одновременно такие числа? Так и нужно было ставить задачу (не понял). Да и даже сейчас не могу точно уяснить что нужно достичь. Даже не возмусь...

[ArtemSkudalov]

Сообщение от Hugo121

Могу дописать в вывод вот это "(вместе)", что бы это не было
P.S. Аа, т.е. нужно чтобы выводило строки где есть одновременно такие числа? Так и нужно было ставить задачу (не понял). Да и даже сейчас не могу точно уяснить что нужно достичь. Даже не возмусь...

Все равно СПАСИБО!
Да)))Нужно одновременное вхождение.
Например выбираю параметр. Количество чисел одновременно входящих в максимальное количество строк: 3 числа, или 4 числа, или 5 чисел, или 6 и т.д.
И на выдаче:
3, в ХХХ строках находятся числа: Х, Х, Х
4, в ХХХ строках находятся числа: Х, Х, Х, Х
5, в ХХХ строках находятся числа: Х, Х, Х, Х, Х
6, в ХХХ строках находятся числа: Х, Х, Х, Х, Х, Х


Знаю что это очень трудная задача. Может тут есть гуру, кому не составит особого труда С меня подарок

[IgorGO]

Function CalcSameDGT(base As Range, Dgt As Range)
  Dim i&, j&, s$, f$
  For i = 1 To base.Count
    f = " " & base.Cells(i) & " "
    For j = 1 To Dgt.Count
      If InStr(f, " " & Dgt(j) & " ") = 0 Then Exit For
    Next
    If j > Dgt.Count Then s = s & " " & i
  Next
  CalcSameDGT = 0:  If s <> "" Then CalcSameDGT = UBound(Split(s)) & ": " & Replace(Right(s, Len(s) - 1), " ", ", ")
End Function

[IgorGO]

см.вложение

[AndVGri]

Доброе время суток.
Коллеги, думаю, что задачка несколько по сложнее. Пусть строки это данные о кодах товаров в чеке. Тогда нужно определить - какие два товара чаще всего покупают вместе и в каких чеках эти товары присутствуют. Аналогично, какие три, четыре и т. д.
Вариант для двух чисел на Power Query.
Updated. Два числа встречаются максимально в 8 строках и таких только одно сочетание.
А вот для троек, максимально в 5 строках, но таких троек чисел уже 30

[alex77755]

669236568 столько всего комбинаций для каждой строки
Или по сочетаниям
3 117480
4 2555190
5 43949268
6 622614630
Вот столько и надо составлять словарей!
Жесть! А статистику сочетаний в лото хочется просчитать!!

Число сочетаний находится по следующей формуле:

C (n, k) = n! / (k! * (n-k)!)

[alex77755]

Ресурсов моей системы хватило только на 13 строк исходных данных. Словарь тоже имеет ограничения. Возможно поможет словарь словарей. По крайней мере почти в 100 раз (точно в 90) уменьшится размер словаря. И, как идея, возможно создать словарь словарей словарей. Допустим по первым 2 цифрам.