excel - 以 1 小时为间隔分割时间范围

Question

想要将时间范围分割为 1 小时间隔

将单元格 A2 和 A3 中的给定时间范围拆分为 1 小时间隔，时间范围将更改几个时间，并且在(宏)单击时应将给定时间范围拆分为 1 小时间隔。

Answer 1

创建每小时序列

Sub CreateHourlySequence()

    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    Dim dt1: dt1 = ws.Range("A2").Value
    Dim dt2: dt2 = ws.Range("A3").Value
    
    Dim dfCell As Range: Set dfCell = ws.Range("C2")
    dfCell.Resize(ws.Rows.Count - dfCell.Row + 1).ClearContents

    Select Case False
        Case IsDate(dt1), IsDate(dt2): Exit Sub
    End Select
    
    Dim dtDiff As Long: dtDiff = DateDiff("h", dt1, dt2)
    
    Dim dtStart As Date, dStep As Long
    
    Select Case dtDiff
        Case Is > 0: dtStart = dt1: dStep = 1
        Case Is < 0: dtStart = dt2: dStep = -1
    End Select
    
    Dim rCount As Long: rCount = Abs(dtDiff) + 1
    Dim Data() As Date: ReDim Data(1 To rCount, 1 To 1)
    
    Dim d As Long, r As Long
    
    If dStep = 0 Then
        Data(1, 1) = dtStart
    Else
        For d = 0 To dtDiff Step dStep
            r = r + 1
            Data(r, 1) = DateAdd("h", d, dtStart)
        Next d
    End If
    
    dfCell.Resize(rCount).Value = Data
    
End Sub