如何把“张三”、“李四”、“王五”工作表内容汇总到“资料汇总”表中

ygccsw

如何把“张三”、“李四”、“王五”工作表内容汇总到“资料汇总”表中

满坛皆为吾师

仅打开汇总表

1. Sub g()
   
2.     p = ThisWorkbook.Path & "": Set w = ThisWorkbook: Set s = w.Sheets(1)
   
3.     f = Dir(p & "资料-*.xlsx")
   
4.     r = 3
   
5.     Do While f <> ""
   
6.         If f <> w.Name Then
   
7.             Set x = Workbooks.Open(p & f): Set y = x.Sheets(1)
   
8.             For i = 3 To Application.Min(y.Cells(y.Rows.Count, 1).End(xlUp).Row, 99)
   
9.                 If WorksheetFunction.CountA(y.Rows(i)) > 0 Then y.Rows(i).Copy s.Rows(r): r = r + 1
   
10.             Next i
    
11.             x.Close False
    
12.         End If
    
13.         f = Dir
    
14.     Loop
    
15. End Sub

复制代码

Excel_muke

用Power Query进行合并

1.将要合并的文件放入文件夹，数据-获取数据-自文件-从文件夹

2.组合-合并并转换数据

3.按我的附件右边的步骤进行数据处理，完成后关闭并上载即可

4.之后还有相同格式的文件想要合并可以直接放到文件夹中，右键表格刷新就可以自动合并

wp231957

要想用公式的话  最好还是把子表都归拢到一个xlsx里面 变成一对多sheet

ygccsw

wp231957 发表于 2024-9-26 14:57
要想用公式的话  最好还是把子表都归拢到一个xlsx里面 变成一对多sheet

那公式能给我下一下吗？

你是那块小饼干

PQ操作更方便

逐渐陌生

袁勇

郭小坤

python:往对应的文件夹内添加数据会自动合并：

1. import xlrd,os,xlwt
   
2. nwb = xlwt.Workbook('utf-8');nws = nwb.add_sheet('汇总表')
   
3. files = os.listdir('资料汇总需求')
   
4. num, row_num = 0, 2
   
5. [nws.write(1, a, b) for a,b in [[0,'流水号'],[1,'订单号'],[2,'工号'],[3,'姓名'],[4,'特征码'],[5,'项目投入工时'],[6,'当月总工时']]]
   
6. [nws.write(0, k, n) for k,n in [[5,'本月应出席天数'],[6,22]]]
   
7. for file in files:
   
8.     wb = xlrd.open_workbook('资料汇总需求/'+ file)
   
9.     for ws in wb.sheets():
   
10.         for x in tuple(ws.get_rows())[2:]:
    
11.             for y in x:
    
12.                 val = y.value
    
13.                 nws.write(row_num,num,val)
    
14.                 print(row_num,num,val)
    
15.                 num += 1
    
16.             row_num += 1
    
17.             num = 0
    
18. nwb.save('demo1.xls')

复制代码

郭小坤