删除所有表（只保留名为总表的工作表）
每个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），点击确认按钮，，。
