怎么根据条件汇总条件范围内数据后且只保留特定条件行

admin122333

怎么根据条件汇总条件范围内数据后且只保留特定条件行

心的启点

你这逻辑关系的描述看不懂，你看下怎么重新组织一下描述，要大家能看得懂才行。

心的启点

下载看了一下，你这描述的逻辑关系看不懂啊，你看下怎么样重新把逻辑关系描述清楚，要大家能看得懂才行，实在不行你就做个模拟表根据什么关系，要达到什么样的效果。
还有你这料号还会增加吗？你现在写的料号就是实际料号吗？你这A1、B1、C1或D1都是从下往下第一个出现吗？

ykcbf1100

附件供参考。。。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.2.23
   
2.     Dim arr, brr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     b = [{"A1","B1","C1"}]
   
5.     Dim zrr(1 To 3, 1 To 1)
   
6.     With Sheets("Sheet1")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         arr = .Range("a1:c" & r)
   
9.         For i = 2 To UBound(arr)
   
10.             st = arr(i, 1)
    
11.             For x = 1 To UBound(b)
    
12.                 If st = b(x) Then s = b(x): zrr(x, 1) = arr(i, 2)
    
13.                 If Left(st, 1) = Left(b(x), 1) Then s = b(x)
    
14.             Next
    
15.             d(s) = d(s) + arr(i, 3)
    
16.         Next
    
17.         .[g2:i1000] = ""
    
18.         .[g2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
19.         .[h2].Resize(3, 1) = zrr
    
20.         .[i2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)
    
21.     End With
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

心的启点

ykcbf1100 发表于 2024-2-23 17:06
附件供参考。。。

草爷：他这个描述不清楚，你这样做的就是固定了A1~C1。如果再增加个D1或E1等，就没有办法了。所以我才在上面问他的。结果没有回复哦。

ykcbf1100

心的启点 发表于 2024-2-23 17:34
草爷：他这个描述不清楚，你这样做的就是固定了A1~C1。如果再增加个D1或E1等，就没有办法了。所以我才在 ...

言之有理。。。

admin122333

心的启点 发表于 2024-2-23 16:12
下载看了一下，你这描述的逻辑关系看不懂啊，你看下怎么样重新把逻辑关系描述清楚，要大家能看得懂才行，实 ...

老师您好，是我描述不清楚，是这样：在表一A列这边的数据池，如符合表二的替代条件则汇总合并，像B1，有B2,B3是符合条件，就汇总并删除B2、B3，只保留B1行且数量是B1、B2、B3的总和。数据有D1 E1 不符合则保留。效果如表一的G列这边，如新增D1 E1在表二不符合条件则数据保留下来。

admin122333

老师您好，是我描述不清楚，是这样：在表一A列这边的数据池，如符合表二的替代条件则汇总合并，像B1，有B2,B3是符合条件，就汇总并删除B2、B3，只保留B1行且数量是B1、B2、B3的总和。数据有D1 E1 不符合则保留。效果如表一的G列这边，如新增D1 E1在表二不符合条件则数据保留下来。

ykcbf1100

admin122333 发表于 2024-2-23 19:34
老师您好，是我描述不清楚，是这样：在表一A列这边的数据池，如符合表二的替代条件则汇总合并，像B1，有B ...

求助时为啥不多说几句呢？你这白白浪费时间啊。