返回目录:excel表格制作
没问题啊知
那文章的1~5步骤相当于道原理说明,真正的完整公式在第6步骤:
只要级的数回据在答A1:A2,等的数据在B1:B4
C1
=INDEX($A$1:$A$2,INT((ROW(A1)-1)/4)+1)&INDEX($B$1:$B$4,MOD(ROW(A1)-1,4)+1)
下拉即可
这个排列组合经常要用到,托您的问题,我学习了一下,做了一个排列组合的代码。只当抛砖引玉,希望有高手批评指正。(这个程序是将10个数字,按每条4个数字进行组合)
Sub 组合()
Dim arr_S(1 To 10)
Dim arr_O
Dim I, J, K1, K2, K3, K4 As Integer
I = Sheet1.Range("A65536").End(xlUp).Row
'arr_S = Sheets("sheet1").Range("a2:a" & I) 这个运行e799bee5baa6e78988e69d83330时出错
For J = 1 To I - 1 '给原始序列数组赋值
arr_S(J) = Cells(J + 1, 1)
Next J
I = I - 1 '原始数据的个数
J = I * (I - 1) * (I - 2) * (I - 3) / (1 * 2 * 3 * 4) '按4列组合,计算目标数组的个数
ReDim arr_O(1 To J, 1 To 4)
J = 1
For K1 = 1 To I - 3
For K2 = K1 + 1 To I - 2
For K3 = K2 + 1 To I - 1
For K4 = K3 + 1 To I
arr_O(J, 1) = arr_S(K1)
arr_O(J, 2) = arr_S(K2)
arr_O(J, 3) = arr_S(K3)
arr_O(J, 4) = arr_S(K4)
J = J + 1
Next K4
Next K3
Next K2
Next K1
For I = 1 To J - 1
Cells(I + 1, 3) = arr_O(I, 1)
Cells(I + 1, 4) = arr_O(I, 2)
Cells(I + 1, 5) = arr_O(I, 3)
Cells(I + 1, 6) = arr_O(I, 4)
Next I
End Sub
执行结果如图所示:
用VBA求,下面e799bee5baa6e997aee7ad94e58685e5aeb9330是代码:
Private Sub CommandButton1_Click()
Dim i, j, k, l, m As Integer
Dim strArr(1 To 4), strS As String
strArr(1) = "aa"
strArr(2) = "bb"
strArr(3) = "11"
strArr(4) = "22"
m = 1
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
For l = 1 To 4
If i <> j And i <> k And i <> l And j <> k And k <> l And j <> l Then
strS = strArr(i) & strArr(j) & strArr(k) & strArr(l)
Cells(m, 1) = strS
m = m + 1
End If
Next l
Next k
Next j
Next i
End Sub
如果全都是来4选3,且每隔4个有一个空单元格的话,可用下列方法:
1、选中A列,点击【数据】选项卡下的【分自列】,一直下一步到最后,数据格式选择文本,百然后点击完成。度
2、在B1输入:=IF(A1="","",REPLACE(PHONETIC(INDIRECT("a"&(MIN(IF(A1:A5="",ROW(A1:A5),9999))-4)&":"&"a"&(MIN(IF(A1:A5="",ROW(A1:A5),9999))-1))),MIN(IF(A1:A5="",ROW(A1:A5),9999))-ROW(A1),1,""))然后同时按ctrl shift enter结束。
3、选中B1,鼠标移到B1右下角,按住并往下托拉即可。
注:如果是5选4等类型,问可将公式中的A1:A5改成A1:A6,-4改成-5即可。同理,还可改成6选5,7选6等。以此类推答。