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

[µo°Ý] µæ³æ­åªR«á,Âà´«¦¨¸ê®Æ®w®æ¦¡

[µo°Ý] µæ³æ­åªR«á,Âà´«¦¨¸ê®Æ®w®æ¦¡

  1. Sub ²Õ¦X­åªR()
  2.   str As String
  3.     Dim S As Variant

  4. '
  5.             str = Sheets("­ì©l¸ê®Æ").[B3].Value


  6.                S = Split(str, "¡B")
  7.    
½Æ»s¥N½X

²Õ¦X­åªR.rar (12.88 KB)

¤w¸Ñ¨M,¥i§_À°¬Ý¬Ý¸Ó¦p¦ó²¤Æ ©Î§ïµ½¥N½X
  1. Sub ²Õ¦X­åªR()
  2.   Dim str As String
  3.     Dim S As Variant

  4. For «~¶µ¦C = 2 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
  5.             str = Sheets("­ì©l¸ê®Æ").Range("B" & «~¶µ¦C).Value


  6.        «~¶µ = Sheets("­ì©l¸ê®Æ").Range("A" & «~¶µ¦C).Value
  7.    
  8.       
  9.                 S = Split(str, "¡B")
  10.              RW = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
  11.                 ReDim brr(0 To UBound(S))
  12.               
  13.                 For E = 0 To UBound(S)
  14.             Range("D" & E + RW + 1) = «~¶µ '«~¶µ
  15.                     Range("E" & E + RW + 1) = S(E) '­¹§÷
  16.             
  17.                 Next
  18. Next


  19. End Sub
½Æ»s¥N½X
¦^´_ 1# starry1314

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD