怎么据时长分配开始和结束时间？

1042271867

各位老师：请教，怎么据时长（多少小时），分配开始和结束时间，如附件中：E列的小时，想得到 这个时间的开始时间 （G列） 和 结束时间（H列），这个“开始时间”和“结束时间”，只能在2个时间段内 取（某天的上午7时至12时，下午12时到6时），且一天只能取一个时间段，也就是E列的这个时长，每一个只能取某一天中其中一个时间段，且日期不重复，谢谢各位老师啦。

冰封气流

这是VBA交流区，好歹懂点技术，大家来交流，而不是直接发个文件找免费劳力，这种建议直接淘宝，会包你满意的

lcluck2002

经过2楼的提醒，为了避免楼主有白嫖之嫌，仅给个思路吧：
你得确定一个日期时间段，利用随机数+字典或数组取得一系列不重复的日期。
然后，仍然是用随机数，取一定范围内（7-12时及0-6时）的时间值，组合成一个datetime值。
然后，在此值的基础上加上辅助列的时长转化为日期时间的值，作为结束时间
相信以楼主的在本坛的级别，将上述操作转化为代码应该没问题。

听歌的海

假设全年无休


Sub 随机时间()

Dim arr(1 To 1000), brr(1 To 1000)

myname = ActiveSheet.Name
Set mysh = Worksheets(myname)
Set d = CreateObject("scripting.dictionary")

'随机日期

For x = 1 To 1000
    rq = Int((31 - 1 + 1) * Rnd + 1)
    mon = Int((12 - 1 + 1) * Rnd + 1)
    s = VBA.DateSerial(2024, mon, rq)
    If Not d.exists(s) Then
        k = k + 1
        d(s) = k
        t = d.keys
    End If
Next x

'随机时间

For mydate = 1 To UBound(t) + 1
arr(mydate) = TimeSerial(Int(((12 - 7 + 1) * Rnd) + 7), Int((59 - 1 + 1) * Rnd) + 1, "00")
Next mydate

'组合
myarr = mysh.UsedRange
xh = mysh.Range("a65536").End(xlUp).Row
mysh.Range("g2").Resize(UBound(myarr), 2).NumberFormatLocal = "yyyy-mm-dd hh:mm:ss;@"
For j = 2 To UBound(myarr)
    If myarr(j, 5) <> "" Then
        brr(j - 1) = t(j - 2) & "  " & arr(j - 1)
        mysh.Range("g" & j) = brr(j - 1)
    End If
    If j > xh Then Exit For
Next j


End Sub