- ©«¤l
- 913
- ¥DÃD
- 150
- ºëµØ
- 0
- ¿n¤À
- 1089
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-28
- ³Ì«áµn¿ý
- 2023-7-19
 
|
¦^´_ 4# ML089
½Ð°Ý¤j¤j,
§Ú쥻ªº¥Î·N¬O·QnÀ³¥Î¦Ûq¸q·í¦¨¤@Ó¬¡°Êªº½d³ò,¦]¬°§Y¨Ï½d³ò¦³ÅܰÊ,쥻ªºVBA¨Ã¤£»Ýn¥h§ó§ï,´N¥i¥H§ä¨ì©Ò»Ýnªº½d³ò,
¨Ò¦p:¨Ó·½Àɪº¦Ûq¸q¬O"BF.ªL¤f¥þ¥x",¥ØªºÀɪº¦Ûq¸q¬O"¥X³f",¨C¤Ñ³£ncopy ¸ê®Æ¶K¨ì·í¤Ñ¥X³fªº¤é´Á¤u§@ªí¤¤,
¥i¥H¥Î¥H¤UVBA¥h§@·~,¦]¬°n¶Kªº¸ê®Æ«Ü¦h,¨C¤Ñ³£¤@¼Ò¤@¼Ëªº°Ê§@,¥i¥H¸`¬Ù¤@¨Ç®É¶¡,©Ò¥H¦Ûq¸q§Ú¬O·Q¥Î¦b³o¤è±ªº,
·Q½Ð°Ý¹ï©ó§Ú·Qnªº»Ý¨D,¬O¤£¬O¦³¨ä¥¦¤èªk¥i¥H¸Ñ¨M?- Windows("²z³f³æ_All.xlsx").Activate
- Application.Goto Reference:="BF.ªL¤f¥þ¥x"
- Selection.Copy
- Windows("NEW¤ñµá¦hªL¤f²z³fªí108 4¤ë.xls").Activate
- Application.Goto Reference:="¥X³f"
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
½Æ»s¥N½X |
|