[µo°Ý] ¦p¦ó©î¤À¦P¤@Äæ¦ì¤ºªº¸ê®Æ

jsc0518

Dear all,
§Ú¦bA1¡BA2Äæ¦ì¤¤³£¦³¿é¤J¸ê®Æ¡A¸ê®Æ³£¬O¥ÎALT+ENTERªº¤è¦¡§@·~
§Ú·Q§âA1¡BA2Äæ¦ì¤ºªº¸ê®Æ©î¤À¦¨¤@­Ó¸ê®Æ¤@­ÓÄæ¦ì
·Q°Ý¦U¦ì¥ý¶i¡A¬O§_¦³­þ­Ó¤½¦¡¬O¥i¥H¨Ï¥Îªº©O¡H
ÁÂÁÂ
EXCEL.rar (8.76 KB)

¤U¸ü¦¸¼Æ: 12

2021-7-4 12:51

¤U¸ü (51.32 KB)

2021-7-4 12:51

samwang

¦^´_ 1# jsc0518


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C
   
Sub test()
Dim Arr, a
Arr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Arr)
    a = Split(Arr(i, 1), Chr(10))
    For j = 0 To UBound(a)
        Cells(i, 3 + j) = Split(a(j), ")")(1)
    Next
Next
End Sub

hcm19522

https://blog.xuite.net/hcm19522/twblog/589871654

jsc0518

¦^´_ 2# samwang
Dear samwang,
½Ð°Ý¤@¤U¡A­Y§Úªº²Ä¤@¦C¬°¼ÐÃD©ïÀYªº¸Ü¡A»yªk­n«ç»ò­×­q©O¡H
·PÁ±z

¤U¸ü (24.32 KB)

2021-7-5 12:29

jsc0518

¦^´_ 3# hcm19522
Dear hcm19522,
ÁÂÁ§Aªº¼ö¤ß«ü¾É»P¦^ÂмڡA¥i¥H¨Ï¥Î¡I
·P®¦¡I

samwang

¦^´_ 4# jsc0518

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

Sub test2()
Dim Arr, a
Arr = Range([A1], [A65536].End(3))
For i =2 To UBound(Arr)
     a = Split(Arr(i, 1), Chr(10))
     For j = 0 To UBound(a)
         Cells(i, 3 + j) = Split(a(j), ")")(1)
     Next
Next
End Sub

jsc0518

¦^´_ 3# hcm19522

Dear hcm19522,
±z¦n¡I§Ú­è­è¦bAÄæ¦ì¦A´¡¤F¤@Äæ¦ì¡A¤½¦¡ªº³¡¤À«oµLªk®»¨ì²Ä¤@­Ó§å¸¹(¦p¤U¹Ï)¡A½Ð°Ý¤½¦¡­þ¸Ì»Ý­×­q©O¡H

¤U¸ü (45.47 KB)

2021-7-5 14:10

jsc0518

¦^´_ 6# samwang
Dear samwang,
«D±`·PÁ±zªº¼ö¤ß¦^À³»P«ü¾É¡A´ú¸ÕOK¡I
^_^

jsc0518

¦^´_ 6# samwang
Dear samwang,
±ß¤W¦n¡A¦A½Ð±Ð¤@¤U¡A­Y°£¤F(1)¤£­n¥~¡A§Ú·Q¦A¥[¤W   (1)KW-
³o´X­Ó¦r¤¸³£¤£­n¡A­n¦p¦ó§ïVBA©O¡H



   

¤U¸ü (42.04 KB)

2021-7-5 20:28

samwang

¦^´_ 9# jsc0518

½Ð¦A¸Õ¬Ý¬Ý¡A·PÁÂ

Sub test3()
Dim Arr, a
Arr = Range([A1], [A65536].End(3))
For i = 2 To UBound(Arr)
    a = Split(Arr(i, 1), Chr(10))
    For j = 0 To UBound(a)
        Cells(i, 3 + j) = Split(a(j), "-")(1)
    Next
Next
End Sub