excel从0-9这10个数中选4个数（这4个数的要求是-必须有至少2个数是重复的）,排列,并列出我知道,任选4个不重复的,排列列出的代码,现在要的就是,将那些不重复的排列排除之后,剩下的那些下

Question

excel 从0-9这10个数中选4个数（这4个数的要求是-必须有至少2个数是重复的）,排列,并列出
我知道,任选4个不重复的,排列列出的代码,现在要的就是,将那些不重复的排列排除之后,剩下的那些
下面这个代码是列出4个不重复数的代码：
Sub aaa()
Range("a1").Select
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
Do While a < b And a < c And a < d And b < c And b < d And c < d
Sum = a & b & c & d
ActiveCell.Value = Sum
ActiveCell.Offset(1, 0).Select
Exit Do
Loop
Next
Next
Next
Next
End Sub

Answer 1

Do While a < b And a < c And a < d And b < c And b < d And c < d
改为
Do While a = b or a = c or a = d or b = c or b = d or c = d