【vba_excel】実験組合せ

９パラメータ３水準組合せ

Sub Macro1()

Offset = 5
n = 1

For i = 1 To 3
Cells(4, 1).Value = Cells(i, 1).Value
For ii = 1 To 3
Cells(4, 2).Value = Cells(ii, 2).Value
For iii = 1 To 3
Cells(4, 3).Value = Cells(iii, 3).Value
For iiii = 1 To 3
Cells(4, 4).Value = Cells(iii, 4).Value
For iiiii = 1 To 3
Cells(4, 5).Value = Cells(iiii, 5).Value
For iiiiii = 1 To 3
Cells(4, 6).Value = Cells(iiiii, 6).Value
For iiiiiii = 1 To 3
Cells(4, 7).Value = Cells(iiiiii, 7).Value
For iiiiiiii = 1 To 3
Cells(4, 8).Value = Cells(iiiiiii, 8).Value
For iiiiiiiii = 1 To 3
Cells(4, 9).Value = Cells(iiiiiiii, 9).Value
For z = 1 To 9
Cells(Offset + n, z).Value = Cells(4, z).Value
Next
n = n + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub