excel 宏 把一个工作表按照某几个列拆分为多个工作表

前言

这两天接触到excel比较多，才发现使用excel不仅仅是简单的复制粘贴。
excel vb代码是非常强大，学会使用一些常用的功能，可以大大减少工作量。
废话不多少，来看
如下表格学生成绩表

如果我们要把这个表按照班级拆分为三个表，可能一般我们都是通过筛选后复制粘贴。但这是最土的办法，并且如果分类很多，数据量又大的话，非常浪费时间。
来看使用excel宏轻松搞定。excel宏代码如下：

Option Explicit Option Base 1 Sub 按指定列分组拆分数据() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim self As Worksheet Set self = ActiveSheet Dim nLastRowNum As Long Dim nLastColumnNum As Long Dim i As Long ' 删除其他的sheet For i = Sheets.Count To 1 Step -1 If Sheets(i).Name <> self.Name Then Sheets(i).Delete End If Next i Application.DisplayAlerts = True Application.ScreenUpdating = True '获取全部数据范围 nLastRowNum = Cells(Rows.Count, 1).End(xlUp).Row nLastColumnNum