Question

26个英文字母,任选四个,包含CO这个排列的,所有的排列用EXCEL我

Answer 1

Sub aa() '四位

k = 1

For i = 1 To 26

For j = 1 To 26

Range("A" k) = Chr(i + 64) Chr(j + 64) "CO"

Range("A" k + 1) = "CO" Chr(i + 64) Chr(j + 64)

k = k + 2

Next j

Next i

End Sub

Sub Bb() '五位

k = 1

For i = 1 To 26

For j = 1 To 26

For a = 1 To 26

Range("B" k) = Chr(i + 64) Chr(j + 64) Chr(a + 64) "CO"

Range("B" k + 1) = "CO" Chr(i + 64) Chr(j + 64) Chr(a + 64)

k = k + 2

Next a

Next j

Next i

End Sub

Sub cc() '六位

k = 1

For i = 1 To 26

For j = 1 To 26

For a = 1 To 26

For B = 1 To 26

Range("C" k) = Chr(i + 64) Chr(j + 64) Chr(a + 64) Chr(B + 64) "CO"

Range("C" k + 1) = "CO" Chr(i + 64) Chr(j + 64) Chr(a + 64) Chr(B + 64)

k = k + 2

Next B

Next a

Next j

Next i

End Sub六位的在EXCEL2003中装不下（C列）,建议用2007以上版本.