li_hsien

¦^´_ 1# lp986749

À³¸Ó¬O¹³³o¼Ë§a

§Ú¤À¨â³¡¤À
test1¬O§A¤W¥b³¡¨º­Ó
test2¬O¤U­±¨º­Ó

°Ñ¦Ò¬Ý¬Ý

1. Sub test1()
   
2. 
   
3.     Dim i As Integer
   
4.     Dim j As Integer
   
5.    
   
6.         i = 1
   
7.         j = 7
   
8.         
   
9.         Rows(i & ":" & j).Select
   
10.    
    
11. End Sub
    
12. 
    
13. Sub test2()
    
14. 
    
15.     Dim r As Integer
    
16.    
    
17.         r = 9
    
18.         
    
19.         Range("A" & r).Select
    
20.         
    
21. End Sub

½Æ»s¥N½X