菜鸟谈VBA最最基础入门《原创》

老伙计2008

刚学VBA，这么一看，我就有信心了，谢谢版主

故事

学生花名册汇总——故事.rar (25.09 KB, 下载次数: 1392)

2009-8-29 15:25 上传

点击文件名下载附件

上交作业，再次谢谢叶枫老师。辛苦了！

xljzhzhf

很好的东西！我是一个想去学VBA而不敢去学的人啊，看看可以不？

moon2778

有需求就有市场是不是？ 我想学数组和类，诶。。。。

几小米

收藏了。认真学习一下

weixiaolin

好经典的贴啊！谢谢版主了！

guxiaoxiong

Appreciate your effort on training our such rookies

宝贝有酒窝

我的作业
原本是想在利用字段调用子表合并到汇总表中的但是目前的技术实现不了
另外绿色底纹被我覆盖了……

jiminyanyan

原帖由 宝贝有酒窝 于 2009-8-30 15:51 发表
我的作业
原本是想在利用字段调用子表合并到汇总表中的但是目前的技术实现不了
另外绿色底纹被我覆盖了……

1. 
   
2. Sub mysub()
   
3.   Dim start As Double, sh As Worksheet, B As Integer, j As Integer
   
4.   start = Timer
   
5.   Application.ScreenUpdating = False
   
6.   Sheets("外在本就读花名册").Range("b3:f65536") = ""
   
7.   For Each sh In ThisWorkbook.Worksheets
   
8. 
   
9.     If sh.Name <> "外在本就读花名册" Then
   
10.         B = sh.[B65536].End(xlUp).Row
    
11.         j = Sheets("外在本就读花名册").[B65536].End(xlUp).Row + 1
    
12.         sh.Range("b3 :b" & B).Copy
    
13.         Sheets("外在本就读花名册").Cells(j, 2).PasteSpecial Paste:=xlPasteValues
    
14.         sh.Range("e3 :e" & B).Copy
    
15.         Sheets("外在本就读花名册").Cells(j, 4).PasteSpecial Paste:=xlPasteValues
    
16.         sh.Range("k3 :k" & B).Copy
    
17.         Sheets("外在本就读花名册").Cells(j, 6).PasteSpecial Paste:=xlPasteValues
    
18.         sh.Range("l3 :l" & B).Copy
    
19.         Sheets("外在本就读花名册").Cells(j, 5).PasteSpecial Paste:=xlPasteValues
    
20.      End If
    
21.      
    
22.   Next
    
23. 
    
24.     MsgBox "程序共执行了" & Timer - start & "秒!"
    
25.      Application.ScreenUpdating = True
    
26. End Sub
    
27. 
    
28. 
    

复制代码

在宝贝的基础上改的

[ 本帖最后由 jiminyanyan 于 2009-8-30 17:48 编辑 ]

weixiaolin

楼主太强了，看完收益匪浅！thanks a lot!