一堆数据中按照某些列名要求取部分行

kenese

在数据源中一堆数据中按照"区域"，"站点"，"等待天数从大到小"排序且只取前十行数, 小于十行的按照顺序全部取， 且以站点空白一行。


目标sheet”期望“

cnmlgb9998

是这个效果吗？


用PQ解决，难道不香么？？？？？？？？

rysxing

有点繁琐，试试！

ykcbf1100

参与一下。。。

ykcbf1100

分块处理。。。

1. Sub ykcbf()    '//2024.8.19
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("数据源")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 6)
   
6.     End With
   
7.     For i = 2 To UBound(arr)
   
8.         s = arr(i, 3)
   
9.         If Not d.exists(s) Then
   
10.             d(s) = Array(i, i)
    
11.         Else
    
12.             t = d(s)
    
13.             t(1) = i
    
14.             d(s) = t
    
15.         End If
    
16.     Next
    
17.     With Sheets("期望")
    
18.         .UsedRange.Offset(1).ClearContents
    
19.         m = 1
    
20.         For Each k In d.keys
    
21.             r1 = d(k)(0): r2 = d(k)(1)
    
22.             n = r2 - r1 + 1
    
23.             n = IIf(n > 10, 10, n)
    
24.             For i = r1 To r1 + n - 1
    
25.                 m = m + 1
    
26.                 For j = 1 To UBound(arr, 2)
    
27.                     .Cells(m, j) = arr(i, j)
    
28.                 Next
    
29.             Next
    
30.             m = m + 1
    
31.             r = .Cells(Rows.Count, 1).End(3).Row
    
32.             Set Rng = .Cells(r - n + 1, 1).Resize(n, 6)
    
33.             Rng.Sort Rng.Columns(5), 2
    
34.         Next
    
35.     End With
    
36.     Set d = Nothing
    
37.     MsgBox "OK！"
    
38. End Sub
    

复制代码

chxw68

练习。。。

无关岁月

副本test.7z (20.02 KB, 下载次数: 3)

2024-8-19 08:04 上传

点击文件名下载附件

chxw68

ykcbf1100 发表于 2024-8-19 07:19
分块处理。。。

你好像没有考虑数据按“等待天数”排序问题。

zxsea_7426

ykcbf1100 发表于 2024-8-19 07:19
分块处理。。。

你这没有按排序列取前10

我原表加了黄底色数据 ，左侧代码跑出来的结果，右侧手工排序结果

liulang0808

供参考。。。。。