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

[µo°Ý] vbaªº¿z¿ï¥\¯à (¨ú®ø³¡¤À¿z¿ï)

¦^´_  wei9133

#33
¦³2³õ¤@¼Ë(³Ó²vÄ欰"ªÅ","ªÅ")¦X¨Ö³Ó²v¬°1
¥u¦³1³õ(³Ó²vÄ欰"ªÅ")³Ó²v¬°"ªÅ"

´X ...
jcchiang µoªí©ó 2020-10-22 08:22



   
#33
¦³2³õ¤@¼Ë(³Ó²vÄ欰"ªÅ","ªÅ")¦X¨Ö³Ó²v¬°1
¥u¦³1³õ(³Ó²vÄ欰"ªÅ")³Ó²v¬°"ªÅ"

´XºØª¬ªp¦p¦ó­pºâ
2³õ(³Ó²v¬°"3","ªÅ")¦X¨Ö³Ó²v??(¬O§_¬°4)
3³õ(³Ó²v¬°"3","ªÅ","ªÅ")¦X¨Ö³Ó²v??(¬O§_¬°4)
3³õ(³Ó²v¬°"ªÅ","ªÅ","ªÅ")¦X¨Ö³Ó²v??(¬O§_¬°1)
3³õ(³Ó²v¬°"3","1","ªÅ")¦X¨Ö³Ó²v??(¬O§_¬°5)
4³õ(³Ó²v¬°"ªÅ","3","1","ªÅ")¦X¨Ö³Ó²v??(¬O§_¬°5)
¥u¦³¤@³õ¬O§_³Ó²vÄæ¦ì³£¤£ÅÜ
¦h³õªº¥u­n³Ó²v¬°ªÅªº¤£ºÞ´X³õ³£¥uºâ1³õ³Ó³õ,¨ä¾l³Ó²vÄ榳­Èªºª½±µ²Ö¥[­È

§A¦n¡A©êºp²{¦b¤~¦^´_

2³õ(³Ó²v¬°"3","ªÅ")¦X¨Ö³Ó²v??  
Á`¦@³Ó5³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 4³õ

3³õ(³Ó²v¬°"3","ªÅ","ªÅ")¦X¨Ö³Ó²v??  
Á`¦@³Ó6³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 5³õ

3³õ(³Ó²v¬°"ªÅ","ªÅ","ªÅ")¦X¨Ö³Ó²v??  
Á`¦@³Ó3³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 2³õ

3³õ(³Ó²v¬°"3","1","ªÅ")¦X¨Ö³Ó²v??     
Á`¦@³Ó7³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 6³õ

4³õ(³Ó²v¬°"ªÅ","3","1","ªÅ")¦X¨Ö³Ó²v??
Á`¦@³Ó7³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 6³õ

¥H¤U°l¥[¡A¬Ý¯à§_²z¸Ñ

¶È1¦CµL¨ä¥L¬Û¦PªÌ (¸Ó®æ³Ó²v¬° "3")
Á`¦@³Ó4³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 3³õ

¶È1¦CµL¨ä¥L¬Û¦PªÌ (¸Ó®æ³Ó²v¬° "ªÅ")
Á`¦@³Ó1³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° ªÅ³õ

¦@2¦C¬Û¦P ³Ó²v¬° "2","ªÅ"
Á`¦@³Ó4³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 3³õ

¦@2¦C¬Û¦P ³Ó²v¬° "ªÅ","ªÅ"
Á`¦@³Ó2³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 1³õ

¦@2¦C¬Û¦P ³Ó²v¬° "2","1"
Á`¦@³Ó5³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 4³õ

¦@3¦C¬Û¦P ³Ó²v¬° "2","ªÅ","1"
Á`¦@³Ó6³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 5³õ

¦@4¦C¬Û¦P ³Ó²v¬° "7","ªÅ","3","ªÅ"
Á`¦@³Ó14³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 13³õ

¥H¤W³£¬O¦X¨Ö§¹«á¶È¯d¤@¦C

¥u¦³¤@³õ¬O§_³Ó²vÄæ¦ì³£¤£ÅÜ
¨S¦³2­Ó¬Û¦Pªº¦C³Ó²vÄ椣ÅܵL»~

¦h³õªº¥u­n³Ó²v¬°ªÅªº¤£ºÞ´X³õ³£¥uºâ1³õ³Ó³õ,¨ä¾l³Ó²vÄ榳­Èªºª½±µ²Ö¥[­È

µn°O¹Lªº¤@¦C´N¬O¤@¡A«á­±³Ó²vÄ榳­È´N¥Nªíµn°Oªº·í¤U¦³2­Ó¤@¼Ëªº²Õ¦XÀò³Ó
¦]¬°µn°O¤£¨£±o¬O¦P¤@¤Ñ¡A©Ò¥H¤~·|¥X²{
¦P¼Ëªº¦C¦ý³Ó²v¤£¦Pªºª¬ªp¡A³o­Ó®É­Ô´N»Ý­n¦X¨Ö
¥ý«e´N¬O³£¤â¤u¦X¨Ö

TOP

¦^´_ 37# ­ã´£³¡ªL


      
³oªº½T¬O¦P¤@¹ï¾Ô¡A§Ú¥Ø«e¨S¿ìªk²Î­p¨ì³o»ò²Ó¡A©Ò¥H¤~·|¦U¦Û¶ñ¤W³Ó¸ò±Ñ³õ
        ¦]¬°¦³¤À§Ú¥h¥´¸ò³Q¥´ªºª¬ªp¡A§Ú´N¬O²Î­pŸò¿é¦Ó¤w
        ¤@­Ó¤@­ÓºI¹Ï¡AµM«á§â¸ê®Æ¥´¶iexcel¸Ì
       
        ¦]¬°­n¥´ªº®É­Ô·|¥Îexcel¥h¿z¿ï¼Ä¹ï¤è±ø¥ó¡AµM«á¥h¥´¡A¥´Ä¹¦b³Ó³õ+1¡A¥´¿é¦b±Ñ³õ+1
        µM«á±Ñ³õ¦h¤F¦A¥Î¿z¿ï¥h§ä¬Û¹ïªº³¡¤À¡A§â¨âÃ䪺¼Æ¦r´«¹L¨Ó
       
        °ò¥»¤W³o­Ó¬ö¿ýªíµÛ­«¦b¥´Ä¹ªº³¡¤À¡A¤ñ¸û³Â·Ðªº³¡¤À¦b©ó¼Ä¹ï¤è¦³¨Ç¬O½Òª÷­^¶¯
        ©Ò¥H·|¥X²{¶È¦³´X³õ³Ó²v¦ý±Ñ²v«Ü°ªªº¦C¡A³o­Ó´N¨S±o¤ÏÂà¤F

       
        ¦^¨ì¥DÃD
        ³o±iªí¬O®³¨Ó°Ñ¦Ò¼Ä¹ï¤è¥X°}®É§Ú­n¥X¬Æ»ò²Õ¦X¤~¦³¸û°ª³Ó²v
       
        ²Õ¦X1--a/b/d/f/h-¤HÃþ -- ³Ó5±Ñ3
        ²Õ¦X2--b/d/e/f/g-¤HÃþ -- ³Ó3±Ñ5
        ²z½×¤W¨ÓÁ¿¡A­Y§ð¦uÂù¤è²Õ¦X¤¤¨S¦³§t§Ú¨S¦³ªº½Òª÷­^¶¯¡A§Ú·|¯d¦s³Ó²v°ªªº¨º²Õ
        ¤]´N¬O²Õ¦X1¡AµM«á¸I¨ì¹ï¤è¥X°}²Õ¦X2´N®³²Õ¦X1¥h¥´
       
        ¦ý¦]¬°¦³½Òª÷­^¶¯¦s¦b³o­Ó´N·|½ÆÂø«Ü¦h
        ¦]¬°§Ú¨S¦³¨º­Ó­^¶¯¡A´N¥u¯àµn°O²Õ¦X2
        ÁöµM±Ñ³õ¤ñ³Ó³õ°ª¡A¦ý¬O§Ú¥u¦³²Õ¦X2¥i¥H¥X
       
        ©Ò¥H¥Ø«e¥u¯à³o¼Ëµn°O¦Ó¤w

TOP

¦^´_  wei9133

¦³ªÅÀ°§Ú¬Ý¤@¤U ¬O¤£¬O³o¼Ëªºµ²ªG ÁÂÁÂ

javascript:;
°a¤ªºµ µoªí©ó 2020-10-25 01:20



        §A¦n¡AÀ³¸Ó¤£¹ï
    °õ¦æ§¹¥uŤ@³õªº³£³Q§R±¼¤F
    §AÀ°§Ú¬Ý¤@¤U#41§A¬O§_¯à°÷²z¸Ñ
       
        ¦X¨Ö«e¨C¦C³£¤w¸gµø¬°1¤F(³Ó²vµL­Èªºª¬ªp)
       
        À³¸Ó³o¼ËÁ¿¡A³Ó²vµL­È¬°1¡A¦³­È´N¥[¤W¥h§A§â³Ó²v¨º®æ¤ºªº¼Æ¦r¤@«ß+1
        ³Ì«á§âÁ`¼Æ¥[°_¨Ó-1
        (-1¬O¦]¬°¸Ó¦C¦Û¤v´N¬O1)
       

        ¥Ø«e¦³3¦C¤@¼Ë (³o¸Ì¤w¸g1~102¸ò106³]©w¬°¤@¼Ë¤F)
        ³Ó²v®æ¤À§O¬°
          
        ²Ä¤@¦C³Ó²v"ªÅ" = ³o¦CÁ`¦@³Ó1³õ
        ²Ä¤G¦C³Ó²v"2"  = ³o¦CÁ`¦@³Ó3³õ
        ²Ä¤T¦C³Ó²v"ªÅ" = ³o¦CÁ`¦@³Ó1³õ
       
    ³o¤T¦C­n¦X¨Ö¡A©Ò¥HÁ`¦@¬OŤF5³õ
        ¯d¤U¤@¦C¡A³Ó³õ¶ñ¤J4
        (ÁÙ¦³¤@³õ´N¬O¯d¤Uªº¨º¤@¦C)
       
        ;======================================

        ¥t¤@­Ó±¡ªp
        ¥þ³¡§ä§¹´N¥u¦³³o¤@¦C¡AµL¥t¤@¦Cªø±o¤@¼Ëªº
        ©Ò¥HÅܦ¨
       
        ²Ä¤@¦C³Ó²v"ªÅ" = ³o¦CÁ`¦@³Ó1³õ
       
        ¨S±o¦X¨Ö
        ¯d¤U¤@¦C¡A³Ó³õ¤£¶ñ
        (¦]¬°¥»´NµL­È)
       
        ;======================================

        ¥þ³¡§ä§¹´N¥u¦³³o¤@¦C¡AµL¥t¤@¦Cªø±o¤@¼Ëªº
        ©Ò¥HÅܦ¨
       
        ²Ä¤@¦C³Ó²v"3" = ³o¦CÁ`¦@³Ó4³õ
       
        ¨S±o¦X¨Ö
        ¯d¤U¤@¦C¡A³Ó³õ¶ñ3
        (¯d¤U³o¤@¦C¬°1¡A³Ó³õ¼g3)
       
        ¨ä¹ê³Ó³õÀ³¸Ó²z¸Ñ¬°¦hĹªº¦¸¼Æ
       
       
        §A­Ìªº²z¸ÑÀ³¸Ó³£¬O¸Ó¦C¤£­p¼Æ¡A³Ó³õ´N¬OÁ`³Ó¼Æ
        ¦ý³o¼Ë´N¤£¥i¯à¥X²{³Ó²v¬°ªÅªº®æ¤l¤F
        ¦]¬°¨C®æ¦Ü¤ÖÀ³¸Ó³£­n¬O1¡C

        ¦Ó§Ú¦b¥´¸ê®Æªº®É­Ô¤w¸g§â¸Ó¦Cµø¬°1¤F
        ¥X²{¸Ó¦C´N¬O³Ó1³õ¡A¦³¦AŦA+1¦b³Ó³õ¤W­±
        ©Ò¥H¨C¦Cªº³Ó³õ¸Ó®æªº¼Æ¦r¼Æ¨ä¹ê¥¼¥]§t¦Û¤v¥»¨­¡A¦X¨Öªº®É­Ô´N­n§â¥L¥[¤W¥h

TOP

¦^´_  wei9133

1.¸ê®Æ¦ì¸m©ñ¸m²Ä¤G­Ósheet,½Ð¦Û¦æ­×§ï©ñ¸m¦ì¸m
2.³Ó³õ­pºâ¤è¦¡
-->¥u¦³1µ§¸ê®Æ,³Ó³õ³£ ...
jcchiang µoªí©ó 2020-10-22 10:24



    §A¦n¡A³o­Ó°õ¦æ·|µo¥Í¿ù»~
Microsoft_Visual_Basic_-_¹ï¾Ô²Î­p.xls_[¤¤Â_]_-_[Module3_-2020-10-28-12-48-24.png
2020-10-28 12:56

Microsoft_Visual_Basic_-_¹ï¾Ô²Î­p.xls_[°õ¦æ¤¤]_-_[Module3-2020-10-28-12-48-17.png
2020-10-28 12:56


³Ó³õ­pºâ¤è¦¡
-->¥u¦³1µ§¸ê®Æ,³Ó³õ³£¤£ÅÜ°Ê
-->2µ§¥H¤W¸ê®Æ,©Ò¦³ªº"ªÅ"³£ºâ¼W¥[1³õ,¦³­Èªºª½±µ²Ö¥[

¦³­ÈªºÀ³¸Ó¬O¸Ó­È+1
(¦]¬°¸Ó¦C¥»¨­´N¬O1)
¥i¥H¬Ý¬Ý#41ªºªTÁ|

        §A­Ìªº²z¸ÑÀ³¸Ó³£¬O¸Ó¦C¤£­p¼Æ¡A³Ó³õ´N¬OÁ`³Ó¼Æ
        ¦ý³o¼Ë´N¤£¥i¯à¥X²{³Ó²v¬°ªÅªº®æ¤l¤F
        ¦]¬°¨C®æ¦Ü¤ÖÀ³¸Ó³£­n¬O1¡C


        ¤£¹L³o­Ó°ÝÃD¥i¥H³z¹L§Ú§ïÅܲέp¤è¦¡¸Ñ¨M¡A¤£¹L¤W­±·|µo¥Í¿ù»~ªº³¡¤À­n¥ý¸Ñ¨M

TOP

¥»©«³Ì«á¥Ñ jcchiang ©ó 2020-10-29 11:31 ½s¿è

¦^´_ 44# wei9133

1.¨º¬qµ{¦¡§Ú°õ¦æ¨S¦³°ÝÃD(¥u¬O²M°£­p¼Æ¸ê®Æ,·sªºµ{¦¡¤w¤£»Ý­n)
2.¥u­n¬O¥u¦³1¦Cªººû«ù­ì¸ê®Æ
   ²Ä¤G¦C¶}©l,°£³Ó²vÄæ¦ì¼Æ­È²Ö¥[,¨C¦C¦A¥[1(²Ä¤@¦C¤£¥[)
¶È1¦CµL¨ä¥L¬Û¦PªÌ (¸Ó®æ³Ó²v¬° "3")
Á`¦@³Ó4³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 3³õ
-->1¦Cªººû«ù­ì¸ê®Æ

¶È1¦CµL¨ä¥L¬Û¦PªÌ (¸Ó®æ³Ó²v¬° "ªÅ")
Á`¦@³Ó1³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° ªÅ³õ
-->1¦Cªººû«ù­ì¸ê®Æ

¦@2¦C¬Û¦P ³Ó²v¬° "2","ªÅ"
Á`¦@³Ó4³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 3³õ
-->2¦C¥H¤W("2"+"(0+1)"=3)

¦@2¦C¬Û¦P ³Ó²v¬° "ªÅ","ªÅ"
Á`¦@³Ó2³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 1³õ
-->2¦C¥H¤W("0"+"(0+1)"=1)

¦@2¦C¬Û¦P ³Ó²v¬° "2","1"
Á`¦@³Ó5³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 4³õ
-->2¦C¥H¤W("2"+"(1+1)"=4)

¦@3¦C¬Û¦P ³Ó²v¬° "2","ªÅ","1"
Á`¦@³Ó6³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 5³õ
-->2¦C¥H¤W("2"+"(0+1)","(1+1)"=5)

¦@4¦C¬Û¦P ³Ó²v¬° "7","ªÅ","3","ªÅ"
Á`¦@³Ó14³õ¡A¦X¨Ö«á³Ó²vÄæ¼Ð°O¬° 13³õ
-->2¦C¥H¤W("7"+"(0+1)"+"(3+1)"+"(0+1)"=13)
¦pªGÁÙ¬O¤£¹ï,½Ð¼g­pºâ¤½¦¡(¥u¼g´X³õ«ÜÃø²z¸Ñ)

Sub ex5()
Dim d As Object, ar As Object, r
Dim i%, AA$, a
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set ar = Sheets("¹ï¾Ô²Î­p").[a1].CurrentRegion
For i = 1 To ar.Rows.Count
   AA = Join(Application.Transpose(Application.Transpose(ar(i, 1).Resize(, 102))), ",") & "," & ar(i, 106) '«Ø¥ß§PÂ_±ø¥ó
   If Not d.exists(AA) Then   '¦r¨å¤º¬dµL¸Ó±ø¥ó
      d(AA) = Application.Transpose(Application.Transpose(ar(i, 1).Resize(, 115)))
   Else
      a = Application.Transpose(Application.Transpose(d(AA)))   '±N¦r¨å¸ê®Æ¨ú¥X
      a(103) = a(103) + ar(i, 103) + 1 '²Ä¤Gµ§¥H¤W³Ó³õ³£¦h¥[1
      For Each r In Array(104, 107, 109, 115) '±N³Æµù,DC,DE,DKÄæ¦ì¸ê®Æ¦X¨Ö
         If a(r) <> "" And ar(i, r) <> "" Then '¦pªG¦r¨å»PÄæ¦ì³£¦³¸ê®Æ,¨Ï¥Î","¬Û³s
            a(r) = a(r) & "," & ar(i, r)
         ElseIf a(r) = "" And ar(i, r) <> "" Then '¦pªG¦r¨å¸ê®Æ¬°ªÅ¥Õ,Äæ¦ì¬O¦³¸ê®Æªº,¨Ï¥ÎÄæ¦ì¸ê®Æ
            a(r) = ar(i, r)
         End If
      Next
      d(AA) = a   '±N¸ê®Æ©ñ¦^¦r¨å
   End If
Next
With Sheets(2)  '¦b²Ä¤G­ÓSheet¶ñ¤J¸ê®Æ
.[a1].CurrentRegion.Clear '²M°£Sheet¸ê®Æ
.[a1].Resize(d.Count, UBound(a)) = Application.Transpose(Application.Transpose(d.items)) '±N¦r¨å¸ê®Æ¦C¥X
End With
Set d = Nothing
Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 43# wei9133

¦³ªÅÀ°§Ú¬Ý¤@¤U ¬O¤£¬O³o¼Ë  ¦pªG¦³°ÝÃD ½Ð§i¶D§Ú°ÝÃD¥X¦b­þ¸Ì ·PÁÂ
javascript:;

¹ï¾Ô²Î­p -1030.rar (32.61 KB)

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-10-30 01:36 ½s¿è

¦^´_ 43# wei9133

©ÎµÛ§ï¦¨³o¼Ë ¬Ý¬Ý ¬O¤£¬O§A­nªºµ²ªG  ÁÙ¬O»¡  jcchiang«e½ú ªº¤~¬O§A­nªºµ²ªG
  1. Public Sub ½m²ß1030()
  2. Sheets(2).Select
  3. Rows(2).Select
  4. ActiveWindow.FreezePanes = False
  5. Application.ScreenUpdating = False
  6. Sheets(2).[a1].CurrentRegion.Clear
  7. Sheets(1).Select
  8. Dim Arr, d, xD, x&, y&, k&, T1$, T2$, T3$, T4$
  9. Set xD = CreateObject("Scripting.Dictionary")
  10. Arr = Range(Cells(Rows.Count, 1).End(xlUp), Cells(1, 115))
  11. For x = 2 To UBound(Arr, 1)
  12.     T1 = ""
  13.     For y = 1 To 51
  14.         T1 = T1 & Arr(x, y)
  15.         If Arr(x, y) = "" Then T1 = T1 & "-"
  16.     Next y
  17.     T3 = ""
  18.     For y = 52 To 102
  19.         T3 = T3 & Arr(x, y)
  20.         If Arr(x, y) = "" Then T3 = T3 & "-"
  21.     Next y
  22.     If T1 = T3 Then
  23.        T1 = T1 & T3 & Arr(x, 106)
  24.        T3 = ""
  25.         If Arr(x, 103) = "" Then
  26.            Arr(x, 103) = 1
  27.            xD(T1) = xD(T1) + Arr(x, 103)
  28.         ElseIf Arr(x, 103) <> "" Then
  29.            xD(T1) = xD(T1) + Arr(x, 103)
  30.         End If
  31.         xD(T1 & 105) = xD(T1 & 105) + Arr(x, 105)
  32.     End If
  33. Next x
  34. T1 = "": T3 = ""
  35. For Each d In xD
  36.     For x = UBound(Arr, 1) To 2 Step -1
  37.         T2 = ""
  38.         For y = 1 To 51
  39.             T2 = T2 & Arr(x, y)
  40.             If Arr(x, y) = "" Then T2 = T2 & "-"
  41.         Next y
  42.         T4 = ""
  43.         For y = 52 To 102
  44.             T4 = T4 & Arr(x, y)
  45.             If Arr(x, y) = "" Then T4 = T4 & "-"
  46.         Next y
  47.         If T2 = T4 Then
  48.             T2 = T2 & T4 & Arr(x, 106)
  49.             T4 = ""
  50.             If d = T2 Then
  51.                 E = E + 1
  52.                 If E = 1 Then
  53.                    If Arr(x, 103) > 0 Then Arr(x, 103) = xD(d)
  54.                    If Arr(x, 103) <= 1 Then Arr(x, 103) = ""
  55.                 Else
  56.                     Arr(x, 103) = xD(d) - 1
  57.                     If Arr(x, 103) < 0 Then Arr(x, 103) = Arr(x, 103) * -1
  58.                 End If
  59.                 Arr(x, 105) = xD(d & 105)
  60.                 If xD(d & 105) = 0 Then Arr(x, 105) = ""
  61.             End If
  62.         End If
  63.     Next x
  64.     E = 0
  65. Next d
  66. T2 = "": T4 = "": d = "": k = 1
  67. Set xD = Nothing
  68. For x = 2 To UBound(Arr, 1)
  69.     If Arr(x, 107) <> "" Or Arr(x, 109) <> "" _
  70.     Or Arr(x, 115) <> "" Or Arr(x, 104) <> "" Then
  71.         k = k + 1
  72.         For y = 1 To UBound(Arr, 2)
  73.             Arr(k, y) = Arr(x, y)
  74.         Next y
  75.     End If
  76. Next x
  77. T2 = "": T4 = ""
  78. Sheets(2).Range("A1").Resize(k, UBound(Arr, 2)) = ""
  79. Sheets(2).Range("A1").Resize(k, UBound(Arr, 2)) = Arr
  80. Erase Arr
  81. Application.ScreenUpdating = True
  82. Sheets(2).Select
  83. Rows(2).Select
  84. ActiveWindow.FreezePanes = True
  85. Cells(Rows.Count, 106).End(xlUp).Select
  86. End Sub
½Æ»s¥N½X

TOP

¦^´_ 43# wei9133
©êºp­è¤~µo²{²Ö¥[³Ó²v¦³°ÝÃD §ï¤@¤U  ¦³±±¦AÀ°§Ú¬Ý¤@¤U  ·PÁÂ


javascript:;

¹ï¾Ô²Î­p -1030_01.rar (33.82 KB)

TOP

°ò¥»·§©À:
¸ê®ÆªíÀ³¬O"¬y¤ôªí"»P"²Î­pªí"¤À¶},
1) ¬y¤ôªí: ¬°©Ò¦³¹ï¾Ô°O¿ý, ¥i­«ÂÐ, ¤]¥i²Ö¿n, ¤]¥i±N¤w³Q²Î­p¹Lªº§R°£, ´î¤Ö¤ñ¹ï¤u§@¤Î®É¶¡,
    ³Ó³õ¬°ªÅªº, ªí¥Ü¬O·s°O¿ý, ²Î­p¹L¤F¶ñ¤J1, ¥H§K¦A°õ¦æ²Î­p®É¤S­p¤@¦¸
2) ²Î­pªí: ¥u¯d¦U²Õ¦Xªº°ß¤@, ²զXª½±µ²Ö­p, ·s²Õ¦X«h·s¼W¤@µ§, «OÃÒ¤£­«ÂÐ,
    ¥²¶·¦³¹ï¾ÔÁ`¦¸¼Æ, ¤Î³Ó³õ¼Æ, ¤~¯à´«ºâ³Ó²v, ²Î­p§¹«á, ¥HÁ`¹ï¾Ô¼Æ¬°¥D,³Ó²v¬°¦¸±Æ§Ç,
   __¹L¥h¤w¦³ªº¹ï¾Ô°O¿ý²Î­p, ¶·¨Æ¥ý¤â°Ê«Ø¥ß

TOP

¦^´_ 49# ­ã´£³¡ªL


·PÁ ·Ç¤j«ü¾É ¤£ª¾¹D³o¼Ë§ï ¬O¤£¬O¦³±µªñ ·Ç¤j»¡ªº¤èªk
¬Ý°_¨ÓÁÙ¬O¦³®t«Ü¦h µ²ªG»P jcchiang«e½úªº¤£¦P  ¤£ª¾¦p¦ó­×§ï...
  1. Public Sub ½m²ß1030_02()
  2. Sheets(2).Select
  3. Rows(2).Select
  4. ActiveWindow.FreezePanes = False
  5. Application.ScreenUpdating = False
  6. Sheets(2).[a1].CurrentRegion.Clear
  7. Sheets(1).Select
  8. Dim Arr, D, xD, x&, y&, k&, T1$, T2$, T3$, T4$
  9. Set xD = CreateObject("Scripting.Dictionary")
  10. Arr = Range(Cells(Rows.Count, 1).End(xlUp), Cells(1, 115))
  11. For x = 2 To UBound(Arr, 1)
  12.     T1 = ""
  13.     For y = 1 To 51
  14.         T1 = T1 & Arr(x, y)
  15.         If Arr(x, y) = "" Then T1 = T1 & "-"
  16.     Next y
  17.     T3 = ""
  18.     For y = 52 To 102
  19.         T3 = T3 & Arr(x, y)
  20.         If Arr(x, y) = "" Then T3 = T3 & "-"
  21.     Next y
  22.     If T1 = T3 Then
  23.         T1 = T1 & T3 & Arr(x, 106)
  24.         T3 = ""
  25.         If Arr(x, 103) = "" Then
  26.            Arr(x, 103) = 1
  27.            xD(T1) = xD(T1) + Arr(x, 103)
  28.         ElseIf Arr(x, 103) <> "" Then
  29.            xD(T1) = xD(T1) + Arr(x, 103) + 1
  30.         End If
  31.         xD(T1 & 105) = xD(T1 & 105) + Arr(x, 105)
  32.     End If
  33. Next x
  34. T1 = "": k = 1
  35. For Each D In xD
  36.     For x = 2 To UBound(Arr, 1)
  37.         T2 = ""
  38.         For y = 1 To 51
  39.             T2 = T2 & Arr(x, y)
  40.             If Arr(x, y) = "" Then T2 = T2 & "-"
  41.         Next y
  42.         T4 = ""
  43.         For y = 52 To 102
  44.             T4 = T4 & Arr(x, y)
  45.             If Arr(x, y) = "" Then T4 = T4 & "-"
  46.         Next y
  47.         If T2 = T4 Then
  48.             T2 = T2 & T4 & Arr(x, 106)
  49.             T4 = ""
  50.             If D = T2 Then
  51.                 k = k + 1
  52.                 Arr(x, 103) = xD(D) - 1
  53.                 Arr(x, 105) = xD(D & 105)
  54.                 If Arr(x, 107) <> "" Or Arr(x, 109) <> "" _
  55.                 Or Arr(x, 115) <> "" Or Arr(x, 104) <> "" Then
  56.                      For y = 1 To UBound(Arr, 2)
  57.                          Arr(k, y) = Arr(x, y)
  58.                          If Arr(k, 103) = 0 Then Arr(k, 103) = ""
  59.                          If Arr(k, 105) = 0 Then Arr(k, 105) = ""
  60.                      Next y
  61.                 Exit For
  62.                 End If
  63.             End If
  64.         End If
  65.     Next x
  66. Next D
  67. T2 = "": Set xD = Nothing
  68. Sheets(2).Range("A1").Resize(k - 1, UBound(Arr, 2)) = ""
  69. Sheets(2).Range("A1").Resize(k - 1, UBound(Arr, 2)) = Arr
  70. Erase Arr
  71. Application.ScreenUpdating = True
  72. Sheets(2).Select
  73. Rows(2).Select
  74. ActiveWindow.FreezePanes = True
  75. Cells(Rows.Count, 106).End(xlUp).Select
  76. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD