Excel VBA 7.47将总表的数据分别按照要求填入指定的模板位置中，类似word邮件合并功能 / 四六文摘

一起学习，一起进步~~

word的邮件合并功能，相信大家都非常的熟悉了，一些固定模板的批量打印功能都会用到这样的操作，但是很多时候我们的数据是Excel中的，那么我们是否能够在Excel中实现类似于word中这种数据b合并的功能呢？

代码区

其实这样的话，就有点类似于我们之前学过的Excel的数据汇总的逆推，数据的拆分了，按照计划，我们很快就会接触到更多类型的数据的拆分了，我们这里就先热个场，提前接触下数据的拆分，之所以在这里说数据拆分，主要还是因为他的操作也类似于在多个工作表中同时进行数据填充，和我们之前的章节又有一点关系，所以正好有承上启下的作用

来看看我们的场景

现在我们手上的这个工作表里面有两个表，一个就是成绩总表，一个就是模板，类似于我们通知的模板，

我们现在需要将总成绩的表中所有的同学的成绩按照模板中指定的样式进行填充，并且形成一个人一个工作表的样式来进行打印，并交给学生查看。如果手动复制粘贴，这个工作量就非常的大了，因为不仅仅是复制粘贴，还要找到正确的位置，所以这里我们需要使用VBA来帮助我们实现这样的功能。

Sub sssss()

Dim rng As Range, sth As Worksheet, sthn As WorksheetSet rng = Application.InputBox("请选择数据源,不含表头", "数据源的确定", , , , , , 8)For i = 1 To rng.Rows.Count arr = rng.Rows(i) Worksheets("模板").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = arr(1, 1) Set sthn = ActiveSheet sthn.Cells(4, 3) = arr(1, 1) sthn.Cells(4, 5) = arr(1, 2) sthn.Cells(6, 4) = i sthn.Cells(8, 4) = arr(1, 3) sthn.Cells(9, 4) = arr(1, 4) sthn.Cells(10, 4) = arr(1, 5) sthn.Cells(11, 4) = arr(1, 6) sthn.Cells(12, 4) = arr(1, 7) sthn.Cells(13, 4) = arr(1, 8)Next iEnd Sub

看着代码挺长，请示非常的简单，中间一大段都是理解之后就非常的简单了。

先来看下效果