如何计算不同门店两种配货状态下的累计天数

zpy2

秋艳 发表于 2022-3-19 10:29
还有木有大神可以指教下，着急ing，在线等，最终结果一定是要实现成E、F列的结果哈，不要怀疑业务逻辑有没 ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1558731&extra=&mobile=&_dsign=425673d9

楼上所言还是有道理的，建议你还是把逻辑理一下，那些事是电脑做，那些事是数据来源要规范的，基础打牢，才能盖高楼大厦。

hcm19522

E2=IF(C2=C$3,D2-LOOKUP(1,0/(B$1:B1=B2)/(C$1:C1=C$2),D$1:D1)+IFERROR(LOOKUP(1,0/(B$1:B1=B2)/(C$1:C1=C2),E$1:E1),),IFERROR(LOOKUP(1,0/(B$1:B1=B2)/(C$1:C1=C$3),E$1:E1),))

sobili

秋艳 发表于 2022-3-19 10:24
不是哈，要处理成E、F列这样的结果，要的是时间段间隔天数

楼主，根据其它帖子和个人理解，因为要满足的条件太多（门店是否相同，配货类型是否相同，配货类型相同时如何处理，不同时如何处理），所以我用VBA重新做了个附件。看下是你要的效果吗？ 累计天数.rar (18.75 KB, 下载次数: 2)

2022-3-20 12:52 上传

点击文件名下载附件

希望对你有帮助。

秋艳

sobili 发表于 2022-3-20 12:53
楼主，根据其它帖子和个人理解，因为要满足的条件太多（门店是否相同，配货类型是否相同，配货类型相同时 ...

好的，我看看结果，谢谢哈

秋艳

hcm19522 发表于 2022-3-19 16:31
E2=IF(C2=C$3,D2-LOOKUP(1,0/(B$1:B1=B2)/(C$1:C1=C$2),D$1:D1)+IFERROR(LOOKUP(1,0/(B$1:B1=B2)/(C$1:C1=C ...

好的，我看看结果，谢谢哈

秋艳

sobili 发表于 2022-3-20 12:53
楼主，根据其它帖子和个人理解，因为要满足的条件太多（门店是否相同，配货类型是否相同，配货类型相同时 ...

你好，你的结果是正确的，请问代码可以提供下吗

sobili

秋艳 发表于 2022-3-22 15:01
你好，你的结果是正确的，请问代码可以提供下吗

1. Sub aa()
   
2. Dim i, irow As Integer '定义i,irow变量为Integer类型
   
3. irow = Range("a65536").End(xlUp).Row 'irow表示一共有多少行数据
   
4. 
   
5. Range("e2:f" & irow).ClearContents '清空e:f天数中内容
   
6. '循环每一条记录
   
7. For i = 2 To irow
   
8.    
   
9.     If Range("a" & i) <> Range("a" & i - 1) Then '判断门店名称是否不同
   
10.         Range("e" & i) = 0
    
11.         Range("f" & i) = 0
    
12.         e = 0: f = 0
    
13.         GoTo 100
    
14.     End If
    
15.    
    
16.     If Range("c" & i) = "暂停配货" And Range("c" & i) <> Range("c" & i - 1) Then '判断 Range("c"&i) 的值是否是"暂停配货"且满足 Range("c"&i)<>Range("c"&i-1)。
    
17.         e = Range("e" & i - 1)
    
18.         Range("e" & i) = e
    
19.         f = Range("d" & i) - Range("d" & i - 1)
    
20.         Range("f" & i) = f + Range("f" & i - 1)
    
21.     End If
    
22.    
    
23.     If Range("c" & i) = "暂停配货" And Range("c" & i) = Range("c" & i - 1) Then '判断 Range("c"&i) 的值是否是"暂停配货"且满足 Range("c"&i)=Range("c"&i-1)。
    
24.         e = Range("d" & i) - Range("d" & i - 1)
    
25.         Range("e" & i) = e + Range("e" & i - 1)
    
26.         f = Range("f" & i - 1)
    
27.         Range("f" & i) = f + Range("f" & i)
    
28.     End If
    
29.    
    
30.     If Range("c" & i) = "开通配货" And Range("c" & i) <> Range("c" & i - 1) Then '判断 Range("c"&i) 的值是否是"开通配货"且满足 Range("c"&i)<>Range("c"&i-1)。
    
31.         e = Range("d" & i).Value - Range("d" & i - 1).Value
    
32.         Range("e" & i) = e + Range("e" & i - 1)
    
33.         f = Range("f" & i - 1)
    
34.         Range("f" & i) = f + Range("f" & i)
    
35.     End If
    
36.    
    
37.     If Range("c" & i) = "开通配货" And Range("c" & i) = Range("c" & i - 1) Then '判断 Range("c"&i) 的值是否是"开通配货"且满足 Range("c"&i)=Range("c"&i-1)。
    
38.         e = Range("e" & i - 1)
    
39.         Range("e" & i) = e
    
40.         f = Range("d" & i) - Range("d" & i - 1)
    
41.         Range("f" & i) = f + Range("f" & i - 1)
    
42.     End If
    
43. 100:
    
44.     again = 1
    
45.    
    
46. Next i
    
47. 
    
48. End Sub
    

复制代码