jsc0518

¦^´_ 10# samwang
Dear samwang,
¤Ó·PÁ§AªºÀ°¦£Åo¡A¸Ñ¨M§Úªº§xÂZ¡C
¾Ç²ß¤F

ML089

¦^´_ 4# jsc0518
(1)KY-09030E
(2)KA-09032E
(3)WW-01234E
(4)WX-987852
·í¸ê®Æ©T©wªø«×®É¥i¥H²¤Æ¤½¦¡¦p¤U

C1¤½¦¡ =IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")
§ï¬°
C2¤½¦¡ =IFERROR(MID($A2,FIND("("&COLUMN(A2)&")",$A2)+6,6),"")

jsc0518

¦^´_ 12# ML089
Dear ML089,
¦­¦w¡I·PÁ§Aªº¦^ÂлP«ü¾É¡C

·Q»P±z½Ð±Ð¤@¤U
¹³¤@­ÓÄæ¦ì¤¤©ñ¤F«Ü¦h¸ê®Æ(¥ÎALT+ENTERªº¤è¦¡µn¿ý¸ê®Æ)¡A¤½¦¡¬O­þ¤@­Ó»yªk¥h§PÂ_ªº
¥t¥~¡A·íC1¡BD1©ñ¤J¤½¦¡«á¡A¤S¬O­þ¤@¤½¦¡»yªk¥h§PÂ_C1¤w¸g®»¹Lªº¸ê®ÆD1¤£·|¦A­«½Æ®»¹L

=IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")

jsc0518

¦^´_ 10# samwang
Dear samwang,
¤U¤È¦n¡A½Ð±Ð¤@¤U¡G­Y©î¤Àªº¸ê®Æ¬O¸õ®æªº¡A¨º»yªk­n«ç»ò­×§ï¡H

¤U¸ü (55.94 KB)

2021-7-6 14:45

samwang

¦^´_ 14# jsc0518


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, a
Arr = Range([C1], [C65536].End(3))
For i = 2 To UBound(Arr)
    a = Split(Arr(i, 1), Chr(10))
    k = 0
    For j = 0 To UBound(a)
        Cells(i, 5 + j + k) = Split(a(j), "-")(1)
        k = k + 1
    Next
Next
End Sub

jsc0518

¦^´_ 15# samwang
Dear samwang,
¤Ó·PÁ§AÅo¡IÀ°§Ú¦n¦hªº¦£¡A¥i¥H¥Î¡B¥¿±`¡I¡I
ÁÂÁ§A:) :)

ML089

¦^´_ 13# jsc0518

¦^´_ 12# ML089
Dear ML089,
¦­¦w¡I·PÁ§Aªº¦^ÂлP«ü¾É¡C

·Q»P±z½Ð±Ð¤@¤U
¹³¤@­ÓÄæ¦ì¤¤©ñ¤F«Ü¦h¸ê®Æ(¥ÎALT+ENTERªº¤è¦¡µn¿ý¸ê®Æ)¡A¤½¦¡¬O­þ¤@­Ó»yªk¥h§PÂ_ªº
¥t¥~¡A·íC1¡BD1©ñ¤J¤½¦¡«á¡A¤S¬O­þ¤@¤½¦¡»yªk¥h§PÂ_C1¤w¸g®»¹Lªº¸ê®ÆD1¤£·|¦A­«½Æ®»¹L

=IFERROR(MID($A1,FIND("("&COLUMN(A1)&")",$A1)+6,6),"")

§Aªº¸ê®Æ­n¤À¬q¬O¥H (1)......(2)......(3).....¡A©Ò¥H¥Î COLUMN(A1)=1 ¥k©Ô¤½¦¡®É´N·|Åܦ¨ COLUMN(B1)=2   COLUMN(C1)=3¡A¦A¥ÎFIND§ä¥X¦ì¸m
³o¤½¦¡¥u¯à¾A¥Î©ó 1~9

jsc0518

¦^´_ 17# ML089
Dear ML089,
±ß¤W¦n¡I·PÁ±z¦^´_¡A¾Ç²ßÅo¡I

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:

¤U¸ü (75.7 KB)

2023-5-12 10:08

°õ¦æµ²ªG:

¤U¸ü (78.08 KB)

2023-5-12 10:09

Option Explicit
Sub TEST()
Dim Brr, Crr, Z, N&, M&, i&
'¡ô«Å§iÅܼÆ
Brr = Range([A1], [A65536].End(3))
'¡ô¥OBrrÅܼƬO¤Gºû°}¦C,¥HAÄæÀx¦s®æ­È±a¤J
ReDim Crr(1 To UBound(Brr), 1 To 1000)
'¡ô«Å§iCrrÅܼƬO¤G¬°ªÅ°}¦C,Áa¦V½d³ò¦PBrr°}¦C,¾î¦V½d³ò±q1 ¨ì1000
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é
   If Brr(i, 1) = "" Then GoTo i01
   '¡ô¦pªG°}¦C­È¬OªÅªº!´N¸õ¨ì¼Ð¥Ü i01¦ì¸mÄ~Äò°õ¦æ
   N = 0
   '¡ô¥ONÅܼÆÂk¹s
   For Each Z In Split(Brr(i, 1), vbLf)
   '¡ô³]³v¶µ°j°é!¥OZÅܼƬO¦r¦ê³Q¸õ¦æ¦r¤¸¤À³Î¦¨ªº¤@ºû°}¦C¤l
      N = N + 1
      '¡ô¥ONÅܼƲ֥[ 1
      If Z = "" Then GoTo z01
      '¡ô¦pªGZÅܼƬOªÅªº!´N¸õ¨ì¼Ð¥Üz01¦ì¸mÄ~Äò°õ¦æ
      If InStr(Z, "-") Then
      '¡ô¦pªGZÅܼƸ̦³¥]§t"-"¦r¤¸?
         Crr(i, (N - 1) * 2 + 1) = Split(Z, "-")(1)
         '¡ô¥OZÅܼƱN"-"¦r¤¸¥k¤èªº¦r¦ê¼g¤J Crr°}¦C
         Else
            Crr(i, (N - 1) * 2 + 1) = Z
            '¡ô§_«h´N¥O ZÅܼƦr¦ê¼g¤J Crr°}¦C
      End If
      If N > M Then M = N
      '¡ô±´´úCrr°}¦C¾î¦V»Ý­n¦h¤ÖÄæ¼Æ
z01: Next
i01: Next
With [H1].Resize(UBound(Crr), (M - 1) * 2 + 1)
   .EntireColumn.ClearContents
   '¡ô±Nµ²ªGÄæ¸ê®Æ²M°£
   .Value = Crr
   '¡ô¥OCrr°}¦C­È±a¤JÀx¦s®æ
End With
Erase Brr, Crr
'¡ôÄÀ©ñÅܼÆ
End Sub