如下图示，有一份【回访登记表】：

回访登记表

现在希望按”受访人员“每人形成一张表格，如下图示：

回访记录表样式

最简便的方法是使用Word中的邮件合并功能，将上表的Excel表数据作为创建邮件合并的数据源。如何创建邮件合并，可以参见我的头条文章

在这里我们用VBA宏来解决这类问题。创建一个如下图示的“登记表”工作表，并在工作表窗口插入一个圆角矩形作为按钮，然后根据“登记表”中的信息自动填写根据“回访表模板”创建的工作表内容。这类自动生成工作表是一个Excel操作中常见的操作。

基本思想是：从如下图所示的”登记表“中逐行读取数据，复制【回访表模板】工作表为一个新的工作表，并以【受访人员】姓名命名，然后将“登记表”工作表中的数据填入到此相应的工作表中，这样每户信息形成了一张新的工作表。

回访表模板--工作表

我们可以用VBA宏来实现此操作。下面是用VBA宏来实现的的详细步骤，包括如何编写VBA代码来实现这一操作。

一、 打开Excel并启用开发者选项

首先，打开含有需要合并工作表的Excel工作簿。如果“开发者”选项卡未显示，请点击“文件” > “选项” > “自定义功能区”，在右侧勾选“开发者”复选框，然后点击“确定”。

二、 插入VBA模块

转到“开发者”选项卡，点击“Visual Basic”或者直接按【Alt + F11】组合键打开VBA编辑器。然后在VBA项目浏览器中（通常位于左侧），右击工作簿名，选择“插入” > “模块”,创建一个新的模块，用于编写VBA代码。

三、 编写VBA代码

在新插入的模块中，粘贴以下VBA代码。

Sub myCopyToSheet() Dim ws As Worksheet totalRows = Range("A65536").End(xlUp).Row For k = 3 To totalRows '获取户主姓名 mainName = Sheets("登记表").Cells(k, 3).Text Debug.Print mainName '复制模板工作表到新工作表，并以户主姓名命名 Sheets("回访表模板").Copy After:=Sheets(Sheets.Count) Set ws = Sheets(Sheets.Count) ws.Name = mainName '复制原表sheet1中相应信息到新添加的工作表中 Loading... = mainName With Sheets("登记表") Range("B2").Value = .Cells(k, 3) '受访人姓名 Range("D2").Value = .Cells(k, 4) '联系电话 Range("B3").Value = .Cells(k, 5) '回访人姓名 Range("D3").Value = FormatDateTime(.Cells(k, 2), vbLongDate) '回访时间 Range("B4").Value = .Cells(k, 6) '回访情况记录 Range("B5").Value = .Cells(k, 7) '备注 End With NextEnd Sub

四、运行VBA宏

返回Excel界面，右击按钮，在弹出的快捷菜单中选择“指定宏”，然后在“指定宏”对话框中选择“myCopyToSheet”宏，单击确定返回。鼠标单击按钮，即可得到用“受访人员”姓名命名的工作表，表内信息根据“登记表”中的信息填写。

如果不想要添加按钮，也可以点击“开发者”选项卡，点击“宏”。 在弹出的“宏”对话框中，选择myCopyToSheet，然后点击“运行”，即可得到每位受访者的记录表，效果如下图示：

形成以“受访人姓名”命名的系列工作表。

我是，关注我，持续分享更多的Excel知识与操作技巧。