oobird

1. Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
   
2. With Sheet1
   
3. .Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.Copy Sheet2.[a7]
   
4. End With
   
5. End Sub

½Æ»s¥N½X

oobird

§Ñ¤FÁÙ¦³§R°£¡G
Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
With Sheet1
.Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.Copy Sheet2.[a7]
.Range("f6:f" & .[g65536].End(3).Row).SpecialCells(2).EntireRow.delete
End With
End Sub

oobird

§Ú¬O«ÜÃiªº¤H¡AÁ`¥ÎÃi¤èªk³B²z¨Æ±¡¡C
§A³Ì¦n¥ÎGBª©ªº¡A¥Lªº¤~¬O¥¿²Î¤è¦¡¡I

oobird

¥N½X³Ì«e¬q¥[¤WÃö³¬¦Û°Ê­«ºâ
¦b³Ì§À¬q¥[¤W¥´¶}¡C
§A¥i·Pı³t«×­¸§Ö¡I

oobird

¬Ý§A±Ô­zªº¸ê®Æ¶qÀ³¸Ó´X¬í¤º³B²z§¹ªº¡A¦pªG§A¯à´£¨Ñ¤å¥óªº¸Ü¡C