办公技能使用ExcelVBA代码实现表格拆分功能嘉为科技.docxVIP

办公技能使用ExcelVBA代码实现表格拆 分功能嘉为科技 使用ExcelVBA代码实现表格拆分功能 作者：张辛 【摘要】 因为工作需要，我们经常希望能把一些表格 按照某个分类进行拆分，按照正常做法应该是： 先按分类项筛选，然后新建工作表，接着将筛选 结果复制到新工作表上，随后再修改工作表标签 名称，最后依次重复这项工作，直到把分类项中 每一个选项都复制一遍，这份工作表才算拆分完 毕。这种重复性工作太耗费时间，有没有办法能 帮我们快速完成这种体力活呢？ 【正文】 如果使用Excel VBA宏代码帮我们判断并 拆分，则大大减轻工作量。下面就给大家介绍一 个案例，希望能带来启发。 一、 案例描述 如下图所示，有一张销售订单表，现在希望 按照【产品】进行拆分，将每个城市的数据单独 放在一张新工作表上。 A E C D F C 1 日期 瞄 产品 单价 数是 金额 销售 2 2010/1/2 北京 槌米 ￥14.00 500 ￥7,000.00 李芳 3 2010/1/4 天津 白米 ￥)0.40 300。 ￥91,200.00 郑建杰 4 2010/1/23 天津 大众奶酷 ￥16.80 2400 ￥40,320.00 李芳 5 2010/1/29 干贝 ￥20.80 2800, ￥58,240.00 郑建杰 6 2010/2/1 上海 干贝 ￥20.80 100 ￥2,080.00 郑建杰 7 2010/2/3 天津 白奶酪 ￥32.00 400 ￥12,800.00 张雪眉 9 2010/2/12 德国奶曲 ￥38.00 1500 ￥57,000.00 李芳 9 2010/2/12 ￥17,45 3000 ￥52,350.00 王伟 10 2010/2/14 北京 蚩牲 ￥7.60 5500 ￥41,800.0。 郑建杰 11 2010/2/1S 重庆 ￥13.90 2100 ￥29490.00 张雪眉 12 2010/2/16 北京 ￥13.90 3500 ￥43,650.00 张雪眉 13 2010/2/17 白米 ￥38.00 2000 ￥76,000.00 王伟 14 2010/2/18 北京 WT ￥17,45 14。。 ￥24,430.0。 王伟 15 2010/2/20 上海 大众奶酪 ￥21.00 1000 ￥21,000.00 王伟 16 2010/2/26 天津 蕃茄酱 ￥10.00 2000 ￥20,000.00 李若 17 2010/3/1 天津 白米 ￥38.00 1500 ￥57,000.00 郑建杰 完成后我们看到的结果是销售订单表 【sheetl】被拆分成9张产品表。如下图所示: 1 SheHl］褊巷了白米Nfc做BBtW贝奶ST如国奶a/ttf干Zg穗L蕃茄昔 二、Excel VBA代码编程说明 打开编程环境 首先需要调出开发工具选项卡，打开【文件】 -【选项】-【自定义功能区】，勾选【开发工具】 单击【开发工具】选项卡中的【 Basic 】 Visual fFta 糖人 页面布筒 弓腐 邮件 案阑 现整 开虹具 址的com皿裁项 代房 Aa Aa 3 洛速2 需F知 过设一模式 局沮当 控# 右键单击【模块】，选择【插入】-【模块】 囹：?国：.日Hi.三E =E=.！=—=i.E曰 翳 Solver (SOLTKIL XLMI) g KBATrfljeet (FlfflCRES. XLAM) VBATr*ject Clfi分生格-Ts) 日??凸Mlc roso ￡1 Ek cel 对象 蜀[Ehgtl Gheetl) 41 Tlisttork^ock 取 ITBATk i]??口 Mlc y .VJ 尊 ITClu 查看代四Q) 3查看对象但) VBA Project履性旧… 插入四) 导心件(D* 导td交哲(￡K，. g模块(M) 虚！美模块。 双击新建的模块，进入代码编辑区。 编写代码 将拆分工作表的代码贴入编辑区，如下图所 IT Conultirlfa _J(kining Dim b As Integer, c As Integer b = WorksheetFunction.CountA(Sheets(sheet1 ).Range(I2:I100)) Sheets(sheet1).Range(k1)= Sheets(sheet1).Range(i1) For c = 1 To b Sheets(sheet1).Range(k2)= Sheets(sheet1).Range(I c + 1).Value Sheets.Add After:=ActiveSheet a = Sheets(sheet1).Range(k2).Value ActiveSheet.Name = a Ap