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

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

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

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