[µo°Ý]Àx¦s®æ³]©w½d³ò¤À³Î¦¨¤£¦P¤u§@ªí
- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2012-9-3
|
[µo°Ý]Àx¦s®æ³]©w½d³ò¤À³Î¦¨¤£¦P¤u§@ªí
½Ð±ÐªO¤W¥ý¶i¡A³Ìªñ¦b·|p¤W³B²z¤@¥÷¸ê®Æ
°Ñ¾\ªþ¥ó¡@
Àx¦s®æ³]©w½d³ò¤À³Î¦¨¤£¦P¤u§@ªí.zip (13.07 KB)
1.§Æ±æ¥i¥H±N¶À¦â©¼¦¹¤¤¶¡ªº½d³ò¤À¶}¦¨¤£¦Pªº¤u§@ªí
¡@¸û¦³Å޿誺¬O¨C±i³øªíµ²§ô®É¡A³£¦³Ó¡¨³øªíµ²§ô¡¨
2.¦P®É§Æ±æ©R¦Wªº¤è¦¡¬O¥HÂŦ⪺³¡¤À
¡@¦ý¥Ø«e¥u¯à§ì¨ì¤ñ¸û©T©wªºÃö«Y¬OÂŦ⪺³¡¤À¸ò¤W¤@±i³øªíµ²§ôªº¬Û¹ï¦ì¸m¬O©T©wªº
·Q½Ð°Ý³o¥i¥H«ç»ò¼g©O¡H
Áٳ·ЦU¦ì¤j¤j¤F¡A·PÁ¡I |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- 20xx
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-11
- ³Ì«áµn¿ý
- 2012-8-28
|
¦^´_ 1# kilon - Sub SplitSheet()
- Dim A As Range, B As Range, r%, Sh As Worksheet
- Set A = [A1] 'A1¬°°_ÂI
- Do Until A.Address = first 'ª½¨ì¦A«×§ä¨ìªº¦ì¸m¬OA1
- first = "$A$1"
- Set B = Columns("G").Find("³ø ªí µ² §ô", after:=A.Offset(, 6)) 'GÄ椤§ä¨ì³øªíµ²§ô
- r = B.Row - A.Row
- ad = A.Resize(r + 1, 13).Address
- Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))
- Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
- A.Resize(r + 1, 13).Copy Sh.[A1]
- Set A = Columns("A").Find(A, after:=A) '§ä¤U¤@Ó°_ÂI
- Loop
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 2# white945
white945: §Aªºµ{¦¡nµù©ú ¥²¶·½Æ»s¦b³o¤u§@ªíªº¼Ò²Õ¤¤ ,¦p½Æ»s¨ì¨ä¥L¼Ò²Õ ¥u¯à½Æ»s¤u§@ªí "¨ä¥LÀç·~¥~¦¬¯q" «á·|Â÷¶}°j°é.- ¦p½Æ»s¨ì¨ä¥L¼Ò²Õ
- Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count)) '¦¹¬°§@¥Î¤¤ªº¤u§@ªí
- Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
- A.Resize(r + 1, 13).Copy Sh.[A1]
- Set A = Columns("A").Find(A, after:=A)
- '·|¬O¦b§@¥Î¤u§@ªí ¤¤´M§ä A.Address = first
½Æ»s¥N½X קï«á¥i¦b¥ô¦ó¼Ò²Õ°õ¦æ- Option Explicit
- Sub Ex()
- Dim Sh As Worksheet, A As Range, G As Range, A_Address
- Set Sh = Sheet1
- Set A = Sh.Columns(1).Find("¬ì¥Ø½s¸¹½d³ò", LookAT:=xlWhole, after:=Cells(Rows.Count, 1))
- '³Ì«á¤@¦C§ä°_
- 'Find: ¹w³]·|±q²Ä1¦C¤§«á¶}¨Ï§ä°_ '¤£«ü©w:²Ä¤@Ó§ä¨ì·|¬O[A40]
- A_Address = A.Address
- Do
- Set G = Sh.Columns(7).Find("*** ³ø ªí µ² §ô ***", LookAT:=xlWhole, after:=Cells(A.Row, 7))
- Sheets.Add(, Sheets(Sheets.Count)).Name = Replace(A.Cells(4, 4), "/", "-") ' '©Ò±oµ|¶O¥Î/§Q¯q "/" ¤£²Å¦X©R¦W³W«h
- Range(A, G).EntireRow.Copy ActiveSheet.Range("a1")
- Set A = Sh.Columns(1).Find("¬ì¥Ø½s¸¹½d³ò", LookAT:=xlWhole, after:=A)
- Loop Until A.Address = A_Address
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 23
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- 20xx
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-11
- ³Ì«áµn¿ý
- 2012-8-28
|
¦^´_ 3# GBKEE
¦hÁª©¥D´£¿ô- Sub SplitSheet()
- 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
- first = "$A$1"
- 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]
- Set A = .Columns("A").Find(A, after:=A) '§ä¤U¤@Ó°_ÂI
- Loop
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2012-9-3
|
·PÁ¤j¤j §Ú¸Õ¸Õ¬Ý!!!
¦^´_ 4# white945 |
|
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2012-9-3
|
white ¤j¤j
¥Î§Aªºµ{¦¡½X¡A·|¦b"r = B.Row - A.Row" µo¥Í¿ù»~¡A¿ù»~ªºì¦]¬O¨S¦³³]©wª«¥óÅܼƩΠWith °Ï¶ôÅܼÆ
¬O¦]¬°¦bDim¨ºÃä¨S¦³°w¹ïr³]©wÅܼƶÜ?
b]¦^´_ 4# white945 |
|
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2012-9-3
|
ª©¥D¤j¤j¡A§Aªº¦¨¥\¡I
¤£¹L§Ú¹J¨ì¤@Ó°ÝÃD¡A¦]¬°¥Ø«eµ¹ªº¸ê®Æ¤W³£¥u¦³¤@¶ªº³øªí¡A¦ý¦³¨Ç¨ä¹ê¤j©ó¤G¶¡Aex:Àç·~¥~¦¬¤J
ªþ¥ó¦p¤U¡G
ªþ¥ó.zip (18.15 KB)
¦Ç¦â¬O·s¼Wªº³¡¤À¡A¦ÓÂŦâ¯S§O¼Ð¥Ü¬O¦]¬°¸ò³øªíµ²§ôªº¤G¶¤¤¶¡®t¶Z¤ñ°_¨Ó¬O¤£¦Pªº
½Ð°Ý³o¼Ë¤ln¦p¦óקï©O¡H
¥Ø«e¦Û¤v´ú¸Õ¨ì¥Ø«eªºµ²ªG¦n¹³¬O¦b¤§«e§ì½d³òªº®ÉÔ¡A·|«½Æ§ì¨ì½d³ò¡A¾ÉP©R¦W·|«½Æ
¤£¹L¨ä¹ê¦Û¤v¤]¤£½T©w¡D¡D¡D³oÓVBA¨ä¹ê¼gªº§ÚÁÙ¨S¦³¿ìªk°Ñ³z§r...
³Â·Ð¤j¤j̤F!
¦^´_ 3# GBKEE |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 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°Ý
|
|
|
|
|
- ©«¤l
- 8
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 10
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2012-9-3
|
¦^´_ 8# Hsieh
ÁÂÁÂ!!¦¨¥\¤F!!
¥i¥H³Â·Ð¤j¤j¬Ý¬Ý§Ú¹ï³oÓµ{¦¡½XªºªºÅÞ¿è²z¸Ñ¬O§_¥¿½T
Sub SplitSheet()¡@
Dim A As Range, B As Range, r%, Sh As Worksheet¡@¤£À´³o¸Ì³]©wr%¬O¤°»ò·N«ä
With Sheet1
Set A = .[A1] 'A1¬°°_ÂI
Do Until A.Address = first 'ª½¨ì¦A«×§ä¨ìªº¦ì¸m¬OA1
first = "$A$1"
Set B = .Columns("G").Find("³ø ªí µ² §ô", after:=A.Offset(, 6)) 'GÄ椤§ä¨ì³øªíµ²§ô
r = B.Row - A.Row
³oÃä§Ú¦³ÂI¤£¤Ó²z¸Ñ
¥uª¾¹D§ä¨ì³øªíµ²§ô¡A¦ýafter:=A.Offset(, 6) ³oÓ¼gªk§Ú¤£¾å±o¤°»ò·N«ä¡A³o¼Ë§ì¨ìªº½d³ò¬O¤°»ò¡H
¥t¥~r = B.Row - A.Row §Ú·QÀ³¸Ó¤W¤@Ó°ÝÃD¸Ñ¨M§¹³oÓ³¡¤ÀÀ³¸Ó´N¥i¥H²z¸Ñ:)
Set Sh = Worksheets.Add(after:=Sheets(Sheets.Count))¡@
Sh.Name = Replace(A.Offset(3, 3).Text, "/", "")
A.Resize(r + 1, 13).Copy Sh.[A1]
½Ð°Ý³oÃ䪺Resize¬O¤°»ò¥\¯à¡H
Set A = .Columns("A").Find(A, after:=A) '§ä¤U¤@Ó°_ÂI
³oÓÀ³¸Ó¸ò²Ä¤@Ó°ÝÃDafter:=A.Offset(, 6)¦³Ãö«Y§a...
Loop
End With
End Sub
·PÁ¤j¤j |
|
|
|
|
|
|