·s¤âµo¤å´ú¸Õ

looneqza

test, test , ·s¤âµo¤å´ú¸Õ

1. Sub stocklist¶×¤J()
   
2.     Application.ScreenUpdating = False
   
3.     Range("A1").CurrentRegion.Offset(1, 0).ClearContents
   
4.     Sheets("·í¨R²v¤W").Activate
   
5.     Range("A1").CurrentRegion.Offset(0, 1).Select
   
6.     Selection.Copy
   
7.     Sheets("Goodinfo").Activate
   
8.     Range("A2").Select
   
9.     ActiveSheet.Paste
   
10.     Sheets("·í¨R²v¤U").Activate
    
11.     Range("A1").CurrentRegion.Offset(0, 1).Select
    
12.     Selection.Copy
    
13.     Sheets("Goodinfo").Activate
    
14.     Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    
15.     ActiveSheet.Paste
    
16.     Range("A2").Select
    
17.     Sheets("·í¨R²v¤W").Activate
    
18.     Range("A2").Select
    
19.     Sheets("·í¨R²v¤U").Activate
    
20.     Range("A2").Select
    
21.     Sheets("Goodinfo").Activate
    
22. End Sub

½Æ»s¥N½X

looneqza

¦^Âдú¸Õ ~~

ryan456

¦^´_ 1# looneqza


    ´ú¸Õ~