拆分工作簿-多表变多簿（Excel代码集团）

一个工作簿中包括N个工作表，将各个工作表拆分成工作簿。 工作表数量不定，表内内容不限，拆分后保存于当前文件夹内。 Sub Sample() Dim MySheetsCount As Long For MySheetsCount = 1 To Sheets.Count Sheets(MySheetsC
posted @ 2019-06-15 21:39  熬肥妖  阅读(1049)  评论(0)  编辑  收藏  举报