GBKEE

¦^´_ 2# white945
white945: §Aªºµ{¦¡­nµù©ú ¥²¶·½Æ»s¦b³o¤u§@ªíªº¼Ò²Õ¤¤ ,¦p½Æ»s¨ì¨ä¥L¼Ò²Õ ¥u¯à½Æ»s¤u§@ªí "¨ä¥LÀç·~¥~¦¬¯q" «á·|Â÷¶}°j°é.

1. ¦p½Æ»s¨ì¨ä¥L¼Ò²Õ
   
2. Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))  '¦¹¬°§@¥Î¤¤ªº¤u§@ªí
   
3. Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
   
4. A.Resize(r + 1, 13).Copy Sh.[A1]
   
5. Set A = Columns("A").Find(A, after:=A)   
   
6. '·|¬O¦b§@¥Î¤u§@ªí ¤¤´M§ä A.Address = first

½Æ»s¥N½X

­×§ï«á¥i¦b¥ô¦ó¼Ò²Õ°õ¦æ

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, A As Range, G As Range, A_Address
   
4.     Set Sh = Sheet1
   
5.     Set A = Sh.Columns(1).Find("¬ì¥Ø½s¸¹½d³ò", LookAT:=xlWhole, after:=Cells(Rows.Count, 1))
   
6.     '³Ì«á¤@¦C§ä°_
   
7.     'Find: ¹w³]·|±q²Ä1¦C¤§«á¶}¨Ï§ä°_ '¤£«ü©w:²Ä¤@­Ó§ä¨ì·|¬O[A40]
   
8.     A_Address = A.Address
   
9.     Do
   
10.         Set G = Sh.Columns(7).Find("***  ³ø ªí µ² §ô  ***", LookAT:=xlWhole, after:=Cells(A.Row, 7))
    
11.         Sheets.Add(, Sheets(Sheets.Count)).Name = Replace(A.Cells(4, 4), "/", "-") ' '©Ò±oµ|¶O¥Î/§Q¯q "/" ¤£²Å¦X©R¦W³W«h
    
12.         Range(A, G).EntireRow.Copy ActiveSheet.Range("a1")
    
13.         Set A = Sh.Columns(1).Find("¬ì¥Ø½s¸¹½d³ò", LookAT:=xlWhole, after:=A)
    
14.     Loop Until A.Address = A_Address
    
15. End Sub

½Æ»s¥N½X