|
xhczq 发表于 2014-1-14 10:57
循环
如果VBA就太方便了,做个按扭,一点所有组合全部产生
谢谢
Sub ep()
Dim i As Integer, j As Integer, k As Integer, Rnum As Long
Dim re()
Dim X1, X2(0 To 25), X3(0 To 25)
X1 = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
ReDim re(1 To 10 * 26 * 26, 1 To 1)
For i = 0 To 25
X2(i) = Chr(i + 65)
X3(i) = Chr(i + 97)
Next i
For i = 0 To UBound(X1)
For j = 0 To UBound(X2)
For k = 0 To UBound(X3)
Rnum = Rnum + 1
re(Rnum, 1) = X1(i) & X2(j) & X3(k)
Next k
Next j
Next i
Sheets(1).[a1].Resize(Rnum) = re
End Sub
数字和字母的组合.rar
(32.41 KB, 下载次数: 20)
|
|