关于Excel的数据提取分类简单化

一.工作中经常会遇到提数的问题，数据小的还能接受，但是如果超过一万、一百万的数据要整理的话就比较麻烦了。

二.针对今天的工作任务整理
任务：提取贵银联通道的所有签约数据，然后分批进行换签
1.提取数据，数据有一百多万

2.对这一百万数据进行分批，五万一个表（由于xls支持的最大数据量也超不过十万）

3.数据提完后五万一个表的话，直接操作很容易多复制了或者少复制了，这就需要用到宏语言了

三.不废话直接教程走起

1.一般的office都有宏功能，wps需要安装插件才能启用宏，插件网上都有，记得一定要对应版本，否则还是不能正常使用，以下是由wps进行操作，因为office收费太贵，买不起。

2.打开存有100万的xlsx文件

3.找到开发工具 →     VB编辑器 

图1

4.打开编辑器后找到sheet双击，可以看到空白区域 用于输入要执行的代码

图2

5.输入代码到空白区域，代码：
Sub aa()

Dim i&

For i = 1 To 1000000 Step 50000

    Sheets.Add after:=Sheets(Sheets.Count)

    Sheets(Sheets.Count).Name = i

    Range("a" & i & ":iv" & i + 49999).Copy Sheets(Sheets.Count).[a1]

Next i

End Sub

office操作方法：右键工作表标签——查看代码——粘贴代码——运行代码（F5键）

图3

6.按F5执行 就可以了，可以不用关闭执行代码的页面，因为还要继续分表操作。执行结果如下图生成了20个sheet表

图4

7.可以把sheet表名改成自己喜欢的名称，因为生成的新excel表就是就是以这个为准的，然后继续执行代码
Private Sub分拆工作表()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

MsgBox "文件已经被分拆完毕!"

   End Sub

完成后，在你放原表的文件夹下就出现了新生成的新表了。

图5

附件为wps2019宏激活插件：

https://pan.baidu.com/s/1MtWuzJclhWjZgpAe2a1rKg
提取码：akav