ML089

¦^´_ 1# ciboybj

1. Sub ex()
   
2. 
   
3.     shs = Array("sheet1", "sheet2")
   
4. 
   
5.     For Each sh In shs
   
6. 
   
7.         Sheets(sh).Select 'Activate
   
8. 
   
9.         EndRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
10.         Set Rng = Range("A2:A" & EndRow)
    
11.         
    
12.         '¤èªk1 ÀRºA½d³ò¦WºÙ¡AAÄæ¸ê®Æ¥HA1¬°¦WºÙ
    
13.         Names.Add Name:=[A1], RefersTo:=Rng
    
14.         
    
15.         '¤èªk2 °ÊºA½d³ò¦WºÙ¡ABÄæ¸ê®Æ¥HB1¬°¦WºÙ
    
16.         Names.Add Name:=[B1], RefersTo:="=Offset($B$1,,,COUNTA($B:$B)-1)"
    
17. 
    
18.     Next
    
19. End Sub

½Æ»s¥N½X