iceandy6150

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

yen956

¸Õ¸Õ¬Ý:
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

yen956

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

GBKEE

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

iceandy6150

·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. 
   
5. 
   
6.     With Sheets("Sheet1")
   
7.    
   
8.     .UsedRange.Range("G:G").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
   
9.     End With
   
10.    
    
11. i = 2
    
12.             With Sheets("°Ñ·Óªí")
    
13.             Set Rng = .Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count))
    
14.            k =.Range("A:A").Find(what:=Sheets("Sheet1").Cells(i, .Columns.Count).Next.Value)
    
15. 
    
16. '§Ú­n±N©Ò§ä¨ìªºÀx¦s®æ¥kÃ䨺®æªº­È¶Çµ¹K¡A¥i¬O»yªk¤£¹ï¡A§Ú¤]¤£·|
    
17.            
    
18.             MsgBox (Rng)
    
19.             MsgBox (k)
    
20.             
    
21.             End With
    
22. End Sub

½Æ»s¥N½X

GBKEE

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

iceandy6150

¦^´_ 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µæªº§Ú

iceandy6150

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. 
    
52.             Sh.[C2] = j      '@@@¦³®É­Ô¬Oĵ§i³o¤@¦æ¿ù»~
    
53.             Sh.Name = Rng
    
54.             
    
55.             j = ""              '³o¨â¦æ¬O§Úı±o¨Ï¥Î«á²MªÅ¡A¥[³o¨â¦æ¿ù»~¤]¨S®ø¥¢
    
56.             Rng = ""
    
57.             
    
58. 
    
59.             For Each xRow In .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows '¦Û°Ê¿z¿ï½d³ò¦Cªº¶°¦X
    
60. 
    
61.                 If xRow.Row > 1 Then
    
62. 
    
63.                      R = Application.CountA(Sh.[D7:D19])                 '¦³¿é¤Jªº¸ê®Æ¼Æ
    
64. 
    
65.                      With Sh.[D7].Offset(R)
    
66. 
    
67.                         .Cells(, 1) = xRow.Range("D1")
    
68. 
    
69.                         .Cells(, 5) = xRow.Range("F1")
    
70. 
    
71.                         .Cells(, 7) = xRow.Range("E1")
    
72. 
    
73. '@@@  ¤j¤j¡A³oÃä¥i¯àÁÙ­n¦A§â¤é´Á¥[¶iE3¡A§Ú¤£·|¼g (¨ä¹ê¬Ý¤£¤ÓÀ´¬°¤°»ò¡A©Ò¥H¤£·|§ï)
    
74.                      End With
    
75. 
    
76.                      If Application.CountA(Sh.[D7:D19]) = 13 Then
    
77. 
    
78.                          Sh.Copy , Sh
    
79. 
    
80.                          Set Sh = ActiveSheet
    
81. 
    
82.                         Sh.[D7:J19] = ""
    
83. 
    
84.                     End If
    
85. 
    
86.                 End If
    
87. 
    
88.             Next
    
89.             i = i + 1
    
90.        Loop
    
91.         
    
92.         k = 1
    
93.         Do While .Cells(k, .Columns.Count) <> ""
    
94.         .Cells(k, .Columns.Count) = ""
    
95.         k = k + 1
    
96.         Loop
    
97.         
    
98.         '.Cells(1, .Columns.Count).CurrentRegion = ""
    
99.         .AutoFilterMode = False
    
100.     End With
     
101.     Application.ScreenUpdating = True
     
102.     Me.Activate
     
103. 
     
104. 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]

iceandy6150

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

c_c_lai

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