轻松修复Excel拆分工作表
我相信很多朋友都遇到过这样的难题,和大量的全表数据分成多个子表。常规方法是整理工作表排序后,这是一个麻烦的复制和粘贴数据不停。我提供一个简单的方法来做一个分表按钮。在总台;使用工具箱;控制;绘图命令按钮在按钮进入按钮:
删除所有表(只保留名为总表的工作表)
每个SHT片
如果某事的名字然后SHT。删除<>清单
下一个
添加一个新表,以避免损坏原始数据中的公式或格式
表(一般表)。复制之前:=表(1)
内部冷却器泵= application.inputbox(请输入你想分裂的列(如D柱分请输入4)
如果内部冷却器泵=然后退出
下次继续出错
使用表(一般表(2))
iRow =。{ } currentregion.rows.count A1。
我= 2 IROW
细胞(I,内部冷却器泵)= 细胞(我、ICol)在原工作表生成文本符号
下一个
我= 2 IROW
h.add.cells(我,ICol),CStr(。细胞(我,ICol))
下一个
创建一个非重复筛选条件
对于我= 1到H. Count
。cells.autofilter场:=内部冷却器泵、、:= H(我)
添加(后=表(表计数))。
。{ a1 }。CurrentRegion.Copy Sheets(CSTR(H(我)))。{ }A1自动筛选,并复制到新表
irow1 = {α}。currentregion.rows.count
J = 2 irow1
细胞(J,ICol)=右(细胞(J、ICol)、Len(细胞(J)
文件: / / D:程序文件 cpcw pcwreadsys2012皮肤 file.htm 2012-2-1冬天的太阳
中国计算机年鉴2007, 2/2页
ICol))的消除在新工作表中的文本符号
下J
cells.autofilter。
打印h(i)
下一个我
此时删除操作表是多余的,所以删除
结束
该a.parent.activate激活汇总表细胞
之后,单击拆分,总台,按钮,在弹出的对话框中输入字段的表的列数(例如,将D柱,输入4),点击确认按钮,,。
tag:拆分轻松工作电脑软件excel
相关内容