一个关于excel vba的有关问题

一个关于excel vba的问题excel的一列存放着这样的数据5:00,6:00,7:20,12:30等等这样的数据，其实是表示时间的，现在想把所有这些数据转化成秒，比如7:20就是7小时20分钟，也就是7*3600+20*60，请给出vba代码，多谢！不知道取子串用什么函数——解决方案——————————————————–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 谁说的，人非要快乐不可，好像快乐由得人选择。