永发信息网

如何用excel生成1-8这8个数字的全排列呢?

答案:4  悬赏:0  手机版
解决时间 2021-11-20 02:40
  • 提问者网友:爱唱彩虹
  • 2021-11-19 15:46
如何用excel生成1-8这8个数字的全排列呢?
最佳答案
  • 五星知识达人网友:撞了怀
  • 2021-11-19 16:40
如果你不会VBA,有个手动的方式也可以生成,耗时2-3分钟就可以了
我给出VBA方法,确保你的工作簿里有个工作表的名称是“Sheet3”,然后运行下面一段宏:
Sub test()
su = 1
For a = 1 To 8
For b = 1 To 8
If b <> a Then
For c = 1 To 8
If c <> a And c <> b Then
For d = 1 To 8
If d <> a And d <> b And d <> c Then
For e = 1 To 8
If e <> a And e <> b And e <> c And e <> d Then
For f = 1 To 8
If f <> a And f <> b And f <> c And f <> d And f <> e Then
For g = 1 To 8
If g <> a And g <> b And g <> c And g <> d And g <> e And g <> f Then
For h = 1 To 8
If h <> a And h <> b And h <> c And h <> d And h <> e And h <> f And h <> g Then
Worksheets("Sheet3").Range("C" & su).Value = a & b & c & d & e & f & g & h
su = su + 1
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
Next
End Sub追问那手动方法是怎样的?
全部回答
  • 1楼网友:不想翻身的咸鱼
  • 2021-11-19 19:40
试一下rang函数
  • 2楼网友:爱难随人意
  • 2021-11-19 18:40
先输入1,再输入2,然后拉一下既有了追问全排列指的是把1-8排成一行的所有排列方法
  • 3楼网友:山君与见山
  • 2021-11-19 18:11
先输入1,再输入2,然后选中1和2并下拉
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯