关于
有以下数据:A1,B1,C1,D1,E1,F1
A2,B2,C2,D2,E2,F2
在这12个数中随机取其中的6个进行排列,要求:A1 与 A2不能同时出现,B1 与 B2不能同时出现,C1 与 C2不能同时出现,D1 与 D2不能同时出现,E1 与 E2不能同时出现,F1 与 F2不能同时出现。
谢谢!
排列后放在Excel中,从cells(1,1)开始。如何才能实现呀?????期待高手指点!!!!!
[解决办法]
感觉lz要的应该是这个
- VB code
Dim a(5, 1)Sub 按钮_Click() Dim i0 As Integer Dim i1 As Integer Dim i2 As Integer Dim i3 As Integer Dim i4 As Integer Dim i5 As Integer a(0, 0) = "普通" a(1, 0) = "大件" a(2, 0) = "要求" a(3, 0) = "铁皮" a(4, 0) = "热塑膜" a(5, 0) = "胶合夹板" a(0, 1) = "合打" a(1, 1) = "小件" a(2, 1) = "无要求" a(3, 1) = "PE" a(4, 1) = "捆包膜" a(5, 1) = "多层夹板" i = 1 j = 1 For i0 = 0 To 1 For i1 = 0 To 1 For i2 = 0 To 1 For i3 = 0 To 1 For i4 = 0 To 1 For i5 = 0 To 1 Cells(i, j) = a(0, i0) & a(1, i1) & a(2, i2) & a(3, i3) & a(4, i4) & a(5, i5) If j = 6 Then j = 0 i = i + 1 End If j = j + 1 Next Next Next Next Next Next End Sub