高等数学组合公式

和值等于86结果N个组合。有什么公式可以解决，

在Excel里，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码:Sub test()Application。ScreenUpdating = FalseDim i, j, k, l, m, n, x As Integerx = 1For i = 1 To 28For j = i 1 To 29For k = j 1 To 30For l = k 1 To 31For m = l 1 To 32For n = m 1 To 33If i j k l m n = 86 ThenCells(x, 1) = i & "," & j & ",...全部

  在Excel里，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码:Sub test()Application。ScreenUpdating = FalseDim i, j, k, l, m, n, x As Integerx = 1For i = 1 To 28For j = i 1 To 29For k = j 1 To 30For l = k 1 To 31For m = l 1 To 32For n = m 1 To 33If i j k l m n = 86 ThenCells(x, 1) = i & "," & j & "," & k & "," & l & "," & m & "," & nx = x 1'If x Mod 500 = 1 Then'If MsgBox("Continual?", vbYesNo, "Hi") = vbNo Then Exit Sub'End IfEnd IfNextNextNextNextNextNextApplication。
  ScreenUpdating = TrueEnd Sub在此界面直接按F5运行此宏，等一会，完成。收起