|
|
原帖由 宝贝有酒窝 于 2009-8-30 15:51 发表 
我的作业
原本是想在利用字段调用子表合并到汇总表中的但是目前的技术实现不了
另外绿色底纹被我覆盖了……
- Sub mysub()
- Dim start As Double, sh As Worksheet, B As Integer, j As Integer
- start = Timer
- Application.ScreenUpdating = False
- Sheets("外在本就读花名册").Range("b3:f65536") = ""
- For Each sh In ThisWorkbook.Worksheets
- If sh.Name <> "外在本就读花名册" Then
- B = sh.[B65536].End(xlUp).Row
- j = Sheets("外在本就读花名册").[B65536].End(xlUp).Row + 1
- sh.Range("b3 :b" & B).Copy
- Sheets("外在本就读花名册").Cells(j, 2).PasteSpecial Paste:=xlPasteValues
- sh.Range("e3 :e" & B).Copy
- Sheets("外在本就读花名册").Cells(j, 4).PasteSpecial Paste:=xlPasteValues
- sh.Range("k3 :k" & B).Copy
- Sheets("外在本就读花名册").Cells(j, 6).PasteSpecial Paste:=xlPasteValues
- sh.Range("l3 :l" & B).Copy
- Sheets("外在本就读花名册").Cells(j, 5).PasteSpecial Paste:=xlPasteValues
- End If
-
- Next
- MsgBox "程序共执行了" & Timer - start & "秒!"
- Application.ScreenUpdating = True
- End Sub
[ 本帖最后由 jiminyanyan 于 2009-8-30 17:48 编辑 ] |
|
楼主: ggsmart
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2009-8-29 15:14
发表于 2009-8-30 10:46
