- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-9-13
- ³Ì«áµn¿ý
- 2015-12-21
|
[µo°Ý] ½Ð±Ð ¤å¦rÃþ«¬¼Æ¦r»¼¥[°ÝÃD
¤p§Ì¦³Ó°ÝÃD½Ð±Ð §Ú¦³¨âӼƦr(¤å¦rÃþ«¬) n¨ú¤¤¶¡ªºÈ
Á|¨Ò:005660~005999 n¦C¥X¨Ó:005560¡A005561¡A005562¡A....005998¡A005999- Sub test()
- Dim ws As Excel.Worksheet
- Set ws = ThisWorkbook.Worksheets(1)
-
- Dim strStart As String
- Dim strEnd As String
- strStart = ws.Cells(1, 1)
- strEnd = ws.Cells(2, 1)
- 'strStart = 005560
- 'strEnd = 005999
-
- I = 1
-
- For Y = strStart To strEnd
- ws.Cells(I, 2) = Trim(Y)
- I = I + 1
- Next Y
- End Sub
½Æ»s¥N½X ¦ý¬O¶]¥X¨Ó³£¬O5560¡A5561¡A5562¡A....5998¡A5999
·Q½Ð±Ð¦U¦ì¤j¤j¥i§_«ü¾É»Ýnק墨³¡¤À©O? |
|