Excel VBA数字到时间

我有以下格式给我的时间

0 
30
145
1310
2115
43015
110015

我需要将它们格式化为以下格式

00:00:00
00:00:30
00:01:45
00:13:10
00:21:15
04:30:15
11:00:15

我目前正在通过将HH、MM和SS拆分成一个表，然后使用=时间（HH:MM:SS）组合在一起来实现这一点

有人能推荐一个宏来执行此操作吗？时间和日期，我现在得到的是20141122，我在VBA中以同样的方式拆分，简单地说：

time_string = format$(time_int, "00:00:00")

考虑：

Public Function TeTime(r As Range) As Date
    t = r.Text
    l = Len(t)
    t2 = Application.WorksheetFunction.Rept("0", 6 - l) & t
    TeTime = TimeSerial(Left(t2, 2), Mid(t2, 3, 2), Right(t2, 2))
End Function

例如：

---

您当前的方法有什么问题？我希望将此信息反馈给团队，我不希望他们弄乱表格或错误地剪切和粘贴数据-总体计划是将其集成到宏中，并为他们生成一个文件-将此文件作为一个黑匣子，他们不会触摸或编辑