Question

如何将第三个和第四个范围/数组添加到以下代码中？

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

Answer 1

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)
range3 = Application.InputBox(Prompt:="Please Select Third Range", Type:=8)


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


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

笛卡尔积与VBA

1 个答案: