非常难的多条件排序，请高手相助

yishang3 · 发表于 2014-10-6 19:45

最近遇到一个文件需要进行多条件排序，有数千条数据，需要按文件中的规则进行排序，手工做的话太困难，还请论坛的高手出手相助，在此谢谢了！

多条件排序.rar (9.01 KB, 下载次数: 74)

KCFONG · 发表于 2014-10-6 20:14

upload file with raw data and result

yishang3 · 发表于 2014-10-6 20:35

KCFONG 发表于 2014-10-6 20:14
upload file with raw data and result

KCFONG版主老师，您好！刚还在看您插入图片的贴子，您的技术和耐心让人敬佩。
文件中：在满足文件中所列条件的情况下，B列字符一的排序为随机，因此会有很多种结果。特例：假设B列：字符一中的FF，次数：1放在序号：1所在的行。序号：84 WW q 4放在最后一行的位置。
麻烦您帮忙看下！谢谢了！

KCFONG · 发表于 2014-10-6 20:50

不明白
請付上原始版數據和结果例子
說明条件

蓝桥玄霜 · 发表于 2014-10-6 20:50

Sub lqxs()
Dim Myr&, Arr
Myr = Cells(Rows.Count, 1).End(xlUp).Row
Arr = Range("a1:d" & Myr)
Range("a1:d" & Myr).Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range _
("D2"), Order2:=xlAscending, Header:=xlGuess
[a2] = 1: [a3] = 2
[a2:a3].AutoFill [a2].Resize(Myr - 1, 1)
End Sub

复制代码

蓝桥玄霜 · 发表于 2014-10-6 20:52

请见附件。

yishang3 · 发表于 2014-10-6 20:59

KCFONG 发表于 2014-10-6 20:50
不明白
請付上原始版數據和结果例子
說明条件

KCFONG版主老师，您好！我先模拟下结果，但实际上排序的结果应该会有很多种。
B列是随机排，但要满足B列数据相同，D列按升序排，且字符相同的数据至少相隔10行左右。
感谢您!

yishang3 · 发表于 2014-10-6 21:03

蓝桥玄霜发表于 2014-10-6 20:50

蓝桥玄霜老师，谢谢您的帮助，
文件的排序规则是：按B列随机进行排序!满足如下条件:
1、当B列数据相同时，D列次数大的排在次数小的后面，且行数最少相距 10行。
2、B列出现-1，－2等字符时，排在相邻的行，且数字越小，排列的行号越小。
3、一种情况：当满足条件1，2时，考虑字符二，字符二相同的尽量排在一起。第二种情况：当满足条件1，2时，考虑字符二，字符二相同的尽量不排在一起。
4、特例:可先按B列字符一，次数，设定序号，再进行前面的排序!
5、排序完成后自动生成序号。

yishang3 · 发表于 2014-10-6 21:53

KCFONG 发表于 2014-10-6 20:50
不明白
請付上原始版數據和结果例子
說明条件

初步模拟了下结果，不太准确，大概能说明问题,还请老师们帮忙看看!

多条件排序1.rar (13.8 KB, 下载次数: 22)

KCFONG · 发表于 2014-10-6 22:54

see if my understand is correct, please test

Not understand

2、可进行：序号22预设为新排序一中的：1，同理还可以设置多个。
5、满足条件后进行数据全面计算并随机排列。

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

[求助] 非常难的多条件排序，请高手相助