Вычислить максимальное количество комбинаций в Excel 2003.

[явген]

Vikttur, это будет не легко, уж я это знаю, нужно вычислить максимальное нахождение двух чисел, трех чисел и т.д. до 10 чисел, которые находятся в строках, т.е., к примеру, если число 2 из 3 присутствует 5 раз во всех строках, а число 2 и 4 присутствует 4 раза, то, значит, 2 и 3 это есть максимальное количество комбинаций. И так далее...

[doober]

Как оказалось.для 10 найти легче всего.
Даже есть по 11 совпадений
Хотели увидеть,смотрите.
Самое трудное -это пары.
Алгоритм в принципе есть.Но только под заказ,работы не на день+ тест проверки.

[MCH]

Нужно чтото типа такого?

[явген]

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

[явген]

Спасибо всем за участие в решении задачи, друзья, если, конечно, больше нет идей. Спасибо.

[явген]

Да, за прошедших два дня желающих мне помочь в решении задачи больше не оказалось.
А я надеюсь на понимание и сочувствие и буду терпелив.

[IgorGO]

если я правильно все понял то так (считает долго).

Option Explicit

Public A(10) As Long, M As Long, N As Long


Sub Of20By()
  Dim Am(10) As Long, i As Long, ma As Long, hm As Long, b As Long, s As String
  Dim r1 As Long, r2 As Long, re As Long, c As Long
  M = 2: N = 20:  re = Cells(Rows.Count, 1).End(xlUp).Row
  Do While M < 11
    c = 20 + (3 + M + 1) * (M - 1) / 2
    For r1 = 10 To re
      ma = 0
      For i = 0 To M: A(i) = i:  Next
      Do While A(1) <= N - M
        hm = 0
        For r2 = 10 To re
          s = "countif(A" & r2 & ":T" & r2 & ","
          For i = 1 To M
            If Evaluate(s & Cells(r1, A(i)).Value & ")") = 0 Then Exit For
          Next
          If i > M Then
            hm = hm + 1
            If hm > ma Then
              ma = hm: For i = 1 To M: Am(i) = A(i): Next
            End If
          End If
        Next r2
        IncA M
      Loop
      For i = 1 To M: Cells(r1, c + i) = Cells(r1, Am(i)): Next: Cells(r1, c + i) = ma
    Next r1
    M = M + 1
  Loop
End Sub


Sub IncA(ByVal k As Long)
  Dim i As Long
  If A(k) < N - (M - k) Then
    A(k) = A(k) + 1
  Else
    IncA k - 1
    For i = k To M: A(k) = A(k - 1) + 1: Next
  End If
End Sub

[явген]

По этой теме кое-что прояснилось, и если тебе будет интересно, то есть не большой, но результат.