owen06

1. Sub quest1()
   
2. i = [a1].Value
   
3. j = [a2].Value
   
4. Rows(i & ":" & j).Select
   
5. End Sub
   
6. 
   
7. Sub quest2()
   
8. r = [b1].Value
   
9. Range("A" & r).Select
   
10. End Sub

½Æ»s¥N½X

¦^´_ 1# lp986749