分享

EXCEL复制工作表(VBA)

 牵牛360 2016-12-26

有时候在工作中,在一个EXCEL工作簿中有一个原始的工作表格模板,但工作需要,需要将这个模板复制多份成为多个工作表,如果数量较多,一个个的慢慢复制比较慢。那很简单的一段VBA代码即可搞定。

EXCEL复制工作表(VBA)

工作簿中的一个工作表模板

EXCEL复制工作表(VBA)

按Alt+F11进入VBE,插入模块,写上上面这小段代码即可

EXCEL复制工作表(VBA)

运行宏

EXCEL复制工作表(VBA)

输入数量

EXCEL复制工作表(VBA)

我输入了3,最终就成了将第一张表复制了三次的工作簿

当然,这个就是简单的写了写,需要完善之处还有很多,由于就是一个简单的复制,就不细写了。但可以提醒几点:

1、在输入复制工作表个数的输入框里,如果不是数字或输入的数字小于0;

2、如果运行宏后我不想复制了,单击了取消按钮;

3、我如果不是复制第一张工作表呢。。。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多