需要 Excel 宏来实现小时（时间）的空格应为“00”

Question

我正在从文本文件导入数据并使用宏在 Excel 中格式化。它可以识别并格式化时间 (hh:mm:ss) - 除了例如 00:15:27 - 数据会完全删除 hh 中的 0，然后我的宏会将 mm:ss 识别为 hh:mm。我跟踪 24 小时的数据 - 因此当午夜时分，我会丢失数据中的小时，例如可能会出现奇怪的 53:02:00 小时，或者我可能会出现 10:43:00 - 认为是 10 点而不是 00:10:43。

有什么方法可以让宏识别出那里应该有某些东西并将其更改为 OO？

谢谢。

Answer 1

假设我们有文本中的值A1通过A10喜欢：

我们希望所有 5 个字符的数据都被视为00：在他们面前。我们可以测试长度：

Sub MakeTime()
    Dim r As Range, v As String
    For Each r In Range("A1:A10")
        v = r.Text
        If Len(v) = 5 Then v = "00:" & v
        r.Value = TimeValue(v)
    Next r
End Sub

结果：