[µo°Ý] A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý

rouber590324

DEAR ALL ¤j¤j
1.A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý »¡©ú¦p¤U (¤½¥q¹q¸£-µLªk¤W¶ÇÀÉ®×SORRY)
2.SHEET1 ¸ê®Æ¦p¤U
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A2")=NET10        RANGE("B2")=A02     RANGE("C2")=2        RANGE("D2")=2  
RANGE("A3")=NET10        RANGE("B3")=A01     RANGE("C3")=3        RANGE("D3")=3  
RANGE("A4")=NET10        RANGE("B4")=A03     RANGE("C4")=4        RANGE("D4")=4  
RANGE("A5")=NET10        RANGE("B5")=A20     RANGE("C5")=5        RANGE("D5")=5  
RANGE("A6")=NET13        RANGE("B6")=A01     RANGE("C6")=6        RANGE("D6")=6  
RANGE("A7")=NET13        RANGE("B7")=A01     RANGE("C7")=7        RANGE("D7")=7  
RANGE("A8")=NET13        RANGE("B8")=A01     RANGE("C8")=8        RANGE("D8")=8  
RANGE("A9")=NET13        RANGE("B9")=A01     RANGE("C9")=9        RANGE("D9")=9  
RANGE("A10")=NET13      RANGE("B10")=A20   RANGE("C10")=10   RANGE("D10")=10  
2.1 ­ì«h1  AÄæ¦P¤º®e¬°¦P¤@²Õ (¨Ò :  NET10¬°¦P¤@²Õ NET13¬°¦P¤@²Õ )
      ­ì«h2  BÄæ A01¬°¥DKEY. »P «DA01 °t²ÕÂà¸m·sSHEET2.
3.SHEET2 µ²ªG¸ê®Æ¦p¤U
3.1 NET10¦³2²Õ A01 3²Õ«DA01   ¬G¦p¤U
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A2")=NET10        RANGE("B2")=A02     RANGE("C2")=2        RANGE("D2")=2  
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A4")=NET10        RANGE("B4")=A03     RANGE("C4")=4        RANGE("D4")=4
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A5")=NET10        RANGE("B5")=A20     RANGE("C5")=5        RANGE("D5")=5
RANGE("A3")=NET10        RANGE("B3")=A01     RANGE("C3")=3        RANGE("D3")=3
RANGE("A2")=NET10        RANGE("B2")=A02     RANGE("C2")=2        RANGE("D2")=2  
RANGE("A3")=NET10        RANGE("B3")=A01     RANGE("C3")=3        RANGE("D3")=3
RANGE("A4")=NET10        RANGE("B4")=A03     RANGE("C4")=4        RANGE("D4")=4
RANGE("A3")=NET10        RANGE("B3")=A01     RANGE("C3")=3        RANGE("D3")=3
RANGE("A5")=NET10        RANGE("B5")=A20     RANGE("C5")=5        RANGE("D5")=5
3.2 NET13¦³4²Õ A01 1²Õ«DA01 ¬G¦p¤U   
RANGE("A6")=NET13        RANGE("B6")=A01     RANGE("C6")=6        RANGE("D6")=6
RANGE("A10")=NET13      RANGE("B10")=A20   RANGE("C10")=10   RANGE("D10")=10  
RANGE("A7")=NET13        RANGE("B7")=A01     RANGE("C7")=7        RANGE("D7")=7
RANGE("A10")=NET13      RANGE("B10")=A20   RANGE("C10")=10   RANGE("D10")=10  
RANGE("A8")=NET13        RANGE("B8")=A01     RANGE("C8")=8        RANGE("D8")=8  
RANGE("A10")=NET13      RANGE("B10")=A20   RANGE("C10")=10   RANGE("D10")=10  
RANGE("A9")=NET13        RANGE("B9")=A01     RANGE("C9")=9        RANGE("D9")=9
RANGE("A10")=NET13      RANGE("B10")=A20   RANGE("C10")=10   RANGE("D10")=10  
4.·Ð¤£§[½ç±Ð  THANKS*10000

­ã´£³¡ªL

Sub TEST()
Dim Arr, Brr, xD, i&, T$, U, a, b, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([Sheet1!d1], [Sheet1!a65536].End(3))
For i = 1 To UBound(Arr)
    T = Arr(i, 1) & IIf(Arr(i, 2) = "A01", "", "|")
    xD(T) = Trim(xD(T) & " " & i)
Next i
ReDim Brr(1 To 30000, 1 To 4)
For Each U In xD.keys
    If xD(U & "|") = "" Then GoTo 101
    For Each a In Split(xD(U), " ")
    For Each b In Split(xD(U & "|"), " ")
        N = N + 2
        For i = 1 To 4
            Brr(N - 1, i) = Arr(a, i)
            Brr(N, i) = Arr(b, i)
        Next
    Next
    Next
101: Next
[Sheet2!A1:D1].Resize(N) = Brr
End Sub


=============================

rouber590324

DEAR ­ã´£³¡ªL ¤j¤j
§¹¥þ100%²Å¦X»Ý¨D
¤p§Ì«D±`«D±`«D±`·PÁ ­ã´£³¡ªL ¤j¤j ¸Ñ¨M§Ú¤u§@¤W¤§§xÂZ
THANKS *10000

rouber590324

dear  sirs
1.¦p¤U±Nµ{¦¡copy¦Ü»Ý¨Dexcel  ¶È±N  sheet1§ïsheet62    sheet2§ïsheet106
1.1 °±©ó   Arr = Range([Sheet62!d1], [Sheet62!a65536].End(3))
      ¥X²{  "¦¹³B¶·­nª«¥ó" µLªk°õ¦æ???
2.·Ð¤£§[½ç±Ð   thanks

Sub TEST()
Dim Arr, Brr, xD, i&, T$, U, a, b, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([Sheet62!d1], [Sheet62!a65536].End(3))
For i = 1 To UBound(Arr)
     T = Arr(i, 1) & IIf(Arr(i, 2) = "A01", "", "|")
     xD(T) = Trim(xD(T) & " " & i)
Next i
ReDim Brr(1 To 30000, 1 To 4)
For Each U In xD.keys
     If xD(U & "|") = "" Then GoTo 101
     For Each a In Split(xD(U), " ")
     For Each b In Split(xD(U & "|"), " ")
         N = N + 2
         For i = 1 To 4
             Brr(N - 1, i) = Arr(a, i)
             Brr(N, i) = Arr(b, i)
         Next
     Next
     Next
101:  Next
[Sheet106!A11].Resize(N) = Brr
End Sub

­ã´£³¡ªL

¦^´_ 4# rouber590324


½T©w¦³¦WºÙ¬°"Sheet62"ªº¤u§@ªí???

rouber590324

DEAR ­ã´£³¡ªL ¤j¤j
1.À´©Ô  ¤w§ï¬°
Arr = Range(['D-1'!d1], ['D-1'!a65536].End(3))
1.1 µ{¦¡¥i¹B§@   thanks*10000