python 批量替换一对多sheet邮件合并_word可以邮件合并,Excel也可以批量生成

在日常工作中,会有这样一个需求,我们有一份基础数据表,模拟的数据如下所示:

这里只列了3条数据,实际工作过程中可能是几百条,然后数据列也有很多,这里介绍解决方案,所以简化了数据

我们需要得到的结果是,按每行数据,填充到另一个简历表里面去,每一行数据,得到一个简历表,有N行数据,就需要填充N个这样的表

我们之前分享过Excel搭配word使用邮件合并功能轻松解决

但每个子表必须是word格式的

如果说我们每个子表都还是Excel格式的,该如何快速填充完成呢?

解决方案,使用VBA代码的方式

我们在信息表里面,打开VBA编辑工具(快捷键ALT+F11),插入一个模块

里面输入的代码是:

Sub 生成() For i = 2 To 4 Workbooks.Open (ThisWorkbook.Path & "\\" & Cells(i, 1)) ActiveWorkbook.Sheets(1).Range("B2") = ThisWorkbook.Sheets(1).Cells(i, 2) ActiveWorkbook.Sheets(1).Range("D2") = ThisWorkbook.Sheets(1).Cells(i, 3) ActiveWorkbook.Sheets(1).Range("F2") = ThisWorkbook.Sheets(1).Cells(i, 5) ActiveWorkbook.Close savechanges:=True Next End Sub

解释上面几行代码,如果数据行数不同,数据位置不同,就可以自己进行替换了

for i =2 to 4

表示从第2行开始循环到第4行

workbooks.open

表示打开表格,后面跟的是当前文件夹的路径

然后就是子表中的B2单元格要等于原表格的第2列的值

D2要等于原表格的第3列

F2要等于原表格的第5列

最后关闭表格,并且保存。

通过上述简单的几行代码,我们点击运行代码

所有的子表里面的内容就更新完成了

其他子表也自动填充了相应的数据了

你学会了么?碰到大批量数据需要填充的时候,再也不需要加班到通宵还在做表了

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值