A question about excel vba

tsvictor

An excel column stores such data as 5:00, 6:00, 7:20, 12:30 and so on. It actually represents time. Now I want to convert all these data into seconds. For example, 7:20 is 7 hours and 20 minutes, which is 7 * 3600 + 20 * 60, please give vba code, thank you! I don't know what function to use to take the substring

sosobaby

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

星空再现

If column A stores the above data:
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