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

[µo°Ý] ¦p¦óÅýÁ`ªíÂà¤Æ¬°¤T±i©ú²Óªí

¦^´_ 10# leoskie

­n¦Û°Ê¥Í¥XN±iSheetªº¸Ü±o¥ÎVBA

TOP

¥i±¤§Ú¤U¸ü¤£¤FÀÉ®×,¤£µM§Ú¨Ó¬ã¨s¬Ý¬Ý¥Lªº·Qªk¬O¤£¬O®t¤£¦h.

­Y¤£¯à¦Û°Ê¥Í¦¨,¨º¤â°Ê¥Í¦¨¤]¦n.

¨C¦¸³£­n°µ¤G¤Q´X±i,³Ì©È´N¬O§Ñ°O ©Î¶K¿ù®æÄæ¦ì.... ³o¤~¬O¾á¤ßªº

TOP

±ÀÂ˨ϥÎVBA¡A¤£ºÞ­n¥Í´X¦Ê±i³£§ï­Ó¼Æ¦r´N¦n

TOP

³Â·Ð¸ÑÄÀ4^8ªº·N«ä»P¥Îªk
§Æ±æ¤ä«ù!

TOP

¦^´_ 14# s7659109

4ªº8¦¸¤è
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# s7659109
¼Ï¯Ã¤ÀªRªíÂùÀ»¸ê®Æ¿é¥X©ú²Ó¤u§@ªí


    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥H¥»ÃD¡A¬°¦ó­n¥Î4ªº8¦¸¤è¡A«ô°U½Ð¸Ñµª!
§Æ±æ¤ä«ù!

TOP

¥t¦³¤@°ÝÃD½Ð±Ð¡AÁ`ªíÂà´«¹L¨Óªº©ú²Óªí¡Aª÷ÃBµLªk¥[Á`¡A­Y¥ÎVALUE¨ç¼Æ¡A«h¤U¤@¦CµL²Å¦X¸ê®Æ·|¥X²{¤½¦¡#value!ªº¿ù»~¡A½Ð¨ó§U¡C
§Æ±æ¤ä«ù!

TOP

§Úªºoffice¬°2003¬O§_¦³¸Ñ¡H
§Æ±æ¤ä«ù!

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
Á`ªí:


°õ¦æµ²ªGA001:


°õ¦æµ²ªGA002:


°õ¦æµ²ªGA003:


Option Explicit
'³o¤è®×¬O¥H¦r¨åkey°O¿ý¤£­«½Æªº³f¸¹,item°O¿ý¬Û¦P³f¸¹©Ò¦b¦C¸¹,¥H"/"¶¡¹j
Sub TEST_1()
Application.DisplayAlerts = False
'¡ô¥O¤£¥²¸ß°Ý¤u§@ªí¬O§_§R°£,ª½±µ§R¤F
Dim Brr, Crr, Z, Q, A, i&, j%, s%, N%
'¡ô«Å§iÅܼÆ:&¬Oªø¾ã¼Æ,%¬Oµu¾ã¼Æ,¨ä¾l¬O³q¥ÎÅܼÆ
Set Z = CreateObject("Scripting.Dictionary")
'¡ô¥OZÅܼƬO ¦r¨å
For Each A In Worksheets
   If A.Name <> "Á`ªí" Then A.Delete
Next
'¡ô³]¶¶°j°é±N"Á`ªí"¥H¥~ªº¤u§@ªí§R°£
Brr = [A1].CurrentRegion: Crr = Brr
'¡ô¥OBrrÅܼƬO±a¤J°Ï°ìÀx¦s®æ­Èªº¤Gºû°}¦C,¥OCrrÅܼƦPBrr°}¦C
For i = 3 To UBound(Brr): Z(Brr(i, 2)) = Z(Brr(i, 2)) & "/" & i: Next
'¡ô³]¶¶°j°é±N³f¸¹Âo­«½Æ,¦ý¬O¥Hitem°O¿ý©Ò¦bªº¦C¸¹,¥H"/"²Å¸¹¶¡¹j
For s = 0 To Z.Count - 1
   Q = Split(Z.ITEMS()(s), "/"): N = 2
   For i = 1 To UBound(Q)
      N = N + 1
      For j = 1 To 8: Crr(N, j) = Brr(Q(i), j): Next
   Next
   Worksheets.Add.Name = Z.KEYS()(s): [A1].Resize(N, 8) = Crr
Next
'¡ô³]¶¶°j°é±N¥H¨C­Ó³f¸¹·s¼W¤u§@ªí,±N¸ê®Æ¼g¤J¤u§@ªí¤¤
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD