求VBA或者拆分函数

啊呀又

求大神帮忙~~

需求：想拆分连续日期的数据拆分为单独的一天一天的数据
举例子：假设员工申请出差信息为下表

开始日期	开始时间	结束日期	结束时间
2024-10-6	8:00	2024-10-8	18:00

如何拆分为：

开始日期	开始时间	结束日期	结束时间
2024-10-6	8:00	2024-10-6	18:00

2024-10-7

8:00

2024-10-7

18:00

2024-10-8

8:00

2024-10-8

18:00

有没有什么快捷方式，可以做到，求各位大神帮忙~~
在线等~

袁勇

结束日期-开始日期+1得出共需要几行，，

然后从开始日期+0，+1，+2..。+差数。

飞天篮球猪

仅供参考...

cnmlgb9998

Date.AddDays .............

我的城市你来过

=REDUCE(A1:D1,SEQUENCE(C2-A2+1,,0),LAMBDA(x,y,VSTACK(x,HSTACK(TEXT(A2+y,"yyyy-mm-dd"),"08:00",TEXT(A2+y,"yyyy-mm-dd"),"18:00"))))

quqiyuan

vba参与一下，仅供参考。。。

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    ReDim brr(1 To 1000, 1 To 4)
    n = 0
    For i = 0 To arr(2, 3) - arr(2, 1)
        n = n + 1
        brr(n, 1) = arr(2, 1) + i: brr(n, 3) = arr(2, 1) + i
        brr(n, 2) = arr(2, 2): brr(n, 4) = arr(2, 4)
    Next
    sht.[h1].CurrentRegion.Clear
    sht.[h1].Resize(, UBound(arr, 2)) = arr
    sht.[h2].Resize(n, UBound(arr, 2)) = brr
    sht.Range("i:i,k:k").NumberFormat = "h:mm"
    Beep
End Sub