求教excel如何将天小时分钟统一转换成分钟

小威上台山

将A列时长在B列转换成分钟

盼盼198310

.............

493861364

盼盼198310 发表于 2023-5-26 17:42
.............

会正则真好，我这还写循环呢

1. Sub aa()
   
2. r = ActiveSheet.UsedRange.Rows.Count
   
3. Range("B2:D" & r).ClearContents
   
4. For i = 2 To r
   
5.     arr = Range("A" & i)
   
6.     strResult = Split(arr, "天")
   
7.     GetWordNum = UBound(strResult) + 1
   
8.         
   
9.     If GetWordNum = 2 Then
   
10.         Range("B" & i) = strResult(0)
    
11.         strResult = Split(strResult(1), "小时")
    
12.         GetWordNum = UBound(strResult) + 1
    
13.         If GetWordNum = 2 Then
    
14.             Range("C" & i) = strResult(0)
    
15.             Range("D" & i) = strResult(1)
    
16.         End If
    
17.     Else
    
18.         strResult = Split(strResult(0), "小时")
    
19.         GetWordNum = UBound(strResult) + 1
    
20.         If GetWordNum = 2 Then
    
21.             Range("C" & i) = strResult(0)
    
22.             Range("D" & i) = strResult(1)
    
23.         Else
    
24.             Range("D" & i) = strResult(0)
    
25.         End If
    
26.     End If
    
27.     Range("E" & i) = Range("B" & i) * 24 * 60 + Range("C" & i) * 60 + Split(Range("D" & i), "分")(0) & "分"
    
28. Next
    
29. End Sub
    

复制代码

micch

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, s$
    ar = [A1].CurrentRegion
    br = [{"天","*1440+";"小时","*60+";"分","*1"}]
    For i = 2 To UBound(ar)
        s = ar(i, 1)
        For j = 1 To UBound(br)
            s = Replace(s, br(j, 1), br(j, 2))
        Next
        ar(i, 2) = Evaluate(s) & "分"
    Next
    [A1].CurrentRegion = ar
End Sub

gwjkkkkk

请参考。。。

吴中泉

参与一下，凑了一段

吴中泉

1. Sub 转换成分钟数()
   
2. For i = 2 To 10000
   
3.     If Cells(i, 1) = Empty Then Exit For
   
4.     Cells(i, 3) = 到分钟(Cells(i, 1))
   
5. Next
   
6. End Sub
   
7. 
   
8. Public Function 到分钟(m$)
   
9.     arr = Split(m, "小时")
   
10.     If Len(m) < 5 Then
    
11.         n = Val(m)
    
12.     ElseIf InStr(arr(0), "天") Then
    
13.         n = Val(arr(1))
    
14.         arr = Split(arr(0), "天")
    
15.         n = n + arr(0) * 1440 + arr(1) * 60
    
16.     Else
    
17.         n = arr(0) * 60 + Val(arr(1))
    
18.     End If
    
19.     到分钟 = n
    
20. End Function
    

复制代码

吴中泉

再分享一小段

吴中泉

1. Sub 转换成分钟数()
   
2.     For i = 2 To 10000
   
3.         If Cells(i, 1) = Empty Then Exit For
   
4.         Cells(i, 3) = 到分钟(Cells(i, 1))
   
5.     Next
   
6. End Sub
   
7. 
   
8. Public Function 到分钟(m$)
   
9.     For i = 1 To Len(m)
   
10.         s = Mid(m, i, 1)
    
11.         ss = ss & s
    
12.         If s = "天" Then
    
13.             n = Val(ss) * 1440
    
14.             ss = ""
    
15.         End If
    
16.         If s = "时" Then
    
17.             n = n + Val(ss) * 60
    
18.             ss = ""
    
19.         End If
    
20.         If s = "分" Then
    
21.             n = n + Val(ss)
    
22.             ss = ""
    
23.         End If
    
24.     Next
    
25.     到分钟 = n
    
26. End Function
    

复制代码