列出所有不同的分佈選項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