使用【VBA】在WPS表格中实现类似【邮件合并】的功能

一、效果

通过上面数据、模板工作表，一键运行得到下面几个新工作表

二、原理

复制并批量重命名模板表格，VBA复制粘贴数据

三、VBA代码

需要的重点VBA代码如下

Sheets("模板").Copy after:=Sheets(i + 1)，以模板为基本创建新的工作表

Sheets(i + 2).Cells(3, 2) = Sheets("数据").Cells(i + 1, 2) ，这句的意思是以“数据”中第i+1行（第一行为标题行，所以+1）第2列的数据填充新模板表格中（3，2）单元格。在本案例，就是把数据中的姓名复制黏贴到新工作表中的姓名单元格。

为便于覆盖上次运行产生的表格，在「CopyTheData」开始运行时调用了一个函数「DeleteSheets」用于删除「数据表」和「模板表」以外的工作表。