自定义排序

少少飞翔

2024年6月17日提问：保证AB、市字段连续的情况下，使行业字段尽量连续

感谢大家的积极解答，昨天没有描述清楚问题，更新描述
优先保证AB字段连续，这个基础的排序就能解决，关键是市、行业的字段排序很麻烦，要求是相邻的字段尽量保持连续
具体有这几种情况：第一种情况：市和行业同时连续
                            第二种情况：市能连续、行业不连续
                            第三种情况：市不连续、行业连续
                            第四种情况：市不连续，行业不连续，这中情况先考虑市升序、次之行业升序

ykcbf1100

A~D列排序

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.17
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set Rng = Range("b3:d" & r)
   
4.     With Rng
   
5.         .Parent.Sort.SortFields.Clear
   
6.         .Sort key1:=.Item(1), order1:=1, key2:=.Item(2), order2:=1, key3:=.Item(3), order3:=1, Header:=2
   
7.     End With
   
8.     MsgBox "OK！"
   
9. End Sub
   
10. 
    

复制代码

LIUZHU

ykcbf1100 发表于 2024-6-17 17:07
A~D列排序

没有达到楼主的要求，行业尽量连续，这个真的不好搞。

LIUZHU

行业字段尽量连续，这个要求做不出来

LIUZHU

做个标记吧，哪位高手解决了话，真的要好好学习下。

ww87725244

做个标记，有空试试

ykcbf1100

LIUZHU 发表于 2024-6-17 17:11
没有达到楼主的要求，行业尽量连续，这个真的不好搞。

我看了一下，排序结果和楼主差不多的

wang-way

LIUZHU 发表于 2024-6-17 17:29
做个标记吧，哪位高手解决了话，真的要好好学习下。

先按前几列排，最后分区域  升序+降序+升序+降序 那么最后一列的行业是不是就接再一起了

一指禅62