[已解决]求救,.按B列时间段(30分钟)分类,我方30分钟,.对方30分钟.依次类推,求大神帮助

756082@qq.com

1,按B列时间段(30分钟)分类,我方30分钟,.对方30分钟.依次类推,
2,提取出来的数据在本表或者新建都可以.按照K-AA
3,如果时间可以自己选择时间段或者时间更好,时间会有变动的,每天会变动,.!
4.L列的时间段黄色标记(8.30-9.00，9.30-10.00) 不呈现在数据里,

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-21 21:25

Sub demo()
   unit = 30 / 1440
   Range("k:q,t:z") = ""
   Dim r(1)
   For i = 2 To [a1].End(4).Row
      t = Application.Floor(Cells(i, 2), unit)
      If t <> pt Then
         f = 1 - f
         r(f) = r(f) + 1
         c = IIf(f, "k", "t")
         Cells(r(f), c) = Format(t, "hh:mm") & "-" & Format(t + unit, "hh:mm")
         pt = t
      End If
      r(f) = r(f) + 1
      Cells(r(f), c).Resize(1, 7) = Cells(i, 2).Resize(1, 7).Value
   Next
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   unit = 30 / 1440
   Range("k:q,t:z") = ""
   Dim r(1)
   For i = 2 To [a1].End(4).Row
      t = Application.Floor(Cells(i, 2), unit)
      If t <> pt Then
         f = 1 - f
         r(f) = r(f) + 1
         c = IIf(f, "k", "t")
         Cells(r(f), c) = Format(t, "hh:mm") & "-" & Format(t + unit, "hh:mm")
         pt = t
      End If
      r(f) = r(f) + 1
      Cells(r(f), c).Resize(1, 7) = Cells(i, 2).Resize(1, 7).Value
   Next
End Sub

祝順心，南無阿彌陀佛！

cutecpu

我方跟對方，要怎麼區別呢？

756082@qq.com

cutecpu 发表于 2021-6-21 21:32
我方跟對方，要怎麼區別呢？

时间区分就可以了.8.30-9.00  我方或者对方，   9.30-10.00 我方      10.30-11.00 对方，。

756082@qq.com

cutecpu 发表于 2021-6-21 21:32
我方跟對方，要怎麼區別呢？

大神.! 您都没附件..!

756082@qq.com

cutecpu 发表于 2021-6-21 21:32
我方跟對方，要怎麼區別呢？

因为我们公司和对方公司有合作竞争, 每个公司半给小时的业务量,.所以只能半个小时区分我们和对方的数据.,.

cutecpu

756082@qq.com 发表于 2021-6-21 22:16
因为我们公司和对方公司有合作竞争, 每个公司半给小时的业务量,.所以只能半个小时区分我们和对方的数据., ...

日期是不是可以省略？
我看日期好像都一樣！

756082@qq.com

cutecpu 发表于 2021-6-22 01:02
日期是不是可以省略？
我看日期好像都一樣！

可以省略,就需要时间分段.30分钟.,

756082@qq.com

cutecpu 发表于 2021-6-21 21:25
Sub demo()
   unit = 30 / 1440
   Range("k:q,t:z") = ""

谢谢大神,@!

756082@qq.com

cutecpu 发表于 2021-6-22 01:02
日期是不是可以省略？
我看日期好像都一樣！

亲.,时间自定义可以么.因为个别时候对方休息,  您这个我试了.,好像改不了时间.,又自动默认了