列出所有不同的分布选项VBA

Question

我有一个Excel行，看起来像这样：

0.0 0.0 0.0 0.0 0.0 1.0 

，每个值都是一个单元。我想要的是以0.1的步骤列出所有不同的分配选项。该行的总和逻辑始终为1 所以结果应该是这个样子：

0.0 0.0 0.0 0.0 0.1 0.9 
0.0 0.0 0.0 0.0 0.2 0.8 
0.0 0.0 0.0 0.0 0.3 0.7 
... 
0.0 0.0 0.0 0.1 0.1 0.8 
0.0 0.0 0.1 0.0 0.1 0.8 
0.0 0.1 0.0 0.0 0.1 0.8 
... 

结果将包含数百行。我不知道如何编程这个算法。 感谢您的每一个解决方案！

Answer 1

考虑：

Sub whatever() 
Dim K As Long 
K = 1 
For i1 = 0 To 1 Step 0.1 
    For i2 = 0 To 1 Step 0.1 
     For i3 = 0 To 1 Step 0.1 
      For i4 = 0 To 1 Step 0.1 
       For i5 = 0 To 1 Step 0.1 
        For i6 = 0 To 1 Step 0.1 
         If Abs(i1 + i2 + i3 + i4 + i5 + i6 - 1) < 0.001 Then 
          Cells(K, 1) = i1 
          Cells(K, 2) = i2 
          Cells(K, 3) = i3 
          Cells(K, 4) = i4 
          Cells(K, 5) = i5 
          Cells(K, 6) = i6 
          K = K + 1 
         End If 
        Next 
       Next 
      Next 
     Next 
    Next 
Next 
MsgBox K 
End Sub