作业帮 > 综合 > 作业

26和字母每3个字母组合用excel字母做出来?比如aaa、abc、bac、bac、acb、cab、aab、bab、ba

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/14 19:37:47
26和字母每3个字母组合用excel字母做出来?比如aaa、abc、bac、bac、acb、cab、aab、bab、baa、
不重复就可以,一次做出来用手动容易出错,而且费时间请大侠指点
26和字母每3个字母组合用excel字母做出来?比如aaa、abc、bac、bac、acb、cab、aab、bab、ba
用宏做:
1.新建excel 文件
2.按 ALT+F11 打开VBA编辑窗口
3.在VBA编辑窗口中 插入--模板 会出现空白窗口.
4.把下面代码复制,粘贴到空白窗口里,再按F5 即可.
Sub aa()
Dim yy(1 To 26)
Dim zz(1 To 26)
Dim xx(1 To 26)
For i = 1 To 26
yy(i) = Chr(i + 96)
Next i
For i = 1 To 26
g = 0
For j = 1 To 26
For k = 1 To 26
g = g + 1
Cells(g,i) = yy(k) & yy(j) & yy(i)
Next k
Next j
Next i
End Sub
再问: 如果把多排的合并成一排!合并成竖的一排
再答: 那好办,把g = 0 删除,再把Cells(g, i) 改为Cells(g, 1)