- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 66
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- OFFICE2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-10-19
- ³Ì«áµn¿ý
- 2020-6-23
|
¥»©«³Ì«á¥Ñ ªü©v ©ó 2017-9-28 08:38 ½s¿è
¦^´_ 4# prin.huang
prin.huang ¤j¤j
¤p§Ì§Ú¬O·s¤â¡A¥Î¤£¥XÓ©Ò¥HµM¨Ó¡A©Ò¥H¤W¨Ó½Ð±Ð¡A«ô°U
~¥H¤U¬O§Ú¿ýªº¥¨¶°~
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'
'
Range("E5:F15").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Range("E3").Select
Application.CutCopyMode = False
Range("E5:F15").Select
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
Application.CutCopyMode = False
Range("E5:F15").Select
Selection.Copy
Range("I5").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False
Range("A1").Select
End Sub |
|