- ©«¤l
- 142
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 295
- §@·~¨t²Î
- win10 64¦ì¤¸
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW °ª¶¯¥«
- µù¥U®É¶¡
- 2015-7-18
- ³Ì«áµn¿ý
- 2024-11-5
|
¥»©«³Ì«á¥Ñ lcctno ©ó 2015-8-28 08:17 ½s¿è
³o¬O¨Ï¥Î¿ý»s¥¨¶°ªº¤è¦¡±o¨ìªº
½Æ»sB1 µM«á¿ï¾Ü©Ê¶K¤W®æ¦¡©óA1 ¨ä¹ê¹³§Ú¬Oªì¾ÇªÌ §Ú¤j³¡¤À¬O¨Ï¥Î¿ý»sªº¤è¦¡ µM«á¦A¹Á¸ÕÁYµuµ{¦¡½X
Sub Macro1()
'
'
' 2015/08/28 ¿ý»sªº¥¨¶°
'
'
Selection.Copy
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub |
|