[¨D§U] ±NÉN¯S©w®æ¦¡, ¤À¦¨¦h¦C

sammyc

¦p·Q¥Î vba ±NgxmcÄ椺¦p¦³¦h²Õ¼Æ¦r, ¤À¦¨¦h¦æ¸ê®Æ, ¸Ó¦p¦ó°µ,

bh                            gh                                wltm            gxmc              color           csize        shul2
12195-03A        EF03500                               14939        ,1,                CH012        42        72
12195-03A        EF03622                               14930        ,2,9,                CH012        38        48
12195-03A        EF03661                               14940        ,10,2,7,4,        CH012        42        48
                                               
µ²ªG                                               
bh                            gh                                wltm            gxmc        color           csize        shul2                                               
12195-03A        EF03500                               14939        ,1,        CH012        42        72
12195-03A        EF03622                               14930        ,2,        CH012        38        48
12195-03A        EF03622                               14930        ,9,        CH012        38        48
12195-03A        EF03661                               14940        ,10,        CH012        42        48
12195-03A        EF03661                               14940        ,2,        CH012        42        48
12195-03A        EF03661                               14940        ,7,        CH012        42        48
12195-03A        EF03661                               14940        ,4,        CH012        42        48

sammyc

¦^´_ 1# sammyc
¥ý¦æÁÂÁÂ, ¦ý°õ¦æ«á, ¨S¥ô¦óÅÜ°Ê,
¦æ¨ì s = s + 1«á, ¤v¸õ¨ìnext

   Ar(s) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value)
   s = s + 1
   Else
   ay = Split(a.Offset(, 3), ",")
   For Each c In ay
     If c <> "" Then
     ReDim Preserve Ar(s)
     Ar(s) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, "," & c & ",", a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value)
     s = s + 1
     End If
   Next
End If

sammyc

¤v¸Ñ¨M, ÁÂÁÂ