Excle计算数字组合

用VBA很容易做,程序如下：Sub 所有组合()Dim a As Integer,b As Integer,c As Integer,i As IntegerRange("A:C")。ClearContentsi = 1For a = 1 To 9  For b = 1 To 9    For c = 1 To 9      If a <> b And b <> c And a <> c And a + b + c = 10 Then        Range("A" & i) = a        Range("B" & i) = b        Range("C" & i) = c        i = i + 1      End If    Next c  Next bNext aEnd Sub运行结果如下： 再问： 不好意思，忘了A