数据太多，肉眼审核难免出错。跪求各位大神帮忙

高个子

toki3456 发表于 2022-8-16 16:45
也没有那么多啦

1. =SUM(ABS(IMREAL(IMDIV(TRIM(MID(TRIM(MID(SUBSTITUTE(B2,CHAR(10),REPT(" ",LEN(B2))),LEN(B2)*ROW(INDIRECT("1:"&LEN(B2)-LEN(SUBSTITUTE(B2,CHAR(10),))+1))-LEN(B2)+1,LEN(B2))),3,11))&"j","1+j"))))*48

复制代码

字符没这么多可以用这个公式，三键

ericxzhou

1. Sub test()
   
2.     Dim i%, j%, mobj, gap%
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "([0-9]{1,2}:[0-9]{2})-([0-9]{1,2}:[0-9]{2})"
   
6.         j = [a1].End(4).Row
   
7.         For i = 2 To j
   
8.             For Each mobj In .Execute(Cells(i, 2))
   
9.                 gap = gap + Val(Left(mobj.submatches(1), 2)) - Val(Left(mobj.submatches(0), 2))
   
10.             Next
    
11.             Cells(i, 3) = gap: gap = 0
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

toki3456

高个子 发表于 2022-8-16 17:13
字符没这么多可以用这个公式，三键

好的，谢谢大神

toki3456

良良 发表于 2022-8-16 16:35
C2=SUM(TRIM(MID(SUBSTITUTE(MID(TRIM(MID(SUBSTITUTE(B2,CHAR(10),REPT(" ",LEN(B2))),LEN(B2)*ROW(INDIRE ...

谢谢大神，超级赞的公式，笔芯

toki3456

第一宝 发表于 2022-8-16 16:51
=ROUNDUP(SUM(TEXT(TRIM(LEFT(RIGHTB(TRIM(LEFT(SUBSTITUTE(B2," 加",REPT(" ",99)),ROW($1:$9)*99)),{11 ...

笔芯，谢谢大神

evluan

卡了吗，一直发送不了

toki3456

evluan 发表于 2022-8-17 09:38
卡了吗，一直发送不了

感谢大神，已解决

lhacxx

1. =SUM(IFERROR(MID(REPT("0",11-LEN(TRIM(IF(FIND("周"&{"一";"二";"三";"四";"五";"六";"日"},B2),MID(B2,FIND("周"&{"一";"二";"三";"四";"五";"六";"日"},B2)+2,11),""))))&TRIM(IF(FIND("周"&{"一";"二";"三";"四";"五";"六";"日"},B2),MID(B2,FIND("周"&{"一";"二";"三";"四";"五";"六";"日"},B2)+2,11),"")),{1,7},2)*{-1,1},0))

复制代码

toki3456

ericxzhou 发表于 2022-8-16 17:22

感谢大神，您的代码非常好用，实际运用过程中还有下面两种情况，请问应该如何修改代码？
1、加班时间有分钟，不是整点；2、加班时间到凌晨，

ericxzhou

toki3456 发表于 2022-8-19 09:29
感谢大神，您的代码非常好用，实际运用过程中还有下面两种情况，请问应该如何修改代码？
1、加班时间有 ...

1. Sub test()
   
2.     Dim i%, j%, mobj, gap, t1, t2
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "([0-9]{1,2}:[0-9]{2})-([0-9]{1,2}:[0-9]{2})"
   
6.         j = [a1].End(4).Row
   
7.         For i = 2 To j
   
8.             For Each mobj In .Execute(Cells(i, 2))
   
9.                 t1 = mobj.submatches(0): t2 = mobj.submatches(1)
   
10.                 If Left(t2, 2) = 24 Then t2 = "00:" & Right(t2, 2)
    
11.                 If t1 < t2 Then
    
12.                     gap = gap + (TimeValue(t2) - TimeValue(t1))
    
13.                 Else
    
14.                     gap = gap + (Date + 1 + TimeValue(t2)) - (Date + TimeValue(t1))
    
15.                 End If
    
16.             Next
    
17.             Cells(i, 3) = WorksheetFunction.Text(gap, "hh小时mm分钟"): gap = 0
    
18.         Next
    
19.     End With
    
20. End Sub

复制代码