m0_52307278的博客

原创 Vba工具-把一个总表按任何1列维度拆分成n个子表

Vba工具-把一个总表按任何1列维度拆分成n个子表 第一步:删除总表以外的表 第二步:按所选维度拆分表并命名 第三步:把内容复制到子表 Sub 拆分() excel.application.display alerts=false excel.application.screenupdating=false x=int(inputbox=“请输入以哪一列拆分:”) Dim s1,i,k,j if sheets.count>1 then for each s1 in sheet if s1.name &