欢迎来到天天文库
浏览记录
ID:53872227
大小:71.29 KB
页数:1页
时间:2020-04-10
《VBA拆分工作表为多个工作表.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、拆分工作表为多个工作表朋友要求将20列的EXCEL表分拆为每列一个工作表,我写下以下VBA程序处理:Sub拆分工作表为多表_Click()Fori=20To1Step-1‘方便生成工作表的顺序Sheets("总表").Select‘选择总表Columns(i).Select‘选择列Application.CutCopyMode=False‘复制Selection.Copy‘Sheets.AddAfter:=ActiveSheet‘在当前表后插入新表ActiveSheet.Name=i‘改名ActiveSheet.Paste‘粘贴NextEndSub
此文档下载收益归作者所有