1到33中的任6个数的和为100,有多少组数,用excel vba能办到吗?

推荐回答

这样的组合会很多（超出你的想象，你最好吧100该小点）Sub sum6() Dim X1, X2, Y1, Y2, Z1, Z2 Dim myRow As Integer For X1 = 1 To 11 For X2 = 1 To 11 For Y1 = 12 To 22 For Y2 = 12 To 22 For Z1 = 23 To 33 For Z2 = 23 To 33 If X1 + X2 + Y1 + Y2 + Z1 + Z2 = 100 Then myRow = myRow + 1 With ThisWorkbook.Sheets(1) .Cells(myRow, 1) = X1 .Cells(myRow, 2) = X2 .Cells(myRow, 3) = Y1 .Cells(myRow, 4) = Y2 .Cells(myRow, 5) = Z1 .Cells(myRow, 6) = Z2 End With End If Next Next Next Next Next NextEnd Sub运行中会提示错误，是因为数据组合太多超出excel最大行数,结果可以在第一个表查看。