将总表数据自动分类到多个不同的sheet工作表

1、考虑总表数据量一般比较大，为节约时间，使用两个vba程序来实现第一步：使用关键列（即用哪列数据来分类数据）建立不同的sheet工作表并命名第二步：将总表数据按关键列自动分类

6、第二步：分类数据。新增一个模块，将以下代码复制进去，参数可以灵活运用。Sub fendata()&#泌驾台佐39;分类数据 将汇总数据分类到不同的工作表中Dim b As Integer, nn As String, rng As Range '定义变量b = 3 '初始值，从第3行数据开始（标题占了2行）nn = ActiveSheet.Cells(b, "A").Value ' 获取当前工作表，也就是“神山数据总表”A列数据的名称，初始值为A3，赋值给nnDo While nn <> "" '循环条件 若nn的值不为空（即关键列，A列数据不为空）Set rng = Worksheets(nn).Range("A100000").End(xlUp).Offset(1, 0)'动态定位nn工作表的空单元格； range（"A100000"）即单元格A100000；end（xlup）：根据A100000 向上end得到A2（向上得到不为空的单元格，这里为A2）'offset（1,0） 以不为空的单元格为起点移动1行，0列，这里得到A3.执行循环时，每次就不一样ActiveSheet.Cells(b, "A").Resize(1, 4).Copy rng '将当前数据整行拷贝到新的单元格中b = b + 1 '行加1nn = Cells(b, "A").Value '同时将nn往下寻找LoopEnd Sub

8、右键点击按钮，选择指定宏

10、点击按钮，可以看到已自动将神山数据总表的数据分类到各个新建的工作表中了。