||
如图,从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
然后,工作表就拆分好了。
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-27 07:37
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社