如何快速处理整列数据的时间

ykcbf1100

swjia8315 发表于 2024-6-25 08:05
附件已附上。
代码我复制进去运行，报这个错

没有附件就无法调试，所以就会出现不可预知的问题。

改好了。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.25
   
2.     On Error Resume Next
   
3.     With Sheets("Sheet1")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 2)
   
6.         For i = 81 To UBound(arr)
   
7.             st = Split(arr(i, 1), "小时")
   
8.             arr(i, 2) = Val(st(0)) * 60 + Val(st(1))
   
9.         Next
   
10.         .[a1].Resize(r, 2) = arr
    
11.     End With
    
12.     MsgBox "OK！"
    
13. End Sub
    
14. 
    

复制代码

沈默00

swjia8315 发表于 2024-6-25 08:08
不知为何报错

EXCEL版本不够吧，，365函数