求编一个VBA代码能实现随意安排位置（32人）

chxw68

第1、3个问题已经解决了，解决第2个问题还需要一点时间，这个问题确实有些难。

cl63519

这道题目我已经完成不少了，你再说明点，我就做好了。
我还是不太清楚你是否要保留G,h

lmx3517

cl63519 发表于 2014-7-6 09:30
这道题目我已经完成不少了，你再说明点，我就做好了。
我还是不太清楚你是否要保留G,h

我只想将随意安排位置姓名、单位在E（姓名）、F（单位）列出现，chxw68这位朋友已帮助解决，但是少于32人时就不能运行报错。您可以看看他的附件，谢谢！！！

chxw68

lmx3517 发表于 2014-7-6 09:48
我只想将随意安排位置姓名、单位在E（姓名）、F（单位）列出现，chxw68这位朋友已帮助解决，但是少于32人 ...

我反复试了几次，少于32人程序不报错呀！

cl63519

我也试了几次，他的程序少于３２个确实出错

chxw68

我保留了10来个人，程序也不会出错，请楼主试试。

cl63519

你的问题有些漏洞，
假设A,B,C,D属于上海,
e,f,g属于北京，
h,i,j属于安徽，
k,L属于西安，

这种情况的话，按照你的说法，这里有１２个人，四个区域的话，则每个区域有３个人，

Ａ，e,h
Ｂ，f,i
Ｃ，g,j
Ｄ，k,l (k,l此时矛盾）

Ａ，e,h
Ｂ，f,i
Ｃ，k,l
Ｄ，g,j(k,l此时也矛盾）
这个特例
无法满足你的要求：
如果有2个，则1—16、17—32序号区域内随意安排。

cl63519

chxw68 发表于 2014-7-6 10:32
我保留了10来个人，程序也不会出错，请楼主试试。

问题有些漏洞，
假设A,B,C,D属于上海,
e,f,g属于北京，
h,i,j属于安徽，
k,L属于西安，

这种情况的话，按照你的说法，这里有１２个人，四个区域的话，则每个区域有３个人，

Ａ，e,h
Ｂ，f,i
Ｃ，g,j
Ｄ，k,l (k,l此时矛盾）

Ａ，e,h
Ｂ，f,i
Ｃ，k,l
Ｄ，g,j(k,l此时也矛盾）
这个特例
无法满足你的要求：
如果有2个，则1—16、17—32序号区域内随意安排。

chxw68

cl63519 发表于 2014-7-6 11:27
问题有些漏洞，
假设A,B,C,D属于上海,
e,f,g属于北京，

是的！许多特例我都没有考虑。这个问题拿来练习练习还可以，如果在实际工作中，就这几个人还不如用手工排呢。

cl63519

chxw68 发表于 2014-7-6 11:31
是的！许多特例我都没有考虑。这个问题拿来练习练习还可以，如果在实际工作中，就这几个人还不如用手工排 ...

是呀，才３２个人，
手工就行了，