基于Excel Macro实现指定时间范围按1小时间隔拆分

下面是直接可用的VBA宏代码，能自动读取A2（起始时间）和A3（结束时间）的时间范围，按1小时间隔拆分后输出到A5开始的单元格区域，每次改完A2/A3的时间，点宏就能重新拆分。

Sub SplitTimeByHour()
    Dim startTime As Date, endTime As Date
    Dim currentTime As Date
    Dim outputRow As Integer
    
    ' 读取A2和A3的时间值
    startTime = Range("A2").Value
    endTime = Range("A3").Value
    
    ' 校验时间逻辑，起始不能晚于结束
    If startTime >= endTime Then
        MsgBox "起始时间必须比结束时间早！", vbExclamation
        Exit Sub
    End If
    
    ' 清空之前的拆分结果（从A5开始到A列最后一行）
    Range("A5:A" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 从第5行开始输出拆分后的时间
    outputRow = 5
    currentTime = startTime
    
    ' 按1小时步长循环生成时间
    Do While currentTime <= endTime
        Cells(outputRow, "A").Value = currentTime
        ' 设置单元格显示为时间格式，可按需调整
        Cells(outputRow, "A").NumberFormat = "hh:mm:ss"
        currentTime = DateAdd("h", 1, currentTime)
        outputRow = outputRow + 1
    Loop
    
    MsgBox "时间拆分搞定！", vbInformation
End Sub

使用步骤 #

• 打开Excel文件，按Alt + F11打开VBA编辑器
• 右键左侧的工作簿名称，选「插入」→「模块」
• 把上面的代码粘贴到模块窗口里
• 返回Excel，点「开发工具」→「宏」，选中SplitTimeByHour执行；嫌麻烦的话可以给宏加个快速访问工具栏按钮，点一下就触发

自定义调整 #

• 要改输出位置？把代码里的outputRow = 5换成你想要的行号就行
• 想显示日期+时间？把NumberFormat的值改成"yyyy-mm-dd hh:mm"
• 宏会自动清空上次的拆分结果，不用担心数据重叠

内容的提问来源于stack exchange，提问作者Adnan