Question

EXCEL排列组合问题

有两个字符例如 A 和 B
我要输出所有A和B的组合

例如：
ABBBBB
AABBBB
AAABBB
AAAABB
AAAAAB
ABAAAA
ABBAAA
.....

用excel表格如何实现？

Answer 1

请问有没有全是A和全是B的情况？如果必须包含至少一个A和一个B，那么代码如下。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub zh()
Dim Arr: Dim n1, n2, n3, n4, n5 As Integer: Dim n As Long: Dim s As String
Arr = Array("A", "B")
For n1 = 0 To 1
For n2 = 0 To 1
For n3 = 0 To 1
For n4 = 0 To 1
For n5 = 0 To 1
    s = Arr(n1) & Arr(n2) & Arr(n3) & Arr(n4) & Arr(n5)
    If InStr(s, Arr(0)) <> 0 And InStr(s, Arr(1)) <> 0 Then n = n + 1: Range("A" & n).Value = s
Next
Next
Next
Next
Next
End Sub

追问

谢谢你的回答，可惜我刚结贴了。要是能再给你分数就好了！

你这个方法更好

Answer 2

=SUBSTITUTE(SUBSTITUTE(DEC2BIN(ROW(A32)),1,"A"),0,"B")，一直下拉共31个数，第32个数开始，用公式=SUBSTITUTE(SUBSTITUTE(DEC2BIN(ROW(A62)),1,"B"),0,"A")，也是下拉共31个数。