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

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

我正在从文本文件导入数据并使用宏在 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?

谢谢。

答案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

结果:

在此处输入图片描述

相关内容