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

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

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

Dear ¤j¤j­Ì

     ¤p§Ì¹J¨ì¦Cªº½ÆÂø/§R°£»P¶×¤J¤Wªº°ÝÃD
     ¸Ô­z¦p¤U:
        §Ú»Ý­n±N
     1. Sheet1¤¤¦³ºÃ°Ýªº¸ê®ÆÂà¨ìsheet2¤¤
     2. ±NSheet1¤¤¦³ºÃ°Ýªº¸ê®Æ§R°£  (¦]Sheet2ªº¸ê®Æ¼á²M«á,»Ý­n¦b¶×¦^Sheet1¤¤,·|ÁקK¸ê®Æ­«ÂЪº±¡ªp¤U,»Ý­n¥ý¦æ§R°£)
       3.Sheet2ªº¸ê®Æ¼á²M«á,»Ý­n¦b¶×¦^Sheet1¤¤  (ÁÙ¨S¦³¼g)
     §Ú¦bVBA¼gªk
    1.±NSheet1¤¤¦³ºÃ°Ýªº¸ê®ÆÂà¨ìsheet2¤¤
     x = 0
       K = 0
       Do Until Sheet1.Cells(7 + x, 12) = ""
          If Sheet1.Cells(7 + x, 6) <> "" Then
             Sheet1.Rows(7 + x).Copy
             Sheet2.Select
             Sheet2.Rows(7 + k).Select
              ActiveSheet.Paste
              k = k + 1
           End If
        2. ±NSheet1¤¤¦³ºÃ°Ýªº¸ê®Æ§R°£
      x = 0
         Do Until Sheet1.Cells(7 + x, 12) = ""
             For J = 0 To x
                If Sheet1.Cells(7 + J, 6) <> "" Then
                     Sheet1.Rows(7 + J).Delete
                End If
           Next J
             x = x + 1
          Loop
        ¥i¬O³o¼Ëªº¼gªk¦b°õ¦æ¤W¤ñ¸ûºC,½Ð°Ý¤j¤j¬O§_¦³¸û¦nªº¤èªk
      ¥t¥~²Ä3.±N¸ê®Æ¶×¦^sheet1¤]¦³ÂI¥d¦í,¬ß¯à°÷¦³´£ÂI¤@¤U
      ³o¬O§Úªº¼gªk,¤£¹L§Ú­n¶Kªº¬O±qªÅ¥Õªº¦a¤è±µ¸ê®Æ,¦ý¬O°õ¦æ«á,Àˬd¸ê®Æ,«o¨S¦³¦¨¥\
      x = 0
         k = 0
         Do Until Sheet2.Cells(7 + x, 6) = ""
              If Sheet1.Cells(7 + k, 12) = "" Then
                 Sheet2.Rows(7 + x).Copy
                 Sheet1.Select
                 Sheet1.Rows(7 + k).Select
                 ActiveSheet.Paste
                  x = x + 1
               End If
               k = k + 1
         Loop

¦^´_ 1# hugh0620


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

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-11-27 00:23): ÀɦW¤Å¨Ï¥Î¯S®í²Å¸¹

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2010-11-26 13:02 ½s¿è

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

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

TOP

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

TOP

¦^´_ 4# GBKEE


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

TOP

  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

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

TOP

¦^´_ 7# oobird


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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD