Python&amp；JS宏实现保留样式合并表格后拆分_python 两份excel带样式合并(1)

本文链接：https://blog.csdn.net/m0_60666452/article/details/138296808

📢作者： 小小明-代码实体

📢博客主页：https://blog.csdn.net/as604049322

📢欢迎点赞 👍 收藏 ⭐留言 📝 欢迎讨论！

需求如下：

将所有表格的数据区域合并起来，第二列要插入当前年月，之后再对合并后的总表使用业务员进行拆分，整个操作要求保留原始数据的所有样式，包括颜色和合并单元格等。

带格式合并表格的Python实现

之前分享过一个普通的表格合并的需求：Python调用VBA实现保留原始样式的表格合并
但这次需求增加了一点难度，需要额外增加一列，这次我们将使用更完善的代码解决该问题，Python编码如下：

import win32com.client as win32  # 导入模块
from win32com.client import constants
import os
import re

excel_app = win32.gencache.EnsureDispatch('Excel.Application')
# 可以看到打开的Excel软件
excel_app.Visible = True
# vba只支持传入绝对路径
filename = "异常项清理明细10.14.xlsx"
wb = excel_app.Workbooks.Open(os.path.abspath(filename))
wb_result = excel_app.Workbooks.Add()
dest = wb_result.Sheets(1)
i, pos = 0, 1
dates = []
excel_app.ScreenUpdating = False
for sht in wb.Sheets:
    m_obj = re.match("(?:(\d+)年)?(\d+)月", sht.Name)
    if not m_obj:
        continue
    i += 1
    year, month = m_obj.groups()
    year = 2021 if year == "" else 2022
    date = f"'{year}年{month:0>2}月"
    sht.Activate()
    max_rows = sht.Range("B7").End(constants.xlDown).Row
    max_cols = sht.Range("B7").End(constants.xlToRight).Column
    n = 7 if i == 1 else 8
    rng = sht.Range(sht.Cells(n, 1), sht.Cells(max_rows, max_cols))
    rng.Select()
    excel_app.Selection.Copy()
    dest.Activate()
    dest.Range(f"A{pos}").Activate()
    dest.Paste()
    if i == 1:
        # 复制第一张工作表的列宽
        dest.PasteSpecial(constants.xlPasteColumnWidths)
    dates.extend([date]\*(max_rows-7))
    print(sht.Name, date, max_rows, max_cols)
    pos += max_rows-n+1
excel_app.ScreenUpdating = True
dest.Columns("B:B").Insert()
dest.Range("B1").Value2 = "月份"
dest.Range("B2").GetResize(len(dates)).Value = excel_app.WorksheetFunction.Transpose(dates)
dest.Columns("B:B").ColumnWidth = 20
dest.Columns("B:B").AutoFit()
dest.Range("A2").Value2 = "1"
dest.Range("A2").Select()
excel_app.Selection.AutoFill(dest.Range(
    f"A2:A{pos-1}"), constants.xlFillDefault)
dest.Columns("A:A").AutoFit()
dest.Rows(f"1:{pos-1}").AutoFit()
dest.Name = "总表"
# 保存并退出
filename = re.sub("\.[^.]+$", "", filename)
wb_result.SaveAs(os.path.abspath(f"{filename}\_合并.xlsx"))
wb_result.Close()

最终合并结果如下：

带格式合并表格的JS宏实现

关于js宏的基础知识，之前已经分享过很多了，有兴趣可以查看前文：

WPS JS宏入门案例集锦
https://xxmdmst.blog.csdn.net/article/details/127097880

WPS JS宏示例-批量添加链接
https://xxmdmst.blog.csdn.net/article/details/127037824

JS宏综合示例-多维度筛选统计带窗体
https://xxmdmst.blog.csdn.net/article/details/127138015

本需求最终对应宏代码如下：

function 合并并插入()
{	
	console.clear();
	Application.ScreenUpdating = false;
	var wb=ActiveWorkbook;
	var wb_result = Workbooks.Add();
	var dest = wb_result.Sheets(1);
	var i=0, pos=1;
	dates=[];
	for(var sht of wb.Sheets){
		let arr=/(?:(\d+)年)?(\d+)月/.exec(sht.Name);
		if(arr==undefined) continue;
		i += 1;
		var [_,year,month]=arr;
		year = year==undefined?2021:2022;
		if(month.length==1) month="0"+month;
		date = `'${year}年${month}月`;
		console.log(date);
		sht.Activate();
		let max_rows = sht.Range("B7").End(xlDown).Row;
		let max_cols = sht.Range("B7").End(xlToRight).Column;
		n = i==1?7:8;
		rng = sht.Range(sht.Cells(n, 1), sht.Cells(max_rows, max_cols));
		rng.Select();
		Selection.Copy();
		dest.Activate();
		dest.Range(`A${pos}`).Activate();
		dest.Paste();
		// 复制第一张工作表的列宽
		if(i==1) dest.PasteSpecial(xlPasteColumnWidths);
		for(k=0;k<max_rows-7;k++) dates.push(date);
		pos += max_rows-n+1;
	}
	Application.ScreenUpdating = true;
	dest.Columns("B:B").Insert();
	dest.Range("B1").Value2 = "月份";
	dest.Range("B2").Resize(dates.length).Value2 = WorksheetFunction.Transpose(dates);
	dest.Columns.Item("B:B").ColumnWidth = 20;
	dest.Columns.Item("B:B").AutoFit();
	dest.Range("A2").Value2 = "1";
	dest.Range("A2").Select();
	Selection.AutoFill(dest.Range(`A2:A${pos-1}`), xlFillDefault);
	dest.Columns("A:A").AutoFit();
	dest.Rows(`1:${pos-1}`).AutoFit();
	dest.Name = "总表";
	wb_result.SaveAs(`${wb.Path}\\${wb.Name.replace(/\.[^.]+$/,"")}\_合并.xlsx`);
}

结果得到与上述完全一致的结果。

注意：COM组件提供Python的接口Resize方法失效，可以使用GetResize替代。

保留样式拆分表格的Python实现

之前的完整实现方法请查看：

深度剖析Excel表拆分的三项技术
https://xxmdmst.blog.csdn.net/article/details/118655016

今天的实现只考虑将当前工作表拆分到工作簿中的情况，相对之前的代码会有一定简化，同时增加了复制列宽的功能，重新填充编号的功能。完整代码如下：

import win32com.client as win32  # 导入模块
from win32com.client import constants
import os


def simple\_split\_excel(filename, group_num, title_row=1, excel_app=win32.gencache.EnsureDispatch('Excel.Application')):
    """作者小小明的csdn：https://blog.csdn.net/as604049322"""
    filename = os.path.abspath(filename)
    wb = excel_app.Workbooks.Open(filename)
    try:
        sheet = wb.ActiveSheet
        max_rows = sheet.UsedRange.Rows.Count
        max_cols = sheet.UsedRange.Columns.Count


**一、Python所有方向的学习路线**

Python所有方向的技术点做的整理，形成各个领域的知识点汇总，它的用处就在于，你可以按照下面的知识点去找对应的学习资源，保证自己学得较为全面。

![img](https://img-blog.csdnimg.cn/1d40facda2b84990b8e1743f5487d455.png)  
![img](https://img-blog.csdnimg.cn/0fc11d4a31bd431dbf124f67f1749046.png)

**二、Python必备开发工具**

工具都帮大家整理好了，安装就可直接上手！![img](https://img-blog.csdnimg.cn/ff266f529c6a46c4bc28e5f895dec647.gif#pic_center)

**三、最新Python学习笔记**

当我学到一定基础，有自己的理解能力的时候，会去阅读一些前辈整理的书籍或者手写的笔记资料，这些笔记详细记载了他们对一些技术点的理解，这些理解是比较独到，可以学到不一样的思路。

![img](https://img-blog.csdnimg.cn/6d414e9f494742db8bcc3fa312200539.png)

**四、Python视频合集**

观看全面零基础学习视频，看视频学习是最快捷也是最有效果的方式，跟着视频中老师的思路，从基础到深入，还是很容易入门的。

![img](https://img-blog.csdnimg.cn/a806d9b941c645858c61d161aec43789.png)

**五、实战案例**

纸上得来终觉浅，要学会跟着视频一起敲，要动手实操，才能将自己的所学运用到实际当中去，这时候可以搞点实战案例来学习。![img](https://img-blog.csdnimg.cn/a353983317b14d3c8856824a0d6186c1.png)

**六、面试宝典**

![在这里插入图片描述](https://img-blog.csdnimg.cn/97c454a3e5b4439b8600b50011cc8fe4.png)

![在这里插入图片描述](https://img-blog.csdnimg.cn/111f5462e7df433b981dc2430bb9ad39.png)

###### **简历模板**![在这里插入图片描述](https://img-blog.csdnimg.cn/646863996ac44da8af500c049bb72fbd.png#pic_center)




**网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。**

**[需要这份系统化学习资料的朋友，可以戳这里无偿获取](https://bbs.csdn.net/topics/618317507)**

**一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！**