问题描述：
问题解答：
按下ALT+F11,菜单:插入-模块,复制下列代码.按下F5运行.结果显示在A列.Sub ABC()Range("A1").SelectFor X = 65 To 90For Y = 65 To 90For Z = 65 To 90ActiveCell.Value = Chr(X) & Chr(Y) & Chr(Z)ActiveCell.Offset(1, 0).SelectNextNextNextEnd Sub
上海旅游网