总表数据分到分表问题，写了点代码，有点问题，请修改一下

hjhjxb

分班.zip (25.85 KB, 下载次数: 25)

2012-5-26 20:04 上传

点击文件名下载附件 总表数据分到分表问题

无聊的疯子

使用高级筛选就可以了

修改一下添加上说明:

1. 
   
2. Sub cc()
   
3. Dim X As Integer, Sh As Worksheet
   
4.   Set Sh = Sheets("九年级")   '指定变量 Sh 为 九年级工作表
   
5.   Sh.Range("n2") = "班级"     '九年级的 N2 单元格赋值
   
6.   For X = 1 To 6              '循环 1到6  这6个目标表
   
7.     With Sheets("0" & X)
   
8.       .Range("2:1000").Clear  '清除2:1000行内容及格式
   
9.       Sh.Range("n3") = X      '九年级的 N3 单元格赋值
   
10.       Sh.Range("b2:K160").AdvancedFilter 2, Sh.Range("N2:N3"), .Range("A2"), False
    
11.       '对九年级的 B2:k160 区域执行高级筛选,一共4个参数
    
12.       '2 ,表示将结果复制到新位置
    
13.       'Sh.Range("N2:N3") 表示条件区域
    
14.       '.Range("A2")  表示被复制到的目标区域
    
15.       'false 表示复制所有数据
    
16.     End With
    
17.   Next
    
18.   Sh.Range("N2:N3").Clear
    
19. End Sub
    
20. 
    
21. 
    

复制代码

windimi007

无聊的疯子 发表于 2012-5-26 20:19
使用高级筛选就可以了

修改一下添加上说明:

学习一下疯子的解题思路哈！{:2912:}

无聊的疯子

windimi007 发表于 2012-5-26 20:28
学习一下疯子的解题思路哈！

回007,这个东西,数据量不多还可以!!

如果要生成的表有N多个,就会感觉到慢啦!!

用数组都比他快!!{:281:}

hjhjxb

无聊的疯子 发表于 2012-5-26 20:19
使用高级筛选就可以了

修改一下添加上说明:

非常感谢，方法非常精练直接效果也非常好，学习了，还有其他 方法吗，例如本人用的那种笨方法可以行得通吗。非常负责任的大侠，我们菜鸟就需要有注释的程序。

xpw6061

hjhjxb 发表于 2012-5-27 08:26
非常感谢，方法非常精练直接效果也非常好，学习了，还有其他 方法吗，例如本人用的那种笨方法可以行得通吗 ...

给一个其它方法: 分班.zip (28.15 KB, 下载次数: 16)

2012-5-27 09:35 上传

点击文件名下载附件