- ©«¤l
- 112
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 136
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-12
- ³Ì«áµn¿ý
- 2022-11-29

|
·Ð½Ð¦U¦ì¤j¤jÀ°¦£¬Ý¬Ýþ¸Ì¥X¿ùÅo¡AÁÂÁ¡C
§Q¥Îa1~a20ªºÅܤƨӦ۰ʧó·sӪѷí¤ÑªºÅܤơC
³o¬O§Úªº¼gªk¡G¥ý¦æ©I¥srenumber
Sub renumber()
Windows("test.xls").Activate
Sheets("cji32").Select
Range("b1:b20").Select
Selection.Copy
Range("a1").Select
ActiveSheet.Paste
Application.OnTime Now + TimeValue("00:00:5"), "renumber2"
End Sub
Sub renumber2()
Sheets("cji32").Select
Range("c1:c20").Select
Selection.Copy
Range("a1").Select
ActiveSheet.Paste
End Sub
¦Ó iqy Àɼgªk¦p¤U¡G
WEB
1
http://tw.stock.yahoo.com/q/q?s=["¥N¸¹","¥N¸¹"]
Selection=7
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False |
|