一个关于excel vba的问题

tsvictor

excel的一列存放着这样的数据5:00,6:00,7:20,12:30等等这样的数据，其实是表示时间的，现在想把所有这些数据转化成秒，比如7:20就是7小时20分钟，也就是7*3600+20*60，请给出vba代码，多谢！不知道取子串用什么函数

sosobaby

Dim a
a = Split(Cells(1, 1), ":")
secondtime = 3600 * a(0) + 60 * a(1)
MsgBox secondtime

星空再现

假如A列存放上述数据：
Sub Zhuanhua()
    Dim i As Integer
    For i = 1 To [a1].End(xlDown).Row
        Cells(i, 1).Offset(0, 1) = Hour(Cells(i, 1)) * 3600 + Minute(Cells(i, 1)) * 60 + Second(Cells(i, 1))
    Next
End Sub