怎么把上下行都有空白行隔开的区域按照日期从小到大重新排序？

百读谷歌

求助大佬，
A列中上下都有空白行隔开的为一个日期区域，
把这些区域按照日期顺序从小到大重新排序，
排序后每一个日期区域都用一个空白行隔开，
重新排序只把A列到L列的内容移动排序，不能整行都移动，因为右边还有其他内容不能跟随一起移动的。




求助大佬帮忙看看。。

清风竹-

请看附件。

蓝桥玄霜

排序的例子：

吴中泉

吴中泉

1. 
   
2. Public Sub ssjss()
   
3. Application.ScreenUpdating = False
   
4. Dim arr As Variant, t As Variant
   
5. Dim i As Long, r As Long
   
6. With Sheets("Sheet1")
   
7.     r = .Cells(Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("A1:M" & r)
   
9. End With
   
10. For i = 2 To UBound(arr)
    
11.     If arr(i, 1) <> Empty Then
    
12.         t = DateValue(arr(i, 1))
    
13.         arr(i, 13) = t 'arr(i, 1)
    
14.         If arr(i - 1, 1) = Empty Then arr(i - 1, 13) = t
    
15.     End If
    
16. Next i
    
17. [q24].Resize(UBound(arr), UBound(arr, 2)) = arr
    
18. [q24].Resize(UBound(arr), UBound(arr, 2)).Sort key1:=[ac24], Header:=xlYes
    
19. [ac24].Resize(UBound(arr), 1) = ""
    
20. Application.ScreenUpdating = True
    
21. MsgBox "ok!"
    
22. End Sub
    
23. 
    
24. 
    

复制代码

百读谷歌

清风竹- 发表于 2023-5-29 09:16
请看附件。

大佬你好，这个代码能不能修改一下，试用的时候发现几处不完美的地方。
第一个是有时候重新排序的时候默认都要从第3行开始往下排列，不要从第2行开始。因为第2行时默认留空白的。
第二个就是发现有时候重新排序的时候，I列的公式会被改变，第一个日期区域被重新排序到后面的时候会触发这个错误，I2的公式的后面部分 SUM($I1:$I$2),"")会被改变成SUM($I$1:$I2),"")
还有一个小问题就是不知道为什么 2-29 这个日期会被排序到所有日期的最后面。

百读谷歌

清风竹- 发表于 2023-5-29 09:16
请看附件。

还有就是重新排序的时候能不能依照现在的打印设置，使得排序后的某个日期区域不会分开在两页中打印，就是如果某个日期区域在排序后会被分开两页打印，就自动添加空白行往下一页调整，保证这个日期区域的内容只在同一页纸上打印。

百读谷歌

清风竹- 发表于 2023-5-29 09:16
请看附件。

大佬有空看看这个吗？代码还有一点点bug，能修复下吗？

第一个就是发现有时候重新排序的时候，I列的公式会被改变，第一个日期区域被重新排序到后面的时候会触发这个错误，I2的公式的后面部分 SUM($I1:$I$2),"")会被改变成SUM($I$1:$I2),"")
I列的都是公式，修改成不参与重新排序也可行的


第二个是能不能修改重新排序的时候默认从第3行开始往下排列，不要从第2行开始。因为第2行时默认留空白的。

还有一个小问题就是不知道为什么 2-29 这个日期会被排序到所有日期的最后面。

大佬有空再看看吗？

清风竹-

百读谷歌 发表于 2023-6-7 22:07
大佬有空看看这个吗？代码还有一点点bug，能修复下吗？

第一个就是发现有时候重新排序的时候，I列的公 ...

关于7楼问题，另向高手求助。

百读谷歌

清风竹- 发表于 2023-6-8 09:58
关于7楼问题，另向高手求助。

不胜感激，劳烦大佬了。