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

[µo°Ý] ±N¸ê®Æ¦Û°Ê¤ÀÃþ¥\¯à

¦^´_ 20# GBKEE

A-ªþÀɤWÁ`ªíGÄæÃþ§O¨S¼Æ¦r, ¦ý¤u§@ªí[«OÀI231],[³q°T203]..¦³¼Æ¦r ³o¨Ç¤u§@ªíªº©R¦W³W«h§A¨S»¡©ú!
     [Á`ªí]¸ê®Æ¥i¦bHÄæ¥[µù¿ë§O·s¸ê®Æ
     16# ¥i¯àÁÙ­n¥Î¤@­Ó¤u§@ªí¡A¸Ì­±©ñ°Ñ¦Ò­È¡A¤ñ¦p»¡ Ãþ§O¬°[¤@¯ë¨Æ°È¶O]¡A¨ºsh.name´N¬O[¤@¯ë¨Æ°È¶O279]¡A¦r¸¹¬°[±f¦r²Ä016¸¹]
B-±f¦r²Ä016¸¹ ¦b¦ó³B??
   
G¤j¡AÃö©ó°ÝÃDA¡A¦]¬°­ì¥»¬O¤H¤u³B²z¡A<Á`ªí>¤¤ªºGÄæ¥u·|¬Ý¨ìÃþ§O¡A¤£·|¦³¼Æ¦r
¤ñ¤è»¡<Á`ªí>¸Ì­±[Ãþ§O]¥´ªº¬O[«OÀI]¡A¤H²´¤@¬Ý´Nª¾¹D­n¥h§ä¤u§@ªí<«OÀI231>
µM«á§â<«OÀI231>¸Ì­±²Ä¤@¦CD7¡A³]©w¦¨    =Á`ªí!D48  (³]©w¦¨¦bÁ`ªí¤¤ªº¦ì¸m)
³o¼Ë´N¥i¥H§â<Á`ªí>ªº¸ê®Æ¹ïÀ³¨ì<«OÀI231>¤¤
¸U¤@¦³²Ä2.3.4...µ§¸ê®Æ¡AÁÙ±o¤H¤u³v¤@³]©w¦¨   =Á`ªí!D??

©Ò¥H¡A¥i¯à¤]¨S¤°»ò©R¦W³W«h¡A¦]¬°§Ú¤]¤£ª¾¹D¬°¤°»ò«OÀI­n¥Î231¡A³q°T­n¥Î203¡A¯uªº«Ü©êºp
§Ú¥u¬O¦n¤ßÀ°¦£¡A·Q»¡§â¤H¤u³B²zªº³¡¤À¡A§Q¥Îµ{¦¡°µ§¹¦Ó¤w

Ãö©ó°ÝÃDB¡A´N¦b¨C­Ó¤u§@ªíªºI3¸Ì­±¡A("¹s¥Îª÷²M³æ"³o´X­Ó¦rªº¥k¤U¤è)
»P°ÝÃDA¦P¡A¦n¹³¤]¨S³W«h¥i¨¥¡A§Ú¨C­ÓÃþ§OÂI¨ÓÂI¥h¡Aµo²{¬O¤£¤@¼Ëªº¦r¸¹
©¹«e´X­Ó¦^¤å¡A§Ú¦³¶K¹Ï¤ù¡A¸Ì­±¤]¥i¬Ý¨ì

·P®¦¡AÁÂÁÂ
«¢Åo~¤j®a¦n§r

TOP


¸Õ¸Õ¬Ý:
VBA code:
Option Explicit

Sub ²M°£¸ê®Æ()
    Dim i, msg As Integer, x, sh As Worksheet
    Set x = Sheets("¿é¤J")
    Application.DisplayAlerts = False
   
    '­Y±N¤u§@­¶©R¦W¬° "¿é¤J","¾ú¥v","¼t°ÓÃþ","­û¤uÃþ","¤½¥qÃþ","¼t°ÓÃþ(1)","¼t°ÓÃþ(2)",...
    '«h¥i¨Ì Len(Sh.Name) ¨M©w Delete ©Î Clearcontents
    For Each sh In Sheets
        If Len(sh.Name) > 3 Then
           sh.Delete
        ElseIf Len(sh.Name) = 3 Then
           sh.Range("A2:E11").ClearContents
        End If
    Next
   
    '²M°£¿z¿ï°Ïªº¸ê®Æ
    x.Range("G:K").Clear
   
    '¬O§_²M°£¿é¤J°Ïªº¸ê®Æ?
    msg = MsgBox("­n²M°£¿é¤J°Ïªº¸ê®Æ¶Ü?", vbYesNo)
    If msg = vbYes Then
       x.Range("A2:E" & x.UsedRange.Rows.Count).ClearContents
    End If
End Sub
   
Sub ¦s¤J¾ú¥v¬ö¿ý()
    Dim i, msg As Integer, sh, x, y As Worksheet
    Dim ¤é´Á, ·s¤é´Á As Date
    Set x = Sheets("¿é¤J")
    Set y = Sheets("¾ú¥v")
    Application.ScreenUpdating = False
   
    '¦pªG©|¥¼¦³¾ú¥v¬ö¿ý(²Ä¤@¦¸), ±q "¿é¤J" ½Æ»s¨ì "¾ú¥v" (§t¼ÐÀY)
    If y.UsedRange.Rows.Count = 1 Then
        x.Range("A1:E" & x.UsedRange.Rows.Count).Copy
        y.Range("A1").PasteSpecial xlPasteValues
    Else
        Â¤é´Á = y.Range("A" & y.UsedRange.Rows.Count)
        ·s¤é´Á = x.Range("A" & x.UsedRange.Rows.Count)
        
        'ª`·N¡G"¿é¤J"­¶ AÄæ(§Y¤é´ÁÄæ), À³³]©w ¸ê®ÆÅçµý, ¨Ã³]¬° "¤é´Á",
        '§_«h If ¤é´Á < ·s¤é´Á Then ·|§PÂ_¿ù»~!!
        '±q "¿é¤J"­¶ ½Æ»s¨ì "¾ú¥v"­¶ (¤£§t¼ÐÀY, ¥BªÅ2¦C)
        If ¤é´Á < ·s¤é´Á Then
            x.Range("A2:E" & x.UsedRange.Rows.Count).Copy
            y.Range("A" & y.UsedRange.Rows.Count + 3).PasteSpecial xlPasteValues
        Else
            msg = MsgBox(DateValue(·s¤é´Á) & " ¤w¸g¦s¹L¤F!!", vbOKOnly)
        End If
    End If
    Application.ScreenUpdating = True
End Sub

Sub ¿z¿ï¸ê®Æ()
   Dim i, UsedRow As Integer, x, sh, shOld As Worksheet
   Dim shName
   shName = Array("¼t°ÓÃþ", "¤½¥qÃþ", "­û¤uÃþ")
   Set x = Sheets("¿é¤J")
   Application.DisplayAlerts = False
   Application.ScreenUpdating = False
   
   '¦]¬° "¼t°ÓÃþ"¡B"¤½¥qÃþ"¡B"­û¤uÃþ" ¥u¦³¨C¤Ñ¨Ï¥Î¡A
   '¦C¦L«á´N¥i¥H²MªÅ¸ê®Æ, ¬GÀ³¨Ì "¿é¤J" ¿z¿ï, ¦Ó¤£¬O¨Ì "¾ú¥v"
   For i = 0 To 2
      Set sh = Sheets(shName(i))
      x.Activate
      
      '±N¶i¶¥¿z¿ïªº ¿z¿ï·Ç«h ¶ñ¤J x.[F3]
      x.[F3] = Left(shName(i), 2)
      
      '¶i¶¥¿z¿ï A:EÄæ ­«½Æ¸ê®Æ¨ì "G1"       ***´ú¸Õ¥Î(¦hµ§­«½Æ)***
      x.Range("A1:E" & x.UsedRange.Rows.Count).AdvancedFilter xlFilterCopy, x.Range("F2:F3"), x.Range("G1:K1"), False
            
      '¶i¶¥¿z¿ï A:EÄæ ¤£­«½Æ¸ê®Æ¨ì "G1"     ***¹ê»Ú¥Î(¤£­«½Æ)***
      'x.Range("A1:E" & x.UsedRange.Rows.Count).AdvancedFilter xlFilterCopy, x.Range("F2:F3"), x.Range("G1:K1"), True
            
      '±N ¿z¿ïµ²ªG ½Æ»s¨ì¹ïÀ³ªºÃþ§O¤u§@ªí
      x.Range("G:K").Copy
      sh.[A1].PasteSpecial xlPasteValues
         
      Do While sh.[A12] <> ""                    'ª½¨ì¹ïÀ³ªºÃþ§O¤u§@ªí[A12] = ""
         sh.Copy After:=Sheets(Sheets.Count)                 '1 ½Æ»s­ì¤u§@ªí
         sh.Rows("12:" & sh.Rows.Count).Delete               '2 ±N­ì¤u§@ªí12¦C¥H¤U§R°£(«O¯d10¦C)
         Set shOld = sh                                      '3 ±N shOld ³]µ¹­ì¤u§@ªí
         Set sh = Sheets(Sheets.Count)                       '4 ±N sh ³]µ¹·s¤u§@ªí
         sh.Rows("2:11").Delete                              '5 §R°£·s¤u§@ªí 2:11 ¦C
         shOld.[A1:E11].Copy                                 '6 ½Æ»s­ì¤u§@ªíªº ®æ¦¡ ¨ì·s¤u§@ªí
         sh.[A1].PasteSpecial xlPasteFormats
      Loop
   Next
   Application.ScreenUpdating = True
End Sub

TOP

©êºp, ¨S¤@ª½¬Ý¨ì³Ì«á¤@­¶´N¦^ÂÐ,
´N·í¨S¦^Âгo¤@¦^¨Æ, ©êºp!!
¸É¹Ï(­¶½X³¡¥÷):

TOP

¦^´_ 21# iceandy6150
¨S¦³³W«ß©Ê¨º§A´N¥Î¤â°Ê
  1. Option Explicit   '¥²¶·¸m©ó¼Ò²Õ³»ºÝ ±j¨î«Å§iÅܼÆ
  2. Sub Ex()
  3.     Dim i As Integer, Sh As Worksheet, Rng As Range, xRow As Range, R As Integer
  4.     With Sheets("Á`ªí")
  5.         If .UsedRange.Rows.Count = 1 Then              '¨S¦³¾ú¥v¬ö¿ý
  6.            Sheets("Sheet1").UsedRange.Copy            '½Æ»s(§t¼ÐÀY)
  7.             .Range("A1").PasteSpecial xlPasteValues
  8.         Else
  9.             Sheets("Sheet1").UsedRange.Offset(1).Copy  '½Æ»s(¤£§t¼ÐÀY)
  10.             .Range("A" & .UsedRange.Rows.Count).Offset(3).PasteSpecial xlPasteValues
  11.             'Offset(3) :ªÅ2¦C->²Ä3¦C¶K¤W
  12.         End If
  13.     End With
  14.     With Sheets("SHEET1")  '¤u§@ªí:¿é¤J°Ï
  15.         .Range("A1").CurrentRegion.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  16.         i = 2
  17.         Do While .Cells(i, .Columns.Count) <> ""
  18.             .Range("A1").AutoFilter 7, .Cells(i, .Columns.Count)         '¦Û°Ê¿z¿ï
  19.             Set Sh = Sheets(Ãþ§Oªí(.Cells(i, .Columns.Count)))           '«ü©w¨ìÃþ§Oªº¤u§@ªí
  20.             For Each xRow In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows '¦Û°Ê¿z¿ï½d³ò¦Cªº¶°¦X
  21.                 If xRow.Row > 1 Then
  22.                      R = Application.CountA(Sh.[D7:D19])                 '¦³¿é¤Jªº¸ê®Æ¼Æ
  23.                      With Sh.[D7].Offset(R)
  24.                         .Cells(, 1) = xRow.Range("D1")
  25.                         .Cells(, 5) = xRow.Range("F1")
  26.                         .Cells(, 7) = xRow.Range("E1")
  27.                      End With
  28.                      If Application.CountA(Sh.[D7:D19]) = 13 Then
  29.                          Sh.Copy , Sh
  30.                          Set Sh = ActiveSheet
  31.                         Sh.[D7:J19] = ""
  32.                     End If
  33.                 End If
  34.             Next
  35.         i = i + 1
  36.         Loop
  37.         .AutoFilterMode = False       '¦Û°Ê¿z¿ï¼Ò¦¡:¨ú®ø
  38.         .UsedRange.Offset(1).Clear    '¸ê®Æ¿é¤J«á²M°£±¼
  39.        ' .Cells(1, .Columns.Count).EntireColumn = ""
  40.     End With
  41. End Sub
  42. Function Ãþ§Oªí(Ãþ§O As String)    '¦Û­q¨ç¼Æ: ´M§äÃþ§Oªº¤u§@ªí
  43.     Dim ªí As String, Sh As Worksheet
  44.     For Each Sh In Sheets                  'Sheets: ¤u§@ªíªº¶°¦X
  45.         If InStr(Sh.Name, Ãþ§O) = 1 And Application.CountA(Sh.[D7:D19]) = 13 Then  'Ãþ§Oªº¤u§@ªí[D7:D19]¦³¿é¤Jªº¸ê®Æ¼Æ
  46.             ªí = Sh.Name
  47.         ElseIf InStr(Sh.Name, Ãþ§O) = 1 And Application.CountA(Sh.[D7:D19]) < 13 Then
  48.             Ãþ§Oªí = Sh.Name
  49.             Exit For
  50.         End If
  51.     Next
  52.     If Ãþ§Oªí = "" And ªí <> "" Then
  53.         Sheets(ªí).Copy , Sheets(ªí)
  54.         Ãþ§Oªí = ActiveSheet.Name
  55.     ElseIf Ãþ§Oªí = "" And ªí = "" Then
  56.         '*** §ä¤£¨ìÃþ§Oªº¤u§@ªí ½Æ»s "ªí®æ" ªº½d¥»
  57.         Sheets("ªí®æ").Copy Sheets(1)
  58.         ActiveSheet.Name = Ãþ§O
  59.         Ãþ§Oªí = Ãþ§O
  60.     End If
  61. End Function
½Æ»s¥N½X
¦^´_ 23# yen956
¨S¦³Ãö«Yªº,½×¾Â»Ý­n¼ö¤ßªº·|­û°Ñ»P.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂG¤j¤ÎY¤jªº¦^´_

§Ú·Q¦A°Ý¤@¨â­Ó¤p°ÝÃD

1.¨C¦¸¼gµ{¦¡¡A§Ú³£ª¾¹D§Ú·Q­n°µ¨ì¤°»ò¥\¯à¡A¦ý¬Oµ{¦¡³£¼g¤£¥X¨Ó¡A©Î¿ù
   ­n¶R¤°»ò®Ñ¨Ó¬Ý¤~¯à¼W¶i§Úªºµ{¦¡¯à¤O©O?
   ¿ý»s¥¨¶°¥u¯à¿ý¨ì¾Þ§@¹Lµ{¡A¦ý¬O¤H¬°§PÂ_¤Î¿ï¾Ü¡A¥¨¶°¿ý¤£¨ì

2.§Ú²{¦b³]¤F¤@­Ó°Ñ·Óªí
            A           B
   1    ª««~    ª««~271
   2    «OÀI    «OÀI236
   3    ¤@¯ë    ¤@¯ë218

¤]±NG¤j±Ðªº³¡¤À¥\¯à­×§ï¡A§Ú·QÅýµ{¦¡±qSHEET1(¿é¤J°Ï)¥h§äÃþ§O
µM«á·|¥h<°Ñ·Óªí>´M§ä¡A¨Ò¦p§ä¨ì(«OÀI)(A,2)¡A¨º´N±N(B,2)ªº­È¶Çµ¹K
¦ý¬O¤£ª¾¹D¦p¦ó°µ¨ì¡A¦A³Â·Ð¦U¦ì¼ö¤ßª©¤Í
ÁÂÁÂ
  1. Private Sub CommandButton4_Click()
  2.             
  3. Dim i As Integer, j, k As String


  4.     With Sheets("Sheet1")
  5.    
  6.     .UsedRange.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  7.     End With
  8.    
  9. i = 2
  10.             With Sheets("°Ñ·Óªí")
  11.             Set Rng = .Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count))
  12.            k =.Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count).Next.Value)

  13. '§Ú­n±N©Ò§ä¨ìªºÀx¦s®æ¥kÃ䨺®æªº­È¶Çµ¹K¡A¥i¬O»yªk¤£¹ï¡A§Ú¤]¤£·|
  14.            
  15.             MsgBox (Rng)
  16.             MsgBox (k)
  17.             
  18.             End With
  19. End Sub
½Æ»s¥N½X
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 25# iceandy6150
¦h¿ý»s¥¨¶°:¥iª¾¦p¦ó¨Ï¥ÎVBAªº¤èªk.¨ç¼Æ.Äݩʮɾ÷,­n¥\¤Oªº¼W¶i,¤£¤G¤èªk¤U­W¤u(¦h¬Ý,¦h°Ý,¦h½m²ß).¤j¦h¼Æ®ÑÄyªº¤º®e,VBA»¡©ú³£¥i§ä¨ì.
  1. Option Explicit
  2. Private Sub CommandButton4_Click()
  3.     Dim i As Integer, j, k As String, Rng As Range
  4.     With Sheets("Sheet1")
  5.         .UsedRange.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  6.     End With
  7.     i = 2
  8.     With Sheets("°Ñ·Óªí")
  9.         Set Rng = .Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count))
  10.         k = Rng.Offset(, 1)
  11.         MsgBox (Rng)
  12.         MsgBox (k)
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 26# GBKEE


    ¤Ñ°Ú¡A´N³o»ò¤@¦æ
 k = Rng.Offset(, 1)
G¤j¡A«Ü·PÁ§A
§Ú¤U¤È¸Õ¤F¤@­Ó¦h¤p®É¡A´N¸Õ¤£¥X¨Ó
activecell.next.value¤£¦æ
selection.next.value¤£¦æ
¥ýselection.select¦Aactivecell.next.value¤]¤£¦æ
selection.address¥i¥H¨q¥XRng§ä¨ì­þ¤@­Ó
¦ý¬O¶Ç¦^¨Óªº¬O$A$5ªºªF¦è
§Ú·Q­n¥k²¾¤@®æ$B$5ªº­È«o¤£·|¼g
¦³address­n¥h§ä¸Ó¦ì¸mªº­È¡A§Ú¤]¤£·|
§Ú³£§ÖºÆ¤F§Ú

G¤j¡A¹³§Ú³oºØ°ÝÃD¡A¾a¿ý»s¥¨¶°¯à¦³¸Ñµª¡H
§Ú¶R¤F¤@¥»VBAªº®Ñ¡A¦³300¶µ¥H¤Wªº»yªk¡AÁÙ¬O¬d¤£¨ì
­ü¡K¶Wµæªº§Ú
«¢Åo~¤j®a¦n§r

TOP

  1. Private Sub CommandButton3_Click()
  2.     Dim Sh As Worksheet, i As Integer, ii As Integer, R As Integer, Ar 'Dim «Å§iÅܼÆ
  3.     Dim k As Integer
  4.     Dim j As String
  5.     Dim A As Range, Rng As Range, xRow As Range
  6.    
  7.     Application.DisplayAlerts = False
  8.     Application.ScreenUpdating = False
  9.     For Each Sh In Sheets
  10.    
  11.         If Sh.Name <> "Sheet1" And Sh.Name <> "Á`ªí" And Sh.Name <> "ªí®æ½d¥»" And Sh.Name <> "ÂH¦s³æ(¹s)" And Sh.Name <> "°Ñ·Óªí" Then Sh.Delete
  12.         '¬¡­¶Ã¯¥u¯d ¤u§@ªí1¡G¬O¿é¤J°Ï,¤u§@ªí2¡G¬O¾ú¥v°O¿ý ,"ªí®æ½d¥»"¡AÂH¦s³æ(¹s),°Ñ·Óªí
  13.     Next
  14.    
  15.     With Sheets("Á`ªí")
  16.         If .UsedRange.Rows.Count = 1 Then              '¨S¦³¾ú¥v¬ö¿ý
  17.            Sheets("Sheet1").UsedRange.Copy            '½Æ»s(§t¼ÐÀY)
  18.             .Range("A1").PasteSpecial xlPasteValues
  19.             
  20.         Else
  21.             Sheets("Sheet1").UsedRange.Offset(1).Copy  '½Æ»s(¤£§t¼ÐÀY)
  22.             Sheets("Á`ªí").Range("A" & .UsedRange.Rows.Count).Offset(3).PasteSpecial xlPasteValues
  23.             'Offset(3) :ªÅ2¦C->²Ä3¦C¶K¤W
  24.            
  25.         End If
  26.         
  27.     End With
  28.    
  29.    
  30.     With Sheets("Sheet1")
  31.    
  32.     .UsedRange.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  33.     '¶i¶¥¿z¿ï EÄæ ¤£­«½Æ¸ê®Æ¨ì¤u§@ªí³Ì¥kÄæ ***¨ú±oÃþ§Oªº¤ÀÃþ***
  34.     'AdvancedFilter:¶i¶¥¿z¿ï
  35.     'xlFilterCopy:¶i¶¥¿z¿ïªº¸ê®ÆÅã¥Ü¦b¨ä¥L¦a¤è
  36.     '.Cells(1, .Columns.Count) ->¤u§@ªíªº³Ì¥kÄæ²Ä1­ÓÀx¦s®æ->¶i¶¥¿z¿ïªº¸ê®ÆÅã¥Üªº¦a¤è
  37.        i = 2
  38.         Do While .Cells(i, .Columns.Count) <> ""                  '¤u§@ªí³Ì¥kÄ檺Àx¦s®æ <>""
  39.             .Range("A:G").AutoFilter 7, .Cells(i, .Columns.Count)          'AutoFilter: ¦Û°Ê¿z¿ï ,²Ä7Äæ(Ãþ§O)ªº·Ç«h¬° .Cells(i, .Columns.Count)
  40.             Sheets("ªí®æ½d¥»").Copy , Sheets(Sheets.Count)
  41.             Set Sh = ActiveSheet
  42.             
  43.             
  44.             With Sheets("°Ñ·Óªí")
  45.             Set Rng = .Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count))
  46.             'MsgBox (Rng)
  47.             j = Rng.Offset(, 1)
  48.             End With
  49.             
  50. '@@@¤W­±¨º¦æ  j = Rng.Offset(, 1)     ¦³®É­Ô¶]¤@¦¸¯à°õ¦æ¡A«á¨Ó´Nĵ§i¤F      

  51.             Sh.[C2] = j      '@@@¦³®É­Ô¬Oĵ§i³o¤@¦æ¿ù»~
  52.             Sh.Name = Rng
  53.             
  54.             j = ""              '³o¨â¦æ¬O§Úı±o¨Ï¥Î«á²MªÅ¡A¥[³o¨â¦æ¿ù»~¤]¨S®ø¥¢
  55.             Rng = ""
  56.             

  57.             For Each xRow In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows '¦Û°Ê¿z¿ï½d³ò¦Cªº¶°¦X

  58.                 If xRow.Row > 1 Then

  59.                      R = Application.CountA(Sh.[D7:D19])                 '¦³¿é¤Jªº¸ê®Æ¼Æ

  60.                      With Sh.[D7].Offset(R)

  61.                         .Cells(, 1) = xRow.Range("D1")

  62.                         .Cells(, 5) = xRow.Range("F1")

  63.                         .Cells(, 7) = xRow.Range("E1")

  64. '@@@  ¤j¤j¡A³oÃä¥i¯àÁÙ­n¦A§â¤é´Á¥[¶iE3¡A§Ú¤£·|¼g (¨ä¹ê¬Ý¤£¤ÓÀ´¬°¤°»ò¡A©Ò¥H¤£·|§ï)
  65.                      End With

  66.                      If Application.CountA(Sh.[D7:D19]) = 13 Then

  67.                          Sh.Copy , Sh

  68.                          Set Sh = ActiveSheet

  69.                         Sh.[D7:J19] = ""

  70.                     End If

  71.                 End If

  72.             Next
  73.             i = i + 1
  74.        Loop
  75.         
  76.         k = 1
  77.         Do While .Cells(k, .Columns.Count) <> ""
  78.         .Cells(k, .Columns.Count) = ""
  79.         k = k + 1
  80.         Loop
  81.         
  82.         '.Cells(1, .Columns.Count).CurrentRegion = ""
  83.         .AutoFilterMode = False
  84.     End With
  85.     Application.ScreenUpdating = True
  86.     Me.Activate

  87. End Sub
½Æ»s¥N½X
¦^´_ 26# GBKEE

¤j¤j¡A§Ú§â±z²Ä¤@¦¸ªºµ{¦¡­×§ï¤@¤U¡A¥i¬O¦³¨Ç¦a¤èĵ§i»¡¨S¦³WITH©M°Ï°ìÅܼÆ
§Ö§¹¦¨¤F¡AÀ°§Ú¬Ý¬Ý¡AÁÂÁÂ

[attach]17426[/attach]

[attach]17427[/attach]

±f¦r²ÄXX¸¹¡AªºXX¥Ñ¤H¤u¤â°Ê¿é¤J§Y¥i

[attach]17428[/attach]
«¢Åo~¤j®a¦n§r

TOP

ª©¤j¡A¤£¦n·N«ä¡A¤£ª¾¹D¬°¤°»ò·|­«ÂжǡAÁÙ¦³ÀɮסB¹Ï¤ù³£¤W¤£¥h¡A¦³ªÅ¦A¶Ç¤@¦¸¡A­«ÂЪº¤å¦A½Ðª©¤j§R±¼¡AÁÂÁÂ
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 30# iceandy6150
¦pªG§A¥Ø«e¨Ï¥Îªºªººô­¶³nÅéµLªk¤W¶ÇÀɮתº¸Ü¡A
½Ð§ï¥Î§Oªººô­¶³nÅé¨Ó¤W¶Ç¡C
Ä´¦p§A­ì¥»¬O¨Ï¥Î Firefox ¤W¶ÇÀɮסA¦pªGµLªk¤W¶Ç¡A
«h½Ð¸Õ¸Õ§ï¥Î IE ¨Ó¤W¶ÇÀɮסC

TOP

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