powerquery，重复项保留前X行怎么操作呢

镜月晶风

按照索引升序，jqtxl降序的排序结果，每一个分析项保留前200个。 例子.zip (426.25 KB, 下载次数: 23)

2020-3-10 15:28 上传

点击文件名下载附件

镜月晶风

我知道的蠢办法是可以引用针对每个分析项筛选出来保留前200行再追加到一个表里，但是分析项越多，要引用的分表就越多，太复杂了，excel本身到时候好判断操作，但是powerquery没有思路不知道怎么处理方便

wbperfect

1. Sub test()
   
2. Dim rng As Range, slc As Range
   
3. i = Range("c" & Rows.Count).End(xlUp).Row
   
4. Set slc = Range("c2:c" & i)
   
5. For Each rng In slc
   
6. num = WorksheetFunction.CountIf(slc, rng)
   
7. If num >= 200 Then
   
8. arr = Sheets("源数据").Range("A2:C201")
   
9. Else
   
10. arr = Sheets("源数据").Range("A2:C" & num + 1)
    
11. End If
    
12. Sheets.Add after:=Sheets(Sheets.Count)
    
13. [a1] = "分析": [b1] = "jqtxl": [c1] = "索引"
    
14. ActiveSheet.[A2].Resize(UBound(arr), 3) = arr
    
15. ActiveSheet.Name = ActiveSheet.Cells(2, 3)
    
16. Sheets("源数据").Rows("2:" & num + 1).Delete
    
17. Next
    
18. End Sub

复制代码

wbperfect

+++++++附件参考，做好数据备份

镜月晶风

wbperfect 发表于 2020-3-10 18:00
+++++++附件参考，做好数据备份

十分感谢，我试试看

一意孤行

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="模板_销量"]}[Content],
   
3.     排序 = Table.Sort(源,{"jqtxl", 1}),
   
4.     分组提取 = Table.Combine(Table.Group(排序, {"分析"}, {"x", each Table.FirstN(_,200)})[x]),
   
5.     重排 = Table.Sort(分组提取,{{"分析", 0}, {"jqtxl", 1}})
   
6. in
   
7.     重排

复制代码

镜月晶风

一意孤行 发表于 2020-3-10 23:01

好厉害，简单实用，我要学习思考下