1634651667782.mp4-Power Query M函数 批量合并各种不规则表格

热门回复：

• 老河HHH:Table.AddColumn(删除的列, "提取", each [a=List.PositionOf( Table.ToRows(【Data】),"表头1",0,(x,y)=>List.Contains(x,y) ), b=Table.PromoteHeaders(Table.Skip(【Data】,a) , 【PromoteAllScalars=true】), c=Table.SelectColumns(b,{"表头1", "表头2", "表头3", "表头4", "表头5", "表头6"})]【c】 )
• wanderchen:来了来了，辛苦了，孙老师。 1.找表头开始的行号 2.表的列表和名称列表连接之后再转表 3.展开需要的列。 pq真是太强大了，前提是得像孙老师一样熟练。
• 肉机机:Sub shishi() Set sh1 = Sheet1 最大列 = sh1.Cells(1, Columns.Count).End(xlToLeft).Column Set 工作簿 = Workbooks.Open("E:\文档\test.xlsx") For i = 1 To 最大列 表头 = sh1.Cells(1, i) Debug.Print 表头 For Each sh In 工作簿.Sheets 表名 = sh.Name Debug.Print 表名 Set Rng = sh.Cells.Find(表头, lookat:=xlWhole) If Not Rng Is Nothing Then 表头最大行 = sh.Cells(Rows.Count, Rng.Column).End(xlUp).Row 最大行2 = sh1.Cells(Rows.Count, i).End(xlUp).Row + 1 sh.Range(Rng.Offset(1, 0), sh.Cells(表头最大行, Rng.Column)).Copy sh1.Cells(最大行2, i) End If Next sh Next i 工作簿.Close End Sub
• DanmakuSTG:孙老师好！[doge]孙老师棒棒哒！[脱单doge]
• wanderchen:是的 这种在实际工作中 应该比较常见