excel怎样做排列组合?
序列TEwTEwTAwDAxTAwTAxDEw里,不管T、E、w、A、D、x分别出现多少次,同一时刻每个字母都仅等于一个数字(0或者1)。没有其他限制的话,总共6个字母,每个有0和1两种可能,这样实际上就有2^6即64种组合。
相应的,字符串所有组合只需要将每组字母代表数字代入字符串即可,如下:
000000000000000000000
000000000001000001000
000000000100000000100
000000000101000001100
000000010010010010000
000000010011010011000
000000010110010010100
000000010111010011100
001001001000001000001
001001001001001001001
001001001100001000101
001001001101001001101
001001011010011010001
001001011011011011001
001001011110011010101
001001011111011011101
010010000000000000010
010010000001000001010
010010000100000000110
010010000101000001110
010010010010010010010
010010010011010011010
010010010110010010110
010010010111010011110
011011001000001000011
011011001001001001011
011011001100001000111
011011001101001001111
011011011010011010011
011011011011011011011
011011011110011010111
011011011111011011111
100100100000100100000
100100100001100101000
100100100100100100100
100100100101100101100
100100110010110110000
100100110011110111000
100100110110110110100
100100110111110111100
101101101000101100001
101101101001101101001
101101101100101100101
101101101101101101101
101101111010111110001
101101111011111111001
101101111110111110101
101101111111111111101
110110100000100100010
110110100001100101010
110110100100100100110
110110100101100101110
110110110010110110010
110110110011110111010
110110110110110110110
110110110111110111110
111111101000101100011
111111101001101101011
111111101100101100111
111111101101101101111
111111111010111110011
111111111011111111011
111111111110111110111
111111111111111111111
这里使用VBA进行处理,如下代码供参考:
Sub T()
Dim ii%, T%, E%, w%, A%, D%, x%
ii = 1
For T = 0 To 1
For E = 0 To 1
For w = 0 To 1
For A = 0 To 1
For D = 0 To 1
For x = 0 To 1
Cells(2, ii + 1) = T
Cells(3, ii + 1) = E
Cells(4, ii + 1) = w
Cells(5, ii + 1) = A
Cells(6, ii + 1) = D
Cells(7, ii + 1) = x
Range("A" & ii + 10).NumberFormatLocal = "@"
Range("A" & ii + 10) = T & E & w & T & E & w & T & A & w & D & A & x & T & A & w & T & A & x & D & E & w
ii = ii + 1
Next x
Next D
Next A
Next w
Next E
Next T
End Sub
以上,希望能帮上忙!