按日期排序的问题，求教老师帮助

gglili

要求从A-L列，按C列日期大小排序，排序完成后B列序号还是从小到大不变

工业园用工单.rar (23.02 KB, 下载次数: 5)

2024-4-5 14:28 上传

点击文件名下载附件

ykcbf1100

记住，合并单元格是无法直接参与排序的，所以表的结构我改了一下。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.5
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set Rng = [a5].Resize(r - 4, 9)
   
4.     arr = Rng.Value
   
5.     For i = 1 To UBound(arr)
   
6.         st = Format(Replace(arr(i, 3), ".", "/"), "yyyy/mm/dd")
   
7.         Cells(i + 4, 9) = st
   
8.     Next
   
9.     Rng.Sort Cells(5, 9), 1
   
10.     Columns(9) = ""
    
11.     MsgBox "OK！"
    
12. End Sub
    

复制代码

gglili

ykcbf1100 发表于 2024-4-5 14:59
参与一下。。。

老师，上一个贴子也是按日期排序问题，没改表格结构也是您给解决的，可不可以不改变表格结构，谢谢老师
https://club.excelhome.net/thread-1682950-1-1.html

ykcbf1100

gglili 发表于 2024-4-5 15:56
老师，上一个贴子也是按日期排序问题，没改表格结构也是您给解决的，可不可以不改变表格结构，谢谢老师
...

不改表结构就需要先对合并单元格解开，排序后再合并回去，就是麻烦。问题是，那些合并单元格是没必要存在的，从数据处理角度看，那些合并单元格后期维护时会增加很多麻烦。

yjh_27

日期用文本型
则 月日 应2位（补0）

否则 日期型

baofa2

Sub test0()
  Dim ar, i As Long
  ar = Range("M5", Cells(Rows.Count, "A").End(xlUp))    '多取一列，存放时间
  For i = 1 To UBound(ar)
    ar(i, UBound(ar, 2)) = CDate(Replace(ar(i, 3), ".", "/"))
  Next
  With CreateObject("Excel.Sheet")
    With .Worksheets(1).Range("A1").Resize(UBound(ar), UBound(ar, 2))
      .Value = ar
      .Sort .Item(UBound(ar, 2)), xlAscending, , , , , , xlNo
      With .Columns(2)
        .Sort .Item(1), xlAscending, , , , , , xlNo
      End With
      ar = .Value
    End With
    .Close
  End With
  Range("A5").Resize(UBound(ar), UBound(ar, 2) - 1) = ar
End Sub