excelå°ä¸å¼ å·¥ä½è¡¨æåæå¤ä¸ªå·¥ä½è¡¨æ¹æ³å¦ä¸ï¼
æå¼éè¦ç¼è¾çExcelææ¡£ãå¦å¾æ示ï¼å·¥ä½ç°¿ä¸æ¹æå¾å¤å·¥ä½è¡¨ãç°å¨éè¦å°è¿äºå·¥ä½è¡¨åç¬æåå¼æä¸ä¸ªä¸ªå·¥ä½ç°¿ã
å³é®ä»»æä¸ä¸ªå·¥ä½è¡¨æ ç¾ï¼å¨å¼¹åºçä¸æå表ä¸éæ©æ¥ç代ç ãå³å¼¹åºä»£ç çªå£ãå¦ä¸å¾æ示ã
ç¹å»èåæå ¥-模å å¨å¼¹åºç模å对è¯æ¡ä¸ è¾å ¥ä»¥ä¸ä»£ç ï¼
ãã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
åå»è¿è¡-è¿è¡åè¿ç¨|çªä½ å ç§è¿å å¼¹åºæ示çªå£âæ件已被æåå®æ¯â å¦ä¸å¾æ示
è¿åExcelå·¥ä½ç°¿æ件æå¨è·¯å¾ æ¥ç å¦ä¸å¾æ示 åå å·¥ä½ç°¿ä¸çå·¥ä½è¡¨å·²ç»æ为åç¬çå·¥ä½ç°¿äº!
如何将一张工作表拆分成多个工作表?
是说一张工作表上的某项内容分成很多么,看了其他人的回答,我这里有个懒人的方法,不知道是不是你说的拆分模式,当然懒人的方法就是用软件了,这个我用过可以放心是无毒的,百度小蓝条就可以搜索的到,这里给你演示下,看看是不是你要的拆分表格功能
以这张表为例选择你要以产品名拆分
小蓝条工具栏选择工作表拆分
选择指定拆分标准的标题点击确定
提示已完成可以看到下面已经有了
结果
可以看到都已经拆分出来了
就很实用
当然你也看到那个工具条有很多其他功能如果你是拆分一张工作簿下的不同工作表成为一个个新工作簿就点下面那个工作簿拆分这里就不一一列举了,我觉得这个小蓝条的功能挺全面的你可以试试,就一般excel表格求和函数啊,合并表格,审核校对同样栏目表格之类的都可以使用,甚至还可以语音输入,以及截图,识别图片里文字之类的小程序,你可以百度搜索它名字看看