多个表头不同文件如何合并成一个文件 ，找了一圈没适合的帖子

ttcttyn

本来还有很多表，但是这个月还没完所以就这么多个
每天产生的文件标题头不同，但都包含某一字段，处于不同的列
如图





想要合并这些表格，并且按字段处于相应的列上，如下图


用插件合并过，但是只能全固定表头的才行。
想要的效果里复制汇总了3天的数据，怎么快速合并。

Mapleaf12138

定义一个可变二维数组，每个表的数组对应的插入到里面，最后赋值到新表

ttcttyn

Mapleaf12138 发表于 2018-10-18 21:21
定义一个可变二维数组，每个表的数组对应的插入到里面，最后赋值到新表

小白不是很懂，能上个附件吗，谢谢了

ww87725244

什么是合适的？都是具体问题具体分析啊，肯定找不到现成的代码
看情况明显是字典的事，建议学习蓝版的字典贴

minren118

没细看楼主的合并需求，但目前我在Excel催化剂上做出来的合并工作薄功能是目前市面上最灵活的、能满足绝大部分的场景包括一些不规范的数据源都可胜任，有兴趣可了解下。

小花鹿

其实很简单，一个字典就够了                                                                                            

ttcttyn

小花鹿 发表于 2018-10-18 21:41
其实很简单，一个字典就够了                                                                           ...

T T对不知道的来说就像看天书

cjc209

就是一个动态字段名合并之事 没有什么 给你一个代码按操作提示进行就OK了

ttcttyn

cjc209 发表于 2018-10-18 21:56
就是一个动态字段名合并之事 没有什么 给你一个代码按操作提示进行就OK了

好的，感谢大触

Mapleaf12138

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim i%, p$, maxRow%, totalRow%, wb As Workbook, ws As Worksheet, tws As Worksheet
   
5.     Dim wc%, qj%, yj%, kg%, wj%
   
6.     p = "0"
   
7.     totalRow = 2
   
8.     Set tws = Sheet1
   
9.     For i = 1 To 11
   
10.         If i >= 10 Then p = ""
    
11.         Set wb = GetObject(ThisWorkbook.Path & "\201810" & p & i & "-5.xls")
    
12.         Set ws = wb.Sheets(1)
    
13.         maxRow = ws.[A1].End(xlDown).Row
    
14.         ws.Range("A2", "D" & maxRow).Copy tws.Range("A" & totalRow)
    
15.         If Not ws.Rows(1).Find("完成") Is Nothing Then
    
16.             wc = ws.Rows(1).Find("完成").Column
    
17.             ws.Range(ws.Cells(2, wc), ws.Cells(maxRow, wc)).Copy tws.Range("E" & totalRow)
    
18.         End If
    
19.         If Not ws.Rows(1).Find("请假") Is Nothing Then
    
20.             qj = ws.Rows(1).Find("请假").Column
    
21.             ws.Range(ws.Cells(2, qj), ws.Cells(maxRow, qj)).Copy tws.Range("F" & totalRow)
    
22.         End If
    
23.         If Not ws.Rows(1).Find("业绩") Is Nothing Then
    
24.             yj = ws.Rows(1).Find("业绩").Column
    
25.             ws.Range(ws.Cells(2, yj), ws.Cells(maxRow, yj)).Copy tws.Range("G" & totalRow)
    
26.         End If
    
27.         If Not ws.Rows(1).Find("旷工") Is Nothing Then
    
28.             kg = ws.Rows(1).Find("旷工").Column
    
29.             ws.Range(ws.Cells(2, kg), ws.Cells(maxRow, kg)).Copy tws.Range("H" & totalRow)
    
30.         End If
    
31.         If Not ws.Rows(1).Find("违纪") Is Nothing Then
    
32.             wj = ws.Rows(1).Find("违纪").Column
    
33.             ws.Range(ws.Cells(2, wj), ws.Cells(maxRow, wj)).Copy tws.Range("I" & totalRow)
    
34.         End If
    
35.         wb.Close False
    
36.         totalRow = totalRow + maxRow - 1
    
37.     Next
    
38. End Sub

复制代码

没用字典，纯复制