[µo°Ý]Àx¦s®æ³]©w½d³ò¤À³Î¦¨¤£¦P¤u§@ªí
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 197
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-8-12
               
|
¦^´_ 7# kilon - Sub nn()
- Dim A As Range, B As Range, r%, Sh As Worksheet
- With Sheet1
- Set A = .[A1] 'A1¬°°_ÂI
- Do Until A.Address = first 'ª½¨ì¦A«×§ä¨ìªº¦ì¸m¬OA1
- Set B = .Columns("G").Find("*** ³ø ªí µ² §ô ***", after:=A.Offset(, 6)) 'GÄæ¤¤§ä¨ì³øªíµ²§ô
- r = B.Row - A.Row
- Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))
- Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
- A.Resize(r + 1, 13).Copy Sh.[A1]
- Do Until A.Row > B.Row Or A.Address = first 'Á×§K¤@Ó³øªíµ²§ô¤º¦³1Ó¥H¤W¬ì¥Ø
- Set A = .Columns("A").Find(A, after:=A) '§ä¤U¤@Ó°_ÂI
- Loop
- first = "$A$1"
- Loop
- End With
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|