纵向变横向，并将数据按时间倒推计算

abc123qqq

shiruiqiang 发表于 2024-5-14 22:01
看是看懂了，需要花时间。近期在复习社会工作考试

烦请抽时间帮忙完善，我请你吃鸡腿

saghj

第一步
Sub test()
  Dim i&, j&, arr
  arr = Sheets("排产产能计算").[a1].CurrentRegion
  For i = 2 To UBound(arr)
    For j = 10 To UBound(arr, 2)
      If Hour(arr(i, 9)) = Hour(arr(1, j)) Then
        arr(i, j) = arr(i, 4)
      End If
    Next j
  Next i
  Sheets("排产产能计算").[a1].CurrentRegion = arr
End Sub
第二步没看懂

shiruiqiang

第二步，就是整列求和不能超过最底下的总数，超过了，把超过的余量调整到开始时间段。
这点需要花费点时间，因为可能碰到各种情况，lz的例子未体现：如多行超出，最后超出等等