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

pupai

±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

yen956

¦^´_ 1# pupai
¬O¨C¦¸§¡±NSheet1 ÄæA ªº¸ê®Æ, ¥þ³¡³Æ¥÷¨ì Sheet2?
¦pªG¬O, ¸Õ¸Õ³o­Ó

1. Sub Command()
   
2.     Dim sh1, sh2 As Worksheet
   
3.     Dim lastRow1, lastRow2 As Integer
   
4.    
   
5.     Set sh1 = Sheets("Sheet1")
   
6.     Set sh2 = Sheets("Sheet2")
   
7.     lastRow1 = sh1.[A2].End(xlDown).Row
   
8.     lastRow2 = sh2.[A65536].End(xlUp).Row
   
9.    
   
10.     '°²©w­n½Æ»sªº¸ê®Æ, ¨C¦¸§¡±q sh1.[A2]¶}©l
    
11.     '±NSheet1 ÄæA ªº¸ê®Æ, ¥þ³¡³Æ¥÷¨ì Sheet2ÄæA³Ì¤U­±
    
12.     sh1.[A2].Resize(lastRow1 - 1, 1).Copy sh2.[A2].Offset(lastRow2 - 1, 0)
    
13. End Sub

½Æ»s¥N½X

pupai

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

pupai

¦^´_ 3# pupai


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

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

½Æ»s¥N½X

owen06

¦^´_ 3# pupai
§A¸Õ¸Õ³o¼Ë¦p¦ó

1. Sub ¥¨¶°1()
   
2. Sheets("¤u§@ªí1").Select
   
3. Sheets("¤u§@ªí1").Range("A2:B" & Sheets("¤u§@ªí1").[a65536].End(3).Row).Copy
   
4. Sheets("¤u§@ªí2").Select
   
5. Sheets("¤u§@ªí2").[a65536].End(3).Offset(1, 0).PasteSpecial xlPasteValues
   
6. End Sub

½Æ»s¥N½X

pupai

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

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

owen06

§ï½d³ò´N¦n¤F

1. Sub ¥¨¶°1()
   
2. Sheets("¤u§@ªí1").Select
   
3. Sheets("¤u§@ªí1").Range("A2:B2").Copy
   
4. Sheets("¤u§@ªí2").Select
   
5. Sheets("¤u§@ªí2").[a65536].End(3).Offset(1, 0).PasteSpecial xlPasteValues
   
6. End Sub

½Æ»s¥N½X

¦^´_ 6# pupai

¦pªG§A¨C¦¸­n½Æ»sªº¸ê®Æ³£©T©w¥u¦³A2:B2¡A¨º§ó²³æ

1. Sub ¥¨¶°1()
   
2. Sheets("¤u§@ªí2").[A65536].End(3).Range("A2:B2") = Sheets("¤u§@ªí1").Range("a2:b2").Value
   
3. End Sub

½Æ»s¥N½X

pupai

¦^´_ 7# owen06


    ¤F¸Ñ
ÁÂÁÂ

peter95

·PÁ owen06¤j¤j´£¨Ñ¦n¤èªk
¥i¤£¥i¥H§â"¤u§@ªí2"±q  B2  B3¶}©l¶K
¦]¬°¤p§ÌªºAÄæ¬O¤é´Á

¦A¦¸·PÁÂÀ°¦£
~~~~~~~~~~~~~
Sub ¥¨¶°1()
Sheets("¤u§@ªí1").Select
Sheets("¤u§@ªí1").Range("A2:B2").Copy
Sheets("¤u§@ªí2").Select
Sheets("¤u§@ªí2").[a65536].End(3).Offset(1, 0).PasteSpecial xlPasteValues
End Sub
~~~~~~~~~~~~~~~~~

lpk187

¦^´_ 9# peter95


    Sheets("¤u§@ªí2").[B65536].End(3).Offset(1, 0).PasteSpecial xlPasteValues