小时级时间序列转15分钟级的VBA代码错误调试求助

原代码的关键错误 #

• 循环逻辑混乱：三层嵌套循环（j_Output→i_Input→Minute_currentDate）导致重复遍历输入行，时间生成逻辑重复且错误
• 变量类型错误：Minute_currentDate被定义为Date类型，但它应该是表示分钟增量的整数
• 时间累加错误：每次累加的是Minute_currentDate的当前值（0、15、45），而非固定的15分钟，导致时间跳变（比如00:00→00:00→00:15→00:45→01:30...）
• 冗余计算：LngFirstRow = LngRowMax - (LngRowMax - 1)完全多余，直接取第一行即可；Last_i_Input和LngRowMax重复计算输入的最后一行

修正后的代码 #

方法1：基于输入的每个小时生成对应15分钟时间点 #

这种方法会严格对应输入的每个小时，生成该小时内的4个15分钟间隔时间：

Sub hTo15Minutes_Fixed()
    Dim inputRange As Range
    Dim outputCell As Range
    Dim inputRow As Range
    Dim currentHour As Date
    Dim minuteOffset As Integer
    
    ' 设置输入输出范围
    Set inputRange = Sheet2.Range("A1:A8760")
    Set outputCell = Sheet2.Range("B1") ' 从B1开始输出
    
    ' 遍历每个输入的小时时间
    For Each inputRow In inputRange
        currentHour = inputRow.Value
        ' 生成当前小时的0、15、30、45分四个时间点
        For minuteOffset = 0 To 45 Step 15
            outputCell.Value = currentHour + TimeSerial(0, minuteOffset, 0)
            Set outputCell = outputCell.Offset(1, 0) ' 移动到下一个输出单元格
        Next minuteOffset
    Next inputRow
    
    ' 设置输出列的日期时间格式（可选，确保显示正确）
    Sheet2.Range("B1:B35040").NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

方法2：直接从起始时间生成连续15分钟序列 #

如果输入是完整的全年小时数据（无缺失），可以直接从起始时间开始，每次加15分钟直到结束时间的23:45：

Sub Generate15MinuteSequence()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim outputCell As Range
    
    ' 获取起始和结束时间
    startDate = Sheet2.Range("A1").Value
    endDate = Sheet2.Range("A8760").Value + TimeSerial(0, 45, 0) ' 结束时间为最后一个小时的23:45
    
    Set outputCell = Sheet2.Range("B1")
    currentDate = startDate
    
    ' 生成连续的15分钟时间点
    Do While currentDate <= endDate
        outputCell.Value = currentDate
        Set outputCell = outputCell.Offset(1, 0)
        currentDate = currentDate + TimeSerial(0, 15, 0) ' 每次加15分钟
    Loop
    
    ' 设置日期时间格式
    Sheet2.Range("B1:B35040").NumberFormat = "dd.mm.yyyy hh:mm:ss"
End Sub

代码说明 #

• 两种方法都能生成你需要的连续15分钟时间序列
• 方法1更灵活，即使输入的小时序列有缺失，也能对应生成每个存在的小时的15分钟点
• 方法2效率更高，适合输入序列完整的情况
• 最后设置NumberFormat确保输出的时间格式和输入一致

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