导读：在日常工作中，我们经常需要对Excel表格进行数据分析处理。但是有时候一个Excel表格中数据过于庞杂，不便于我们快速获取需要的信息。本文将介绍一种按照人名拆分Excel表格的方法，让数据按人员分散到不同的表格中，方便我们统计分析。具体实现步骤请看以下内容。
1.前期准备工作
在进行Excel表格按人名拆分操作之前，需要进行一些准备工作。首先，我们需要先打开需要拆分的Excel表格，并且确保表格中已经有人员名称列。其次，我们需要创建一个新的Sheet，命名为People List，用于列出所有需要拆分的人员姓名。
在People List Sheet中，我们需要添加一个表头，其中的字段可以包括姓名、表格名称、表格开始行号、表格结束行号等信息。这样可以方便我们在进行拆分操作时获取到需要拆分的信息。
2.VBA宏代码实现
2.1 打开VBA编辑器
按下“Alt+F11”快捷键，即可打开VBA编辑器。在编辑器左边的“项目资源管理器”中，可以看到当前打开的Excel表格文件名。
2.2 新建宏
在VBA编辑器中，右键单击当前文件名，选择插入——模块，即可新建一个宏。在新建的模块中，我们可以编写我们的拆分代码。
2.3 拆分代码实现
以下是一段示例代码，可以用来按人名拆分Excel表格：
```VBA
Sub SplitSheetByPersonName()
'Read the name list from the first column (A) in People List sheet
Dim person As String
Dim lngLastRow As Long
Dim lngStartRow As Long
Dim lngEndRow As Long
Dim NameList As Range
Dim cel As Range
Dim shtNew As Worksheet
lngLastRow = Worksheets("People List").Cells(Rows.Count, "A").End(xlUp).Row
Set NameList = Worksheets("People List").Range("A2:A" & lngLastRow)
For Each cel In NameList
person = cel.Value
'calculate the start and end row of current person's data in original sheet
lngStartRow = cel.Offset(0, 1).Value
lngEndRow = cel.Offset(0, 2).Value
'Add a new sheet named by the current person's name
Set shtNew = Worksheets.Add(After:=Worksheets(Worksheets.Count))
shtNew.Name = person
'copy data from original sheet to the new sheet
Worksheets("OriginalSheet").Range("A" & lngStartRow & ":Z" & lngEndRow).Copy _
Destination:=shtNew.Range("A1")
Next cel
End Sub
```
解释一下代码。首先，我们从People List Sheet中读取人名列表，然后对每个人名进行循环，计算出他们在原表格中数据的开始行和结束行。然后，以人名为名字创建一个新的Sheet，将原表格中该人名的数据复制到新Sheet中。
3.执行拆分操作
在VBA编辑器中，直接点击执行按钮或按下F5键，即可运行我们的拆分宏代码。宏代码运行完成后，我们可以在Excel文件中看到，已经按照人名创建了新的Sheet，每个Sheet中数据都是针对该人名的数据。这样，我们就可以方便地进行数据的分析和统计。
4.总结
本文介绍了一种按照人名拆分Excel表格的方法，通过VBA编写宏代码，可以自动化地进行拆分操作，大大提高了分析数据的效率。希望对需要使用Excel表格进行数据处理操作的读者有所帮助。
