请教时间按指定规则升序排序

jian82372387

附件中原始数据为A-B列，所需结果如E-F列所示，需求：是原始数据A-B列数据按B列时间升序排序，但是00：00分-1：00分的默认视为第二天的时间，要将这些排在其他时间的后面，请问有什么办法可以完成？？

ykcbf1100

加个辅助列就可以。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.22
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 2 To r
   
4.         tim = Format(Cells(i, 2), "hh:mm:ss")
   
5.         If Left(tim, 1) = "0" Then
   
6.             Cells(i, 3) = Format(24 & Mid(tim, 2), "hh:mm:ss")
   
7.         Else
   
8.             Cells(i, 3) = Format(tim, "hh:mm:ss")
   
9.         End If
   
10.     Next
    
11.     Range("a2:c" & r).Sort Cells(2, 3), 1
    
12.      Columns(3) = ""
    
13. End Sub
    
14. 
    

复制代码

grf1973

用公式加个辅助列，直接按辅助列排序。
时间计算以1天为1，所以小于1小时即为<1/24。

Qs18

除去日期只谈时间有点勉强，最好是把日期加上，想怎么处理都很简单

ykcbf1100

Qs18 发表于 2024-5-22 14:18
除去日期只谈时间有点勉强，最好是把日期加上，想怎么处理都很简单

有日期的话就不用加辅助列了。

jian82372387

ykcbf1100 发表于 2024-5-22 13:51
参与一下。。。

如果小时是一位数，排序就会不对，例如9：30分，会错误排在最后

LIUZHU

这个效果吧

LIUZHU

通过代码排序，在内存数组中加了辅助列，JSA

1. function 排序(){
   
2.         const wf=WorksheetFunction;
   
3.         let arr=Range("a1").CurrentRegion.Value2.slice(1);
   
4.         arr=[["类型","时间"]].concat(arr.map(([a,b])=>[a,b,wf.Text(b,"h")]));
   
5.         arr.sort((a,b)=>arr[0][0]==b[0] || (b[2]!="0")-(a[2]!="0") || a[1]-b[1]);
   
6.         Range("e1").Resize(arr.length,2).Value2=arr;
   
7. }

复制代码

LIUZHU

附件，请审核，WPS打开，运行JS宏