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

¦Cªº½Æ»s¡þ§R°£»P¶×¤J

  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

TOP

§Ñ¤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

TOP

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD