- ©«¤l
- 67
- ¥DÃD
- 21
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-21
- ³Ì«áµn¿ý
- 2019-4-23
|
[µo°Ý] ¤u§@ªíA»P¤u§@ªíB¤§¶¡¨Ó¦^½Æ»s
½Ð°Ý¦U¦ì«e½ú¡G
¦pÃD¡A¤@¶}©l±q¤u§@ªíA½Æ»s¤@©w½d³ò¨ì¤u§@ªíB«á¡A¦A¦^¨ì¤u§@ªíA½Æ»s¤@©w½d³ò¨ì¤u§@ªíB¡A¦p¦¹³sÄòª½¨ì¸ê®Æ½Æ»s§¹¦¨¡C
½Ð°Ý¦b¤u§@ªíB½Æ»s§¹¦¨«á¦p¦ó¦^¨ì¤u§@ªíA©O¡HµM«á¡AÄ~Äò±q¤u§@ªíA½Æ»s¤@©w½d³ò¨ì¤u§@ªíB¡C
P.S.¤u§@ªíAªº¦WºÙ·|ÅÜ°Ê¡A¤£¬O©T©wªº¡C§Ú¥ÎActiveSheet.Name¨Ó¨ú±o¤u§@ªíAªº¦WºÙ¡A½Æ»s§¹«á·|°±¦b¤u§@ªíB¡C- Sheets(ActiveSheet.Name).Select
- Range("N14").Select
- Selection.Copy
- Sheets("B").Select
- Range("C18").Select
- Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
- :=False, Transpose:=False
½Æ»s¥N½X |
|