Декартово произведение с VBA

Как добавить третий и четвертый диапазон/массив в следующий код?

Sub cartesianproduct()
Dim startrange As Range

range1 = Application.InputBox(Prompt:="Please Select First Range", Type:=8)
range2 = Application.InputBox(Prompt:="Please Select Second Range", Type:=8)


Set startrange = Application.InputBox(Prompt:="Please select where you want to put it", Type:=8)
array1 = [range1]
array2 = [range2]


startrange.Select
For i = 1 To UBound(array1)
    For x = 1 To UBound(array2)
        z = z + 1
        ActiveCell.Offset(z, 0).Value = array1(i, 1)
        ActiveCell.Offset(z, 1).Value = array2(x, 1)
    Next
Next
End Sub

vba product cartesian
person JAGIMAC    schedule 13.09.2017    source источник
comment
Мне нужно добавить range3, range4 и array1, array2 и не знаю, что делать в startrange.select...   -  person JAGIMAC    schedule 13.09.2017

Ответы (1)


arrow_upward

arrow_downward

person    schedule
comment
Хотя этот код может дать ответ на вопрос, предоставление дополнительного контекста относительно того, как и почему он решает проблему, улучшит долгосрочную ценность ответа. - person Alexander; 11.01.2018