如图，从GBIF批量下载的物种分布点信息，要将表格中每一个物种分别放进一个独立的表格中。

首先，将一个工作表拆分为多个工作表。

选中要拆分的工作表，插入数据透视表，将拆分条件列拖入筛选栏中，将其他列名拖入行的栏中。

将表格布局，进入数据透视表工具设计，报表布局选择以表格形式显示和重复所有项目标签，分类汇总选择不显示分类汇总，总计中选择对行和列禁用。

然后，选中表格后进入分析，点击选项中显示报表筛选项，核实筛选字段是否准确，点击确定。

这样就已将将一个工作表根据筛选字段拆分到不同的工作表里了。

将工作表全部选中，复制并粘贴为数值，以便后面的操作。

请参考https://zhidao.baidu.com/question/2123995289422737587.html?fr=iks&word=Excel%C8%E7%BA%CE%B8%F9%BE%DD%C4%B3%D2%BB%C1%D0%B5%C4%B1%E0%BA%C5%B2%F0%B7%D6Excel&ie=gbk&from=search

其次，拆分工作表。

右击选中工作表 -> 查看代码  -> 代码框里输入以下代码并运行。

Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

然后，工作表就拆分好了。