Hsieh

1. Sub save_out()
   
2. Dim a As Range
   
3. With ¤u§@ªí1
   
4.    Set Rng = .Range("A3").Resize(2, 35)
   
5.    For Each a In .Columns("A:A").SpecialCells(xlCellTypeConstants, 1)
   
6.    f = a.Offset(, 1)
   
7.    If f = "" Then GoTo 10
   
8.    With Sheets.Add
   
9.       Rng.Copy .[A3]
   
10.       a.Resize(4, 35).Copy .[A5]
    
11.       .Move
    
12.      With ActiveWorkbook
    
13.         .SaveAs "D:\" & f & ".xlsx"
    
14.         .Close
    
15.      End With
    
16.     End With
    
17. 10
    
18.    Next
    
19. End With
    
20.      
    
21. End Sub

½Æ»s¥N½X