0-9排列组合的问题

wygrl · 发表于 2009-7-27 00:20

0-9，每2个不重复的数字一共组成45个组合，这45个组合排列出945种组合，如何进行筛选出不重复的组合呢？
请看附件！
多谢！

LangQueS · 发表于 2009-7-27 00:27

http://club.excelhome.net/redire ... 939&ptid=443770

wygrl · 发表于 2009-7-27 00:37

谢谢楼上版主！
但链接对我没有太多帮助哦。

wygrl · 发表于 2009-7-27 16:37

wygrl · 发表于 2009-7-27 20:15

提出抗议！！！！

ljw990485 · 发表于 2009-7-27 20:25

抗议无效，哈哈

wygrl · 发表于 2009-7-28 14:31

大家帮帮忙啊
谢啦！

kowloon · 发表于 2009-7-31 00:25

01 23 45 67 89
02 13 46 58 79
03 12 47 59 68
04 15 26 39 78
05 14 27 38 69
06 17 28 35 49
07 18 29 34 56
08 19 24 36 57
09 16 25 37 48

kowloon · 发表于 2009-7-31 00:26

Sub ddd()
Dim ar1(1 To 99)
For i = 1 To 945
For j = 3 To 7
If ar1(Cells(i, j)) = 1 Then GoTo 99
Next
r = r + 1
For j = 3 To 7
ar1(Cells(i, j)) = 1
Cells(r, j + 6) = Cells(i, j)
Next
99
Next
End Sub

wygrl · 发表于 2009-7-31 03:14

非常感谢！！！

先研究研究～

是否只此一组呢？

		自动登录	找回密码
密码			免费注册

[求助] 0-9排列组合的问题

回复 9楼 kowloon 的帖子