用excel怎么编一个宏从0-9选3个数字排列列出来

3D应该是可以重复的，所以应该是1000种吧？

Sub 玩3D()

For t1 = 0 To 9
For t2 = 0 To 9
For t3 = 0 To 9
r = r + 1
Cells(r, 1) = t1
Cells(r, 2) = t2
Cells(r, 3) = t3
Next
Next
Next
End Sub

工具-宏-VB编辑器,打开VBA编辑器,插入-模块,把下面的代码复制到其中,保存.
关闭VBA,回到excel,点:工具-宏-宏... ,选中其中的宏名"玩3D",点后面的执行)

Sub 玩3D()
n = 9
For t1 = 0 To n - 2
For t2 = t1 + 1 To n - 1
For t3 = t2 + 1 To n
r = r + 1
Cells(r, 1) = t1
Cells(r, 2) = t2
Cells(r, 3) = t3
Next
Next
Next
End Sub

有道理,我一直以为3D只是选对三个数就行了呢