VBA遞歸組合排列26個英文字母包括重復字母如AA

VBA遞歸組合排列26個英文字母包括重復字母如AA？

Sub sdgs()

r = 1

For t = 65 To 90

Cells(r, 1) = Chr(t)

r = r + 1

For y = 65 To 90

For e = 65 To 90

Cells(r, 1) = Chr(y) & Chr(e)

r = r + 1

For i = 65 To 90

For u = 65 To 90

For o = 65 To 90

Cells(r, 1) = Chr(i) & Chr(u) & Chr(o)

r = r + 1

End Sub

從 AAA-ZZZ 下面這個就可以了。

Sub sdgs()

r = 1

For i = 65 To 90

For u = 65 To 90

For o = 65 To 90

Cells(r, 2) = Chr(i) & Chr(u) & Chr(o)

r = r + 1

End Sub

java快速排序非遞歸,VBA遞歸組合排列26個英文字母包括重復字母如AA

欧美一区二区三区,国内熟女精品熟女A片视频小说,日本av网,小鲜肉男男GAY做受XXX网站