假设10个数字，那么这10个数字就可以组合成10*9=90对组合，对于每一对这样的组合，我

假设10个数字，那么这10个数字就可以组合成10*9=90对组合，对于每一对这样的组合，我们都让其相除，会得到90个数字。我是希望将这90个结果放在同一行中。用excel公式实现。

请查看附件，是这样的吗？

楼主，这是很简单的公式不断重复的过程，你可以自己慢慢输公式，这样效果好点

using VBA is easier, not sure if you can use excel directly.

Sub perm2()

    ' data start
    Cells(2, 3).Select
    Set Rng = Range(Selection, Selection.End(xlToRight))
    i0 = 0
    For Each c1 In Rng.Cells
        For Each c2 In Rng.Cells
            If c1.Column < c2.Column Then
                i0 = i0 + 1
                'output results
                Cells(11, 2 + i0) = c2.Value / c1.Value
            End If
        Next c2
    Next c1
   
End Sub

jjjj6666 发表于 2014-3-20 09:58
using VBA is easier, not sure if you can use excel directly.

Sub perm2()

不知道怎么使用vba呢？

open you excel with the data (the data, using the current VBA) started from C3, select that sheet with the data.

then hit "alt-f11", it will open an vba window, right click VBAProject (for the excel file you have data) under the Project-VBAProject tab (upper left), then "insert->module", then click "module1", paste the macro there.  You can run the macro using the VBA windows by click run->run sub/userforms" or go back to excel and hit "alt-f8" and select the macro name to run.