[發問] 如何拆分同一欄位內的資料

jsc0518

Dear all,
我在A1、A2欄位中都有輸入資料，資料都是用ALT+ENTER的方式作業
我想把A1、A2欄位內的資料拆分成一個資料一個欄位
想問各位先進，是否有哪個公式是可以使用的呢？
謝謝
EXCEL.rar (8.76 KB)

下載次數: 12

2021-7-4 12:51

下載 (51.32 KB)

2021-7-4 12:51

samwang

回復 1# jsc0518


請測試看看，謝謝。
   
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,
請問一下，若我的第一列為標題抬頭的話，語法要怎麼修訂呢？
感謝您

下載 (24.32 KB)

2021-7-5 12:29

jsc0518

回復 3# hcm19522
Dear hcm19522,
謝謝你的熱心指導與回覆歐，可以使用！
感恩！

samwang

回復 4# jsc0518

請測試看看，謝謝

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,
您好！我剛剛在A欄位再插了一欄位，公式的部分卻無法捉到第一個批號(如下圖)，請問公式哪裡需修訂呢？

下載 (45.47 KB)

2021-7-5 14:10

jsc0518

回復 6# samwang
Dear samwang,
非常感謝您的熱心回應與指導，測試OK！
^_^

jsc0518

回復 6# samwang
Dear samwang,
晚上好，再請教一下，若除了(1)不要外，我想再加上   (1)KW-
這幾個字元都不要，要如何改VBA呢？



   

下載 (42.04 KB)

2021-7-5 20:28

samwang

回復 9# jsc0518

請再試看看，感謝

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