根据相邻日期合并单元格问题

稻草人君君

sj15627581616

qi'le 奇了怪了

稻草人君君

sj15627581616 发表于 2024-12-17 15:42
qi'le奇了怪了

帮忙再试试

sj15627581616

稻草人君君 发表于 2024-12-17 15:52
帮忙再试试

如果基于你的合并单元格来操作，函数就足够了，从数据来看，应该是两个时间为一车，而不是周几+周几这个说法

稻草人君君

是的 每两个日期为1车

chxw68

从上到下每两个日期为1车，结果与楼主模拟的有出入。

sj15627581616

1. Type aa
   
2.     start As Long
   
3.     end As Long
   
4.     count As Byte
   
5.     sum As Long
   
6. End Type
   
7. Sub test()
   
8.     Dim a As aa
   
9.     arr = Range("a1").CurrentRegion
   
10.     a.count = 2 '初始化总数2
    
11.     a.start = 1 '初始化起点1
    
12.     For i = 2 To UBound(arr)
    
13.         If arr(i, 1) <> arr(i - 1, 1) Then
    
14.             a.count = a.count + 1
    
15.             If a.count = 3 Then
    
16.                 a.count = 1
    
17.                 a.end = i - 1
    
18.                 If a.end > 1 Then
    
19.                     Range(Cells(a.start, 5), Cells(a.end, 5)).Merge
    
20.                     Cells(a.start, 5) = a.sum
    
21.                     a.sum = 0
    
22.                 End If
    
23.                 a.start = i
    
24.             End If
    
25.         End If
    
26.         a.sum = a.sum + arr(i, 4)
    
27.     Next
    
28. End Sub
    

复制代码

默认E列是取消单元格的状态

sj15627581616

代码审核中

稻草人君君

chxw68 发表于 2024-12-17 16:29
从上到下每两个日期为1车，结果与楼主模拟的有出入。

谢谢 确实不一样 主要是两个日期为1车是大部分情况 还有个条件就是1周内发2车 如果不在一个周内的话则需要合并至上个周末尾

稻草人君君

sj15627581616 发表于 2024-12-17 16:35
代码审核中

谢谢 才发现不是简单两个日期合并为1车 还有个条件就是在1周内