excel怎樣排列
1. excel如何做排列組合
1、打開"排列組合.XLS"。
2. excel怎麼排序
以下代碼是excelVBA中的代碼，
Sub autoNumber()
Dim max_row As Long
Dim i As Long
Dim cur_number As Long
Dim content As String
Dim d As Object
Set d = CreateObject("scripting.dictionary")
cur_number = 1
'獲得A列非空最大行號
max_row = Range("A65535").End(3).Row
For i = 2 To max_row
If d.Exists(Cells(i, "A").Value) Then
'從字典中取出編號
Sheets("Sheet3").Cells(i, "B") = d.Item(Cells(i, "A").Value)
Else
'新添加編號
Sheets("Sheet3").Cells(i, "B").Value = cur_number
content = Sheets("Sheet3").Cells(i, "A").Value
'將新編號存到字典中
d.Add content, cur_number
'編號+1
cur_number = cur_number + 1
End If
Next
End Sub
3. excel如何進行全排列
只排2位與3位的數字是吧。
在任意單元格輸入公式：
=TEXT(SMALL(IF((ABS(MID(ROW($10:$333),1,1)-2)<2)*(ABS(MID(ROW($10:$333),2,1)-2)<2)*(ABS(MID(ROW($10:$333)&3,3,1)-2)<2)*(MID(ROW($10:$333),1,1)<>MID(ROW($10:$333),2,1))*(MID(ROW($10:$333),2,1)<>MID(ROW($10:$333),3,1))*(MID(ROW($10:$333),1,1)<>MID(ROW($10:$333),3,1)),ROW($10:$333),999),ROW()),"[<333]#;")
公式以CTRL+SHIFT+回車三鍵結束。
將公式向下復制。
4. 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
以上，希望能幫上忙！