筛选、去重、排序、有条件复制粘贴问题。急等！

zxsea_7426

不同的理解有不同的结果：
重点有两个：符合条件求和与求总和是否需要去重? 复制第三个要求又是否需要去重?

清风竹-

sampsonpon 发表于 2023-5-2 16:05
没有考虑到这一条：3、按顺序,有条件选取A列复制到E2:E(条件:当B列和值达到小于等于B列总和-5000即可,不 ...

请测试一下。

3190496160

2023050202.rar (27.8 KB, 下载次数: 4)

2023-5-2 21:51 上传

点击文件名下载附件

吴中泉

第三需求真得好难理解，不知这次理解的可对

1. 
   
2. Sub ssjss()
   
3. Dim arr, i, d, d1
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Set d1 = CreateObject("Scripting.Dictionary")
   
6. With Sheets("数据整合2").Range("a1").CurrentRegion '
   
7.     arr = .Value
   
8.     For i = 2 To UBound(arr)
   
9.         If arr(i, 12) = Empty Then
   
10.             d(arr(i, 2)) = arr(i, 7)  '
    
11.             d1(arr(i, 2)) = d1(arr(i, 2)) + 1 '
    
12.         End If
    
13.     Next
    
14.     With Sheets("TRC留5K")
    
15.     .[a1].CurrentRegion.Offset(1).ClearContents
    
16.     .[a2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
17.     .[b2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)
    
18.     .[c2].Resize(d1.Count, 1) = WorksheetFunction.Transpose(d1.items)
    
19.     .[a1].CurrentRegion.Sort Key1:=Range("C2"), Order1:=xlAscending
    
20.     brr = .UsedRange.Offset(1).Value
    
21.     '第三个需求不知理解的要对
    
22.     '意思就是：C列升序后，按从上往下顺序选取A列复制粘贴到E2，直到相应的B列和
    
23.     '到达B列总和减去5000为止,不足5000全选
    
24.     For i = 1 To UBound(brr)
    
25.         Bzh = Bzh + brr(i, 2) 'Bzh即B列总和
    
26.     Next
    
27.     For i = 1 To UBound(brr)
    
28.         Ljh = Ljh + brr(i, 2) 'Ljh即累加和
    
29.         If Ljh <= Bzh - 5000 Or Ljh < 5000 Then
    
30.             brr(i, 5) = brr(i, 1)
    
31.         End If
    
32.     Next
    
33.     .UsedRange.Offset(1) = brr
    
34.     End With
    
35.     Set d = Nothing
    
36.     Set d1 = Nothing
    
37. End With
    
38. End Sub
    

复制代码

sampsonpon

清风竹- 发表于 2023-5-2 21:01
请测试一下。

还是有欠缺，改了一下数据测试还是不对，再帮忙看看！

sampsonpon

3190496160 发表于 2023-5-2 21:51

还是有欠缺，就差那么一点点了，再帮忙看看！

sampsonpon

吴中泉 发表于 2023-5-2 22:12
第三需求真得好难理解，不知这次理解的可对

这里过不了，报错。1、2基本上没什么问题，只是1在写的时候把标题干掉了。

清风竹-

sampsonpon 发表于 2023-5-2 22:26
还是有欠缺，改了一下数据测试还是不对，再帮忙看看！

...................

3190496160

2023050202.rar (27.82 KB, 下载次数: 5)

2023-5-3 09:45 上传

点击文件名下载附件

吴中泉

sampsonpon 发表于 2023-5-2 23:31
这里过不了，报错。1、2基本上没什么问题，只是1在写的时候把标题干掉了。

这次应该对了，请用我上传的附件测试


20230502.rar (25.08 KB, 下载次数: 7)

2023-5-3 09:56 上传

点击文件名下载附件