Record

区块链记录你的初心
版权知识Word技巧摄影技巧职场工作区块链Excel教程财经设计PPT教程产品运营官方动态
有比这更快的工作表拆分法吗?有,你就最牛!

有比这更快的工作表拆分法吗?有,你就最牛!

教程拆分

  各位小伙伴有没有遇到过这样的问题:当我们把所有的信息汇总在一张表里后,又需要将这张大表按某一条件再拆分成多个工作表。那怎么才能实现呢?可能最笨的方法就是在原工作表筛选数据然后复制粘贴到新工作表,不过这种方法不适合数据多的案例,并且新工作表也需要一一重命名,显得繁琐。今天就给大家介绍两种快捷实用的工作表拆分方法。  如图,现在要把这个工作表的内容按城市拆分成多个工作表。  第1种:极速拆分VBA(文中提供有代码)  VBA是EXCEL处理大量重复工作最好用的工具。不过很多人对VBA一窍不通,所以今天给大家分享一段代码,并且详细解释了如何根据实际表格修改代码值,方便大家在工作中使用。  (1)按住Alt+F11打开VBA编辑器,点击插入菜单下的模块。  (2)在右侧代码窗口输入下列代码。不想动手输入的可以加群下载已经准备好的代码文件,直接复制粘贴即可。  Sub拆分表()  Dimi,iRow,iCol,t,iNumAsInteger,shAsWorksheet,strAsString  Application。ScreenUpdating=False  WithWorksheets(Sheet1)  iRow=。Range(A65535)。End(xlUp)。Row  iCol=。Range(IV1)。End(xlToLeft)。Column  t=3  Fori=2ToiRow  str=。Cells(i,t)。Value  OnErrorResumeNext  Setsh=Worksheets(str)  IfErr。Number0Then  Setsh=Worksheets。Add(,Worksheets(Worksheets。Count))  sh。Name=str  EndIf  sh。Range(A1)。Resize(1,iCol)。Value=。Range(A1)。Resize(1,iCol)。Value  iNum=sh。Range(ARows。Count)。End(xlUp)。Row  sh。Range(AiNum+1)。Resize(1,iCol)。Value=。Range(Ai)。Resize(1,iCol)。Value  Nexti  EndWith  Application。ScreenUpdati