- ©«¤l
- 184
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 407
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-8-19
- ³Ì«áµn¿ý
- 2025-6-26

|
¦^´_ 2# yen956
ÁÂÁ±zªº¦^ÂÐ
¤£¹L§Ú¥u·|¥Î²³æ¿ý»s¥¨¶°ªº¤è¦¡
½Ð°Ý¤U±ªº¥¨¶°n¦p¦ó×§ï,§Ú¤~¥i¥H¦b¤£¦P¤À¶¶K¤W¼ÆÈ
Sub ¥¨¶°1()
Sheets("¤u§@ªí1").Select
Range("A2:B2").Select
Selection.Copy
Sheets("¤u§@ªí2").Select
Range("A1").Select
Selection.End(xlDown).Select
Sheet2.Range("A" & ActiveCell.Row + 1).Value =
¡¥Selection.Insert Shift:=xlDown
;Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
¡¥:=False, Transpose:=False
End Sub |
|