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

¦³Ãösheet1©î¶}¤Î½Æ»s¸ê®Æ¦Üsheet2

¦^´_ 1# pesi2884
  1. Sub Ex()
  2. Dim Ay(16), Ary()
  3. With Sheet1
  4. For Each a In .Range(.[A2], .[A65536].End(xlUp))
  5. Ar = Split(a, "¡B")
  6. For i = 0 To UBound(Ar)
  7. Ay(0) = Ar(i)
  8.    For j = 1 To 11
  9.       Ay(j) = a.Offset(, j).Value
  10.       If i > 0 And Ay(j) = 1 Then Ay(j) = "-"
  11.    Next
  12.    x = 0
  13.    For k = 0 To UBound(Ar)
  14.       If k <> i Then Ay(12 + x) = Ar(k): x = x + 1
  15.    Next
  16.    ReDim Preserve Ary(s)
  17.    Ary(s) = Ay
  18.    s = s + 1
  19.    Erase Ay
  20. Next
  21. Next
  22. End With
  23. Sheet2.[A2:P65536] = ""
  24. Sheet2.[A2].Resize(s, 16) = Application.Transpose(Application.Transpose(Ary))
  25. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# sping


    µu¤£¤@©w´N¬O¦n
¯à°÷§¹¦¨»Ý¨Dªºµª®×³£¬O¦nµª®×
¤À¬q°õ¦æ¦³¤À¬q°õ¦æªº¦n³B
®e©ö°£¿ù¤Î­×¥¿µ{¦¡
µ{¦¡µu¥i¯à¥Î¨ìªº¨ç¼Æ¦h°õ¦æ®Ä²v¤£¤@©w¤ñ¸û¦n
¦Ó¥B¦pªG¨S¦³§¹¥þ¤F¸Ñµ{¦¡ªº·N«ä
¥H«á­n­×§ï¥i¯à·|³y¦¨«Ü¤jªº§xÃø
©Ò¥H¤£¥²¸r¼}µ{¦¡Â²µu
¾Ç²ß¨ì¤º®e§t·N¤~¬O­«­nªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD