Вывод всех возможных пересекающихся значений из 2 столбцов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод всех возможных пересекающихся значений из 2 столбцов (Формулы/Formulas)

yakutt-1573

Дата: Четверг, 19.01.2017, 22:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый вечер!
Подскажите, как можно осуществить в Excel пересечение чисел друг с другом. В примере показано, что все числа(строки) столбца А пересекаются с числами (строками) столбца В. Ниже приведен результат (в ручную) как это надо сделать. Возможно ли это?
Заранее благодарен за ответ!!!

К сообщению приложен файл: 0909186.xls (45.0 Kb)

Ответить

SLAVICK

Дата: Четверг, 19.01.2017, 23:13 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

[vba]

Код

Sub d()
    Dim i&, ii&, n&
    n = 4
    For i = 1 To n: For ii = n To 1 Step -1
        t = t + 1: Cells(t, 1) = i: Cells(t, 2) = ii
    Next ii, i
End Sub

[/vba]
Вместо 4- пишите нужную цифру.

К сообщению приложен файл: 6487553.xls (54.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

_Boroda_

Дата: Четверг, 19.01.2017, 23:32 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так нужно?

Код

=ИНДЕКС(A$1:A$4;(СТРОКА(D1)-1)/СЧЁТ(B$1:B$4)+1)

Код

=ИНДЕКС(B$1:B$4;ОСТАТ((СТРОКА(E1)-1);СЧЁТ(A$1:A$4))+1)

К сообщению приложен файл: 0909186_1.xls (48.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

yakutt-1573

Дата: Четверг, 19.01.2017, 23:33 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Спасибо большое!
Это нормально что долго работает макрос?
Если будет 3 столбца надо еще что-то менять? Про цифру 4 понял - это строки.

Ответить

yakutt-1573

Дата: Четверг, 19.01.2017, 23:52 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

_Boroda_ и Вам спасибо!
Подскажите, пожалуйста, как будут выглядеть формулы для 3 и 4 столбца?

Ответить

SLAVICK

Дата: Пятница, 20.01.2017, 01:25 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата yakutt-1573, 19.01.2017 в 23:33, в сообщении № 4 ()

Это нормально что долго работает макрос?

можно отключить автопересчет формул - будет быстрее.
Макрос заточен на два столбца.
Если нужно больше - поищите на сайте уже много раз про комбинации говорили.

Иногда все проще чем кажется с первого взгляда.

Ответить

krosav4ig

Дата: Пятница, 20.01.2017, 18:17 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Перестановки без повторов подойдут? Если да, то как-то так можно
[vba]

Код

Function Комбинации(ParamArray ParArr() As Variant) As Variant
    Application.Volatile False
    Dim ArrA(), ArrB(), ArrC(), CountArr&, x&, i&, j&
    CountArr = UBound(ParArr): ReDim ArrB(CountArr), ArrC(CountArr)
    For i = 0 To CountArr
        ArrC(i) = ParArr(i).Count: ArrB(i) = ArrC(i)
        If i > 0 Then ArrB(i) = ArrB(i - 1) * ArrB(i)
    Next
    ReDim ArrA(ArrB(CountArr) - 1, CountArr)
    For i = 0 To ArrB(CountArr) - 1
        For j = 0 To CountArr
            x = 1: If j > 0 Then x = ArrB(j - 1)
            ArrA(i, j) = ParArr(j).Cells(Int(i / x) Mod ArrC(j) + 1)
        Next
    Next
    Комбинации= ArrA()
End Function

[/vba]

К сообщению приложен файл: combinations.xlsm (18.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 20.01.2017, 18:23

Ответить

Страница 1 из 1
1