1-33共33个数字,三个一组,不重复有多少组呀?能用EXCEL个数字3个一组排列出来么?

Sub xx()
r = 1
For a = 1 To 31
For b = a + 1 To 32
For c = b + 1 To 33
Cells(r,1) = a
Cells(r,2) = b
Cells(r,3) = c
r = r + 1
Next c,b,a
End Su