怎样将总表中的每一行数据，导出到一个独立的工作表？

dg199410

详见附件和图片，谢谢。

css207

我上次遇到一个类似的问题，是写代码解决的，几百个sheet，很快

gwjkkkkk

请参考。。。

quqiyuan

用PQ啊，几行M函数就搞定。供参考

1. let
   
2.     源 = Excel.Workbook(File.Contents("E:\1112222\分表.xlsx"), null, true),
   
3.     a=List.Transform(源[Data],each
   
4.     let
   
5.         源 = Table.Skip(_,2),
   
6.         筛选的行 = Table.FromRows(List.Transform(List.Zip(List.Split(Table.ToRows(Table.SelectRows(源,
   
7.                 each ([Column1] <> "1、药物控制及预防" and [Column1] <> "三、现有预防措施" and
   
8.                 [Column1] <> "二、职业禁忌症备案"))),2)),each List.Combine(_))),
   
9.         转置表 = Table.Transpose(筛选的行),
   
10.         筛选的行1 = Table.SelectRows(转置表, each ([Column1] <> null)),
    
11.         转置表1 = Table.Transpose(筛选的行1),
    
12.         提升的标题 = Table.PromoteHeaders(转置表1, [PromoteAllScalars=true])
    
13.     in
    
14.         提升的标题
    
15.                     ),
    
16.     b=Table.Combine(a)
    
17. in
    
18.     b

复制代码

walkermen

学习了，Transpose没用过

dg199410

gwjkkkkk 发表于 2023-8-26 21:23
请参考。。。

大神啊！完美解决问题！谢谢你啦