ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §â«ü©w¸ê®Æ½Æ»s¨ì¤£¦Pªº¤À­¶ªº³Ì«á¤@¦C¤U­±

[µo°Ý] §â«ü©w¸ê®Æ½Æ»s¨ì¤£¦Pªº¤À­¶ªº³Ì«á¤@¦C¤U­±

±z¦n
§Ú·Q§âsheet1 «ü©wªºÄæ¦ì­È½Æ»s¨ìSheet2³Ì«á¤@¦C¤U­±
¦Ó¥B¨C¦¸½Æ»s³£¥i¥H«ü©w¨ìSheet2³Ì«á¤@¦Cªº¸ê®Æªº¤U­±
¦ý½Æ»sªº»yªk§Ú·d¤£­q
½Ð°Ý¸Ó¦p¦ó³B²z
ÁÂÁÂ!!

¥H¤Uµ{¦¡¡A½ÐÀ°§Ú«üÂI¤@¤U
Sub ¥¨¶°1()
Range("A1").Select
Selection.End(xlDown).Select
Sheet2.Range("A" & ActiveCell.Row + 1).Value = ¡§¡¨  
End Sub

¦^´_ 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

TOP

¦^´_ 3# pupai


    ½Ð°Ý
³o¤@¬q¥¨¶°¬°¤°»ò¦b2007ªºª©¥»¥i¥H¶]±o°Ê
2010´N¤£¥i¥H©O
  1. Sub Macro1()

  2. Sheets("µ²ªG").Select
  3. Range("A2:B2").Select
  4. Selection.Copy
  5. Sheets("²M³æ").Select
  6. '¨C¦¸½Æ»s³£¥i¥H«ü©w¨ìSheet2³Ì«á¤@¦Cªº¸ê®Æªº¤U­±
  7. Range("A1").Select
  8. Selection.End(xlDown).Select
  9. Sheet3.Range("A" & ActiveCell.Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  10. :=False, Transpose:=False
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_  pupai
§A¸Õ¸Õ³o¼Ë¦p¦ó
owen06 µoªí©ó 2014-5-14 11:19



   
¨º¦pªG§Ú¥u­n½Æ»s¤u§@ªí1ªºRange("A2:B2")ªº¸ê®Æ
½Ð°Ý­n¦p¦ó­×§ï©O
ÁÂÁÂ

TOP

¦^´_ 7# owen06


    ¤F¸Ñ
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD