Возможные комбинации из чисел

[Serg1k]

Здравствуйте. Суть вопроса заключается в следующем:
имеется 8 чисел (напр. 1, 2, 3, 4, 5, 6, 7, 8). Нужно написать возможные комбинации из 6 чисел (их будет 28), числа не повторяются и без перестановки (тоесть 123456 и 654321 - это одна комбинация)
Пример:
123456
123457
123458
123467
123468
и т.д. до 28
Интересно, есть ли функция в Excel, которая бы сама распределила варианты, выделив скажем 28 ячеек и указав диапазон данных. Если нет, то как можно по другому сделать.
Или всё же придётся думать самому над каждой комбинацией?

[IgorGO]

я публиковал уже это здесь, на форуме, но искать мне облом, видимо, как и Вам.

[doober]

Жаль не могу добавить +.
Работа достойная
МАСТЕРА

[IgorGO]

Серега, уже добавил...
Спасиба!

[Alice89]

Уважаемые, помогите, пожалуйста!
задача , примерно, такая же, но у меня 10 чисел, нужны комбинации из 4, числа не повторяются, но есть перестановки (собственно, 10 акций, все возможные портфели из 4 разных акций нужно составить)

[doober]

Хотите играть.учите комбинаторику.
Немного подкорректировал макрос Игоря для вас

Вместо букв подставите ваши числа

Sub C10_4()

Dim s As String, r As Integer
  r = 1
  s = Chr(Asc("a") - 1)
  Do
    s = Chr(Asc(Mid(s, 1, 1)) + 1) + Chr(Asc(Mid(s, 1, 1)) + 1)
    Do
      s = Left(s, 1) + Chr(Asc(Mid(s, 2, 1)) + 1) + Chr(Asc(Mid(s, 2, 1)) + 1)
      Do
        s = Left(s, 2) + Chr(Asc(Mid(s, 3, 1)) + 1) + Chr(Asc(Mid(s, 3, 1)) + 1)
        Do
          s = Left(s, 3) + Chr(Asc(Right(s, 1)) + 1)
          Cells(r, 2) = s
          r = r + 1
        Loop Until Mid(s, 4, 1) = "j"
      Loop Until Mid(s, 3, 1) = "i"
    Loop Until Mid(s, 2, 1) = "h"
  Loop Until Mid(s, 1, 1) = "g"
End Sub

[Catherine_89]

Здравствуйте!Вы не могли бы мне помочь...Дело в том,что я забыла пароль карточки,он из 4 цифр, какие цифры я помню,а вот в каком порядке-увы...можно ли с помощью Exel сгенерировать возможные комбинации?имеется 3 числа,а комбинация из 4х,2 числа повторяются

[Catherine_89]

не хочется заказывать новую карту и ждать ее месяц(

[IgorGO]

не хочется заказывать новую карту

количество перестановок из К элементов равно К! (в Вашем случае 4! = 24).
в связи с тем, что в исходном наборе два значения повтяряются, переставляя их на место друг друга получим аналогичную последовательность, следовательно количество возможных вариантов уменьшатся в 2 раза 4!/2 = 12. как видите их не десятки тысяч, а попереставлять сами сможете?
или тоже не хочется, как заказывать новую карту?

[Serge_Bliznykov]

вот старенькая консольная утилитка (исходник на TurboPascal прилагается, если под что-то захочется исправить, откомпилить под другое..)

внимание. контроля на одинаковые комбинации (это если задать одинаковые символы) НЕТ!
Загрузите полученный список, отсортируйте и уберите повторы...
не так уж много вариантов получается..