EXCEL不同表头的多表合并VBA

以下内容学习连接：https://www.dazhuanlan.com/2019/10/23/5daf62ca917ed/?cf_chl_jschl_tk=b45aabfc01845564414cd15df99773357e2b075d-1583998221-0-AU2bmCw-wjZrAd6gGfVAgxlIoiB8Wv7zJlwYiHkktbJbtjMS9Hdbz77AYZOs9M_23-thCgszRinc8t6CNjli4pJ-jXidocAUGoRwR2N6Ho1701DTfBW4hiBra_vFXDgXiCn7EwsiXnB7yPNMIxfn235AJKwBb59MIp_Xb236p_qvdii-TfQ6zOpr6Z2jDQFS-9gDDrHAql2QtI58xsbjUkyzNK-aQ7pLHDJ1gS7zCFpIyZFIAn8SOnzUzB_P6n97KSrLdwVux88s_3kYj6dNHq09drqLf8itrcpcvu9tpOFtfuOKYEP0eDQhtZy20ofkXw

应用背景

同一个EXCEL工作表下有多个表头不一样（顺序/列名不一样）的sheet，需要把所有不一样的sheet合并到一张总表，参考第一个sheet的表头的顺序格式，后边的表列名一致则合并，列名不一致，在最后一列增加新的列

即：

列标题与数据是一一对应的，来自哪个表的数据就对应行标题来自哪个表格
列标题汇总了所有的列标题（项目名称），避免了重复
数据填充在相应的单元格，没有数据的地方就留空

VBA实现代码

Sub combin()
Dim d As Object
Dim newst As Worksheet
Dim sh As Worksheet
Dim m
Dim r, r2
Dim iSet d = CreateObject("scripting.dictionary")Set newst = Sheets.Add
newst.Name = "合并"
m = 2
For Each sh In SheetsIf sh.Name <> "合并" ThenFor i = 1 To sh.UsedRange.Columns.CountIf Not d.exists(sh.Cells(1, i).Value) Thend(sh.Cells(1, i).Value) = mm = m + 1End IfNext iEnd If
Next shnewst.Range("A1") = "工作表"
newst.Range(Cells(1, 2), Cells(1, d.Count + 1)) = d.keysFor Each sh In SheetsIf sh.Name <> "合并" Thenr = newst.UsedRange.Rows.Count + 1For i = 1 To sh.UsedRange.Columns.Countsh.UsedRange.Columns(i).Offset(1).Copy newst.Cells(r, d(sh.Cells(1, i).Value))Next ir2 = newst.UsedRange.Rows.Countnewst.Range("A" & r & ":A" & r2) = sh.NameEnd If
Next shSet d = NothingEnd Sub

EXCEL不同表头的多表合并VBA相关推荐

excel把多个工作表合并怎么做？
今天跟大家excel把多个工作表合并怎么做? 1.首先我们打开演示文件 2.点击如下图选项 3.点击[汇总拆分],选择[合并多表] 4.将[表头行数]设置为2 5.最后点击[确定]即可完成 6.完成效 ...
学习Python处理Excel 难度0级别多表合并、多条件筛选、找出重复项、去重
#本代码要点:多表合并.多条件筛选.找出重复项.去重 #主题:计算特定两个时间周期内回店且消费的重复客户清单以及未再次回店的客户清单 #EXCEL工作表:一维表 #备注:假设会员姓名不存在重名:否则找 ...
学习Python处理Excel 难度1级别多表合并、数据透视表、拆分合并单元格并获得一维表
#本代码要点:多表合并.数据透视表.拆分合并单元格并获得一维表 #主题:各门店合并,计算各店当月回店做服务2次+的客人数量 #EXCEL工作表:存在合并单元格 #备注: import pandas a ...
excel如何把多张表合并成一个表_EXCEL如何把多个表格合并成一个表格
利文物语记录生活天气预报说: 今冬是一个寒冬. 那就让北方干洌的冷来得痛快些吧! 昨天从知乎上学会,非常实用方便,今天又在想,怎样把这些工作表合并到一个工作表中?又从知乎上得到了答案,感谢知乎的老师 ...
excel如何把多张表合并成一个表_如何将多个excel表格合并成一个_excel多表合并到一种表格的方法...
Excel是我们日常办公经常要用到的工具,有时候我们会制作非常多的Excel表格,为了方便管理,我们需要将这些表格合并到一起,那么如何将多个excel表格合并成一个呢?相信很多朋友都不太清楚,那么今天 ...
Python自动化小技巧10——excel文件批量多sheet表合并
本次案例背景是博主之前实习时遇到的问题,就是有很多个excel表: 每个工作簿里面又有很多sheet子表: 想要把这些子表合并在一起,多个excel工作簿也要合并到一起,手工肯定慢,这种重复性的劳动交 ...
手把手教你用Python批量实现文件夹下所有Excel文件的第二张表合并
点击上方"Python爬虫与数据挖掘",进行关注回复"书籍"即可获赠Python从入门到进阶共10本电子书今日鸡汤怀君属秋夜,散步咏凉天. 大家好, ...
[VBA]EXCEL同工作簿中多工作表合并VBA代码
代码分为三部分: 第一部分是新建一个汇总的工作表,并重新自定义命名: 第二部分是逐一将各个工作表复制粘贴到汇总工作表中: 第三部分为提示,即当合并工作完成后弹出提示. 代码如下: Sub Comb() ...
多个excel工作簿、工作表合并
功能描述:合并当前文件夹下面所有excel,包括每一个工作簿与每一个工作簿下面的每一个工作表步骤: 1.所有表的每个sheet需要表头一致: 2.所有表需要放在一个文件夹下面: 3.该程序会合并当前 ...

EXCEL不同表头的多表合并VBA

应用背景

VBA实现代码

EXCEL不同表头的多表合并VBA相关推荐

最新文章

热门文章