n7822123

1. Sub getSheetName()
   
2. 
   
3. Dim i As Integer
   
4. Dim shtname As Integer
   
5. 
   
6. Worksheets("aa").Select
   
7. Range("B1").CurrentRegion.Clear
   
8. 
   
9. Range("B1").Select
   
10. 
    
11. n = 1
    
12. 
    
13. For i = 7 To Worksheets.Count
    
14. 
    
15.   Range("B" & n).Resize(20) = Worksheets(i).Name
    
16. 
    
17.   For j = 1 To 20
    
18.     Range("A" & n) = j
    
19.     n = n + 1
    
20.   Next j
    
21. Next i
    
22.    
    
23. End Sub

½Æ»s¥N½X

½Ð¦¬¤U¡A:D