几个实用的Excel 宏代码
来源:高中英语教学交流
发布时间:2013-03-22 10:41:00
查看次数:
Excel 宏 按列拆分
在一个工作表中是许多的公司订单记录,如何将它按公司名分拆成一个个工作表,用VBA实现相当便捷。以下是演试:
原始工作簿:
运行VBA代码后的工作簿:
代码如下:
- 需要先把数据按照分拆的那一列字段排序
- 如果你想应用在你的表格中,只需将所有resize(1,3)中的3修改,改成你的表格的列数。如果你总表有8列就改成resize(1,8)即可
- 如果你想根据表格的第一列拆分,需要把Sheet1.Cells(i, 2) <> Sheet1.Cells(i - 1, 2)和sh.Name = Sheet1.Cells(i, 2)的2换成1
Sub s()
Application.ScreenUpdating = True
End Sub
- 相关文章
- ·Excel 利用行号引用数据09-02·安卓手机因软件安装失败解决方法06-19·如何输入100以内的带圈字符?07-20·一分钟彻底清除电脑中的垃圾10-11·如何压缩word?10-19·windows 2008 R2各版本激活180天05-03·四行选项变一行的快捷方法11-14·Excel随机生成区间数值06-23·批量修改PPT字体和颜色的方法09-20·如何更改Excel默认另存为的路径?04-16
- 最新文章
- ·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·Excel如何批量插入分页符02-12·制作Word2003选择性粘贴快捷键07-09
点击这里识别二维码关注公众号