Question

20分,求Excel的VB宏编写达人帮忙解决多列排列组合宏的编写.

要求:花组,分AB选项;草组,分CD选项;雨组,分EJ选项;雾组,分KG选项.
每次组合,必须各组选择一种选项,比如,花组选A,草组选C,雨组选J,雾组选K,设定这个组合为方案一.
以此类推,分别在各列列出各种组合,并命名为方案几.
求详细宏编写,最后好详细说明.谢谢

Answer 1

Sub pailie()
k = 6
For hua = 1 To 2
For cao = 1 To 2
For yu = 1 To 2
For wu = 1 To 2
If hua = 1 Then
Cells(k, 1) = "A"
Else
Cells(k, 2) = "B"
End If
If cao = 1 Then
Cells(k, 3) = "C"
Else
Cells(k, 4) = "D"
End If
If yu = 1 Then
Cells(k, 5) = "E"
Else
Cells(k, 10) = "J"
End If
If wu = 1 Then
Cells(k, 11) = "k"
Else
Cells(k, 7) = "G"
End If
k = k + 1
Next
Next
Next
Next

End Sub