如何使用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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com