0_9看成1-9了
用这个程序
生成p（10,4）-P(9,3)=4536个
Sub f()
Dim a,b,c,d As Integer
Dim i As Integer
i = 1
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If a = b Or b = c Or a = c Or a = d Or d = c Or d = b Then
Else
Cells(i,1) = a & b & c & d
i = i + 1
End If
Next
Next
Next
Next
End Sub