用excel生成排列组合，从bcdfghjklmnpqrst...-excel自动生成排列组合,excel列出所有排列组

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 ^7a686964616fe4b893e5b19e330 8 Then k = 0: n = n + 1 '如果excel在07版以上，删除本行
End If
Next: Next: Next: Next
End Sub

在A1:A26输入来a~z，然后输入以源下公式zd，并向下填充公式

=OFFSET(A$1,INT((ROW(A1)-1)/(26*26*26)),)&OFFSET(A$1,MOD(INT((ROW(A1)-1)/(26*26)),26),)&OFFSET(A$1,MOD(INT((ROW(A1)-1)/26),26),)&OFFSET(A$1,MOD(ROW(A1)-1,26),)

详见附图