如何使用EXCEL 把1--10 每3个一组(不重复)具体排列出来
发布网友
发布时间：2022-04-23 16:51
共1个回答
热心网友
时间：2023-10-09 19:21
我用VBA来做，程序如下：
执行结果如下：
是你要的么？
Sub x()m = 1
For i = 1 To 10
For j = 1 To 10
For k = 1 To 10
If i <> j And i <> k And j <> k Then
Cells(m, 1).Resize(1, 3) = Array(i, j, k)
m = m + 1
End If
Next k
Next j
Next i
End Sub
