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

学习 时间:2026-04-01 08:40:12 阅读:5225
26和字母每3个字母组合用excel字母做出来?比如aaa、abc、bac、bac、acb、cab、aab、bab、baa、不重复就可以,一次做出来用手动容易出错,而且费时间请大侠指点

最佳回答

失眠的雪碧

勤奋的寒风

2026-04-01 08:40:12

用宏做: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 26yy(i) = Chr(i + 96)Next iFor i = 1 To 26g = 0For j = 1 To 26For k = 1 To 26g = g + 1Cells(g,i) = yy(k) & yy(j) & yy(i)Next kNext jNext iEnd Sub 再问: 如果把多排的合并成一排!合并成竖的一排 再答: 那好办,把g = 0 删除,再把Cells(g, i) 改为Cells(g, 1)

最新回答共有2条回答

  • 懵懂的柜子
    回复
    2026-04-01 08:40:12

    用宏做: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 26yy(i) = Chr(i + 96)Next iFor i = 1 To 26g = 0For j = 1 To 26For k = 1 To 26g = g + 1Cells(g,i) = yy(k) & yy(j) & yy(i)Next kNext jNext iEnd Sub 再问: 如果把多排的合并成一排!合并成竖的一排 再答: 那好办,把g = 0 删除,再把Cells(g, i) 改为Cells(g, 1)

上一篇 水如果在井里,井口非常小,乌鸦怎么才能喝到?

下一篇 起吊机和起重机的区别?起吊机的定义是什么呢?