按日期进行排序的问题，求老师帮忙

gglili

求教老师：按日期排序，从A-Q列；
排序完成后，B列序号还是从1往下正常排列。R列不参加排序，但是也不要删除
在此感谢各位老师的帮助

用工明细.rar (11.37 KB, 下载次数: 9)

2024-1-18 18:39 上传

点击文件名下载附件

qline302

通常这种合并表头的表格，我会在表头和内容之间插入一行空行，就可以随便排序了，不用程序。
即第4和5行之间插入一空行，然后隐藏或拉窄行间距。

至于序号，用公式 =Row()-4可实现.

无关岁月

用工明细.7z (13.49 KB, 下载次数: 9)

2024-1-18 19:39 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.18
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheets("班组零工明细")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         .Range("e5:m" & r).UnMerge
   
7.         For i = 5 To r
   
8.             st = Split(.Cells(i, 3), ".")
   
9.             nf = st(0)
   
10.             yf = Format(st(1), "00")
    
11.             rq = Format(st(2), "00")
    
12.             .Cells(i, "g") = Val(nf & yf & rq)
    
13.         Next
    
14.         Set Rng = .Range("c5:q" & r)
    
15.         Rng.Sort .[g5], 1
    
16.         For i = 5 To r
    
17.             .Range(.Cells(i, 5), .Cells(i, "m")).Merge
    
18.         Next
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    
23. 
    

复制代码

ykcbf1100

看着挺简单的排序，其实里面有二个坑，一是排序区域有合并单元格，正常排序不能进行；二是日期格式是文本型且不规范，日期要统一处理一下。

附件供参考。。。

ykcbf1100

楼主是自己给自己找麻烦，一是合并单元格完全不需要；二是日期格式在录入就要规范，这样便于后期数据处理。
好的习惯要平时养成，这是方便自己的工作啊。

gglili

ykcbf1100 发表于 2024-1-18 20:00
楼主是自己给自己找麻烦，一是合并单元格完全不需要；二是日期格式在录入就要规范，这样便于后期数据处理。 ...

感谢老师的指点，合并单元格确实比较难，谢谢

gglili

无关岁月 发表于 2024-1-18 19:39

感谢老师帮助

LIUZHU

不说别的，做表的功力还有待加强，弄这么多合并单元格，完全没必要

LIUZHU

JSA参与下，因为JSA的数组可以排序，但是前提是，日期也要处理下，否则排序会乱掉，比如“2023.12.10”这样的日期就会排在“2023.12.2”的前面。