EXCEL A到Z自变 比如AAA..AAB.AAC...ABA.ABB.ABC.......ZZY.ZZZ谢谢

来源:百度知道 编辑:UC知道 时间:2024/06/04 11:59:58

按下ALT+F11,菜单:插入-模块,复制下列代码.按下F5运行.
结果显示在A列.

Sub ABC()
Range("A1").Select
For X = 65 To 90
For Y = 65 To 90
For Z = 65 To 90
ActiveCell.Value = Chr(X) & Chr(Y) & Chr(Z)
ActiveCell.Offset(1, 0).Select
Next
Next
Next
End Sub