Question

26个英文字母组合成4位字母的所有排列组合,求其中含a.o.e.i.u.v这六个字母的所有4位组合?求高手筛选排列~

就是26个英文字母的所有4位字母排列组合中，含aoeiuv这六个字母的所有组合！在表格中筛选了半天，没筛选出来！

Answer 1

Sub xx()
n = 1
For i1 = 97 To 122
f1 = False
a1 = Chr(i1)
If InStr("aeiouv", a1) > 0 Then f1 = True
For i2 = 97 To 122
f2 = False
a2 = Chr(i2)
If InStr("aeiouv", a2) > 0 Then f2 = True
For i3 = 97 To 122
f3 = False
a3 = Chr(i3)
If InStr("aeiouv", a3) > 0 Then f3 = True
For i4 = 97 To 122
f4 = False
a4 = Chr(i4)
If InStr("aeiouv", a4) > 0 Then f4 = True
If f1 Or f1 Or f3 Or f4 Then
k = k + 1
Cells(k, n) = a1 & a2 & a3 & a4
If k = 4 ^ 8 Then k = 0: n = n + 1 '如果excel在07版以上，删除本行
End If
Next: Next: Next: Next
End Sub

追问

呃~看不懂啊~能不能做成表格发下~

追答