最近大海所在的公司在做考研相关的培训业务，老板丢给我一个excel表格，里面有6000多个单词，要求每100个单词放到一个独立的sheet里，手动复制的话感觉怎么也得干一下午吧，本着懒惰是人类科技进步的第一生产力的原则，结合搜索，搞出了一个宏编程的批处理方法。
1、首先不管是wps还是office，都需要开启宏编程，没有的去自己搜下
2、在原sheet里查看代码，这个office和wps位置还不同，office是在sheet上右键-查看代码，wps是工具-开发工具-vb编辑器-sheet上右键-查看代码
3、把代码贴进去，代码如下
Sub test()
Dim rng As Range, i%
Set rng = Sheets(1).[a1:d100]
For i = 1 To 100
With Sheets.Add(after:=ActiveSheet)
.Name = (i - 1) * 100 + 1 & "-" & i * 100
rng.Copy .[a1]
Set rng = rng.Offset(100)
End With
Next
End Sub
4、运行即可
没过几分钟，60多个sheet就搞定了
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
