³QÁôÂêº sheet ­n¦p¦ó½Æ»s¶K¤W¸ê®Æ

sghsgh1111

1. Sub History1()
   
2. 
   
3.     SheetShow
   
4.     Application.ScreenUpdating = False
   
5.    
   
6.     If Sheets("list").Range("A6") = "" Then Exit Sub
   
7.    
   
8.     Sheets("List").Select
   
9. 
   
10.     Range("L5:L20000").Select
    
11.     Selection.Copy
    
12.     Sheets("WorkTime").Select
    
13.     Range("I21").Select
    
14. SheetShow
    
15.     ActiveSheet.Paste
    
16. 
    
17.     SheetShow
    
18.     Application.ScreenUpdating = False
    
19.     Sheets("List").Select
    
20.     Range("A5:F5").Select
    
21.     Range(Selection, Selection.End(xlDown)).Select
    
22.     Selection.Copy
    
23.     Sheets("WorkTime").Select
    
24.     Range("A21").Select
    
25. SheetShow
    
26.     ActiveSheet.Paste
    
27.    
    
28.     SheetShow
    
29.     Application.ScreenUpdating = False
    
30.     Sheets("List").Select
    
31.     Range("I5:J5").Select
    
32.     Range(Selection, Selection.End(xlDown)).Select
    
33.     Selection.Copy
    
34.     Sheets("WorkTime").Select
    
35.     Range("G21").Select
    
36. SheetShow
    
37.     ActiveSheet.Paste
    
38. 
    
39. End Sub

½Æ»s¥N½X

mark15jill

sghsgh1111 µoªí©ó 2015-3-19 01:00

1.     Sheets("List").Range("L5:L20000").Copy
   
2.     Sheets("WorkTime").Range("I21").PasteSpecial

½Æ»s¥N½X

Application.ScreenUpdating = False ¥u­n¦b¤@¶}©lÃö±¼  µ¥¨ì³Ì«á§A·Q¶}¦b¶}  ¤£¥Î¤@ª½­«½ÆÃö³¬...

sghsgh1111

ÁÂÁÂmark15jill ªº«ü¾É, §Ú¦A¸Õ¤@¤U¬Ý¬Ý