oobird

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

hugh0620

¦^´_ 7# oobird


    ª©¥D~..  ÁÂÁ±zªº¦^ÂЭò~ ¤£¹L¤p¦a¦b´ú¸Õ®É,¦³ÂI¤p¤pªº°ÝÃD¦s¦b~
                ¦]¦pªG¨Ï¥ÎªÌ¤£¤p¤ß¦AÂI¨ì¤@¦¸ªº¸Ü~ ¸Óµ{¦¡½X´N·|²£¥Í°õ¦æªº¿ù»~....

GBKEE

¦^´_ 5# hugh0620
§A¤W¶ÇÀɮץίS®í¦r¤¸ ³y¦¨¤U¸ü«áPCµLªk¿ëÃÑÀɮ׫¬ºA,µLªk¦Û°Ê¥ÎRARÀɮ׫¬ºA¥´¶}.
¸g¶}±ÒÀÉ®×®É,¥Î¤â°Ê¿ï¾ÜRARÀɮ׫¬ºA¶}±Ò¤w¸Ñ¨M.

1. Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
   
2.     With Sheet1.Range("f6").CurrentRegion.Columns(6).Offset(2)
   
3.         On Error Resume Next
   
4.         With .SpecialCells(2).EntireRow
   
5.                 .Copy Sheet2.Range("A" & Sheet2.Range("F" & Rows.Count).End(xlUp).Row).Offset(1)
   
6.                 .Delete
   
7.         End With
   
8.     End With
   
9. 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

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

hugh0620

¦^´_ 4# GBKEE


    ¦³´ú¸Õ¹L¥i¥H¥´¶}~
    ¬O¥´¤£¶}ÁÙ¬OµLªk¤U¸ü©O????

GBKEE

¦^´_ 3# hugh0620
¤W¶ÇÀɮצ³°ÝÃD¥´¤£¶}

hugh0620

¦^´_ 2# Hsieh ¦Cªº½Æ»s&§R°£»P¶×¤J.rar (55.79 KB)

¤U¸ü¦¸¼Æ: 25

2010-11-26 13:01

[ ¤j¤j ¤w¸g±Nªþ¥ó©ñ¤Wsheet1¤¤ªºFÄæ¦ì´N¬O¸ê®Æ¦³»~»Ý­n¼á²Mªº³¡¥÷

Hsieh

¦^´_ 1# hugh0620


    §Aªº°j°éÅ޿観ÂI©Ç²§¡A³o¼Ëªº§R°£¦CÀ³¸Ó¬O¤£§¹¾ãªº
¤W¶Ç±zªºÀɮסA¸ÑÄÀ§A©Ò¿×¦³ºÃ°Ýªº¸ê®Æ±ø¥ó