lpk187

¦^´_ 1# woodyliu
§Ú´£¨Ñ¤U¦C¦UºØ¼gªk¡A§A¥ÎF8³v¦æªº°õ¦æ¬Ý¬Ý¡A¦bÆ[¬Ýªº¹Lµ{¤¤½Ð¥´¶}"°Ï°ìÅܼƵøµ¡"¨ÓÆ[¹îÅܼƪºÅܤƷ|§óÁA¸Ñªº

¤U¸ü (52.53 KB)

2015-7-24 11:09

1. Public Sub Ex()
   
2. aa = Cells(Rows.Count, 1).End(xlUp).Row
   
3. Range("A1:B" & aa).Select
   
4. aa = Cells(Rows.Count, 1).End(xlUp).Address
   
5. Range("A1:" & aa).Select
   
6. 
   
7. aa1 = Cells(1, 1).End(xlDown).Row
   
8. Range("A1:B" & aa1).Select
   
9. aa1 = Cells(1, 1).End(xlDown).Address
   
10. Range("A1", aa1).Select
    
11. 
    
12. bb = Cells(Rows.Count, 2).End(xlUp).Row
    
13. Range("A1:B" & bb).Select
    
14. bb = Cells(Rows.Count, 2).End(xlUp).Address
    
15. Range("A1", bb).Select
    
16. 
    
17. bb1 = Cells(1, 2).End(xlDown).Row
    
18. Range("A1:B" & bb1).Select
    
19. bb1 = Cells(1, 2).End(xlDown).Address
    
20. Range("A1", bb1).Select
    
21. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 1# woodyliu

¤]¹Á¸Õ¥Î Range ("A2: i ") ¡A³]©w for i = (³oÃä§Ú¹Á¸Õ¥Î¤W­±¦n´XºØ¤è¦¡)
§A¤W­±¬õ¦rªº³¡¥÷»yªk¤]¼g¿ù¦bÂù¤Þ¸¹¤¤(")ªº¦r¬°¦r¦ê¡Ai¬OÅܼơA­n¥Î³sµ²ªº¤è¦¡¨Ó³sµ²¤~¯àŪ¨ìÅܼÆiªº­È
Range ("A2: " & i)³o¸Ìiªº­È¥²¶·¬°Àx¦s®æªº¦ì¸mAddress¡A¬°¦r¦ê
Range ("A2: B" & i)³o¸Ìiªº­È«h¬O¬°¦C¸¹Row¡A¬°¼Æ¦r
¤W­±2ºØ¼gªk¬Ò¥i¡A¥u¬O©w¸qiÅܼƮɤ£¦P½}¤F

lpk187

¦^´_ 5# woodyliu


    aa¡Bbb ¥u¬O¤è«K¥´¦r¦Ó¤w¡I
½Ð°Ñ¦ÒVBA¤¤ªº«Å§iÅܼƻ¡©ú