[HELP] Tách những thành phần trong 1 cell ra thành từng dòng

[Phong baba]

Xin chào anh chị

Mình có 1 file , trong 1 ô có rất nhiều id số thế này

126801, 128609, 128610, 128611, 128599, 128600, 128601, 128602, 128603, 128604

có lệnh nào để mình tách mối id đó ra từng dòng đồng thời bỏ luôn dấu "," hay không , dữ liệu các ô khác thì giống y chang nhau không thay đổi

Mong được giúp đỡ , chân thành cảm ơn

 

[Comet297]

Bạn dùng Data => Text to column chuyển dữ liệu sang các cột rồi sau đó Paste Transpose để chuyển thành dòng là được.

 

[thangbithu]

công thức đây bạn
B3=TRIM(MID(SUBSTITUTE(REPT(" ";1)&$B$2;",";REPT(" ";100));(ROW()-2)*100;100))

 

[thangbithu]

Sorry, mình chỉnh lại công thức 1 tí:
B3=TRIM(MID(SUBSTITUTE(REPT(" ";100)&$B$2;",";REPT(" ";100));(ROW()-2)*100;100))

 

[Ba Tê]

Xin chào anh chị

Mình có 1 file , trong 1 ô có rất nhiều id số thế này

126801, 128609, 128610, 128611, 128599, 128600, 128601, 128602, 128603, 128604

có lệnh nào để mình tách mối id đó ra từng dòng đồng thời bỏ luôn dấu "," hay không , dữ liệu các ô khác thì giống y chang nhau không thay đổi

Mong được giúp đỡ , chân thành cảm ơn

Thử với VBA xem sao.

Public Sub GPE()
Dim Tem, sArr(), dArr(), I As Long, J As Long, K As Long, N As Long
sArr = Range([B1], [B1].End(xlDown)).Resize(, 40).Value
ReDim dArr(1 To 50000, 1 To 40)
For I = 2 To UBound(sArr, 1)
    Tem = Split(sArr(I, 1), ",")
    For N = 0 To UBound(Tem)
        K = K + 1
        dArr(K, 1) = Trim(Tem(N))
        For J = 2 To 40
            dArr(K, J) = sArr(I, J)
        Next J
    Next N
Next I
[B2].Resize(K, 40) = dArr
End Sub