[µo°Ý] ½Ð±Ð ¤å¦rÃþ«¬¼Æ¦r»¼¥[°ÝÃD

yunshiow

¤p§Ì¦³­Ó°ÝÃD½Ð±Ð §Ú¦³¨â­Ó¼Æ¦r(¤å¦rÃþ«¬) ­n¨ú¤¤¶¡ªº­È
Á|¨Ò:005660~005999  ­n¦C¥X¨Ó:005560¡A005561¡A005562¡A....005998¡A005999

1. Sub test()
   
2. 
   
3. Dim ws As Excel.Worksheet
   
4. Set ws = ThisWorkbook.Worksheets(1)
   
5.         
   
6. Dim strStart As String
   
7. Dim strEnd As String
   
8. 
   
9. strStart = ws.Cells(1, 1)
   
10. strEnd = ws.Cells(2, 1)
    
11. 
    
12. 'strStart  = 005560
    
13. 'strEnd = 005999
    
14. 
    
15. I = 1
    
16. 
    
17. For Y = strStart To strEnd
    
18. ws.Cells(I, 2) = Trim(Y)
    
19. I = I + 1
    
20. Next Y
    
21. 
    
22. End Sub

½Æ»s¥N½X

¦ý¬O¶]¥X¨Ó³£¬O5560¡A5561¡A5562¡A....5998¡A5999
·Q½Ð±Ð¦U¦ì¤j¤j¥i§_«ü¾É»Ý­n­×§ï¨º³¡¤À©O?

yunshiow

«D±`·PÁ¤j¤jªº«ü¾É  :)