Tách 1 ô thành nhiều ô (4 người xem)

[phucnguyen1993]

Dear các anh chị, em có file dữ liệu như đính kèm, hiện e liên tục làm việc với dữ liệu như vậy, dữ liệu nhiều mà mỗi cứ copy paste từng ô 1 rồi dán ra nhiều ô rất lâu ạ, anh/chị có phương pháp nào giúp em với ạ. ( Em excel kém ( , hjx )
Em xin chân thành cảm ơn ạ
em gửi file đính kèm như bên dưới. Thanks

 

[hml89]

Dear các anh chị, em có file dữ liệu như đính kèm, hiện e liên tục làm việc với dữ liệu như vậy, dữ liệu nhiều mà mỗi cứ copy paste từng ô 1 rồi dán ra nhiều ô rất lâu ạ, anh/chị có phương pháp nào giúp em với ạ. ( Em excel kém ( , hjx )
Em xin chân thành cảm ơn ạ
em gửi file đính kèm như bên dưới. Cảm ơn

 

[phulien1902]

Dear các anh chị, em có file dữ liệu như đính kèm, hiện e liên tục làm việc với dữ liệu như vậy, dữ liệu nhiều mà mỗi cứ copy paste từng ô 1 rồi dán ra nhiều ô rất lâu ạ, anh/chị có phương pháp nào giúp em với ạ. ( Em excel kém ( , hjx )
Em xin chân thành cảm ơn ạ
em gửi file đính kèm như bên dưới. Cảm ơn

Bạn thử:

Sub Test()
    Dim DL, KQ, i&, j&, k&, Sp
    ReDim KQ(1 To Rows.Count, 1 To 2)
    With Sheet1
        DL = .Range("A1:B20")
        For i = 1 To UBound(DL)
            Sp = Split(DL(i, 2), ",")
            For j = LBound(Sp) To UBound(Sp)
                k = k + 1
                KQ(k, 1) = DL(i, 1)
                KQ(k, 2) = Sp(j)
            Next
        Next
    End With
    Sheet1.Range("C24").Resize(k, 2) = KQ
End Sub

 

[hocexcel_1991]

Dear các anh chị, em có file dữ liệu như đính kèm, hiện e liên tục làm việc với dữ liệu như vậy, dữ liệu nhiều mà mỗi cứ copy paste từng ô 1 rồi dán ra nhiều ô rất lâu ạ, anh/chị có phương pháp nào giúp em với ạ. ( Em excel kém ( , hjx )
Em xin chân thành cảm ơn ạ
em gửi file đính kèm như bên dưới. Cảm ơn

Bạn dùng Text to Columns kết hợp Pivot Wizard (Alt+D+P) sẽ nhanh thôi

 

[phucnguyen1993]

Bạn thử:

Sub Test()
    Dim DL, KQ, i&, j&, k&, Sp
    ReDim KQ(1 To Rows.Count, 1 To 2)
    With Sheet1
        DL = .Range("A1:B20")
        For i = 1 To UBound(DL)
            Sp = Split(DL(i, 2), ",")
            For j = LBound(Sp) To UBound(Sp)
                k = k + 1
                KQ(k, 1) = DL(i, 1)
                KQ(k, 2) = Sp(j)
            Next
        Next
    End With
    Sheet1.Range("C24").Resize(k, 2) = KQ
End Sub

cám ơn Pro nhiều lắm ạ, từ giờ tiết kiệm được khối thời gian ^^, thanks nhiều ạ

 

[phucnguyen1993]

Bạn dùng Text to Columns kết hợp Pivot Wizard (Alt+D+P) sẽ nhanh thôi

thanks ạ, nhưng kết quả ko giống mình muốn, cám ơn đã giúp ạ ^^

 

[AnhThu-1976]

Sp = Split(DL(i, 2), ",")

Nếu Sp có bao nhiêu dữ liệu bao nhiêu dấu phẩy thì tách ra bao nhiêu cột thì code điều chỉnh sao bạn

	Dữ liệu trước khi tách​
PRE008​	Add more 1 Antenna, Remove 1 Antenna, Remove 1 RRU​
PRE038​	Add more 1 Antenna, Remove 1 Antenna​
PRE048​	Add more Cosite​
SVA010​	Add more 1 Antenna, Remove 1 Antenna, Remove 1 RRU​

	Dữ liệu sau khi tách​
PRE008​	Add more 1 Antenna​	Remove 1 Antenna​	Remove 1 RRU​
PRE038​	Add more 1 Antenna​	Remove 1 Antenna​
PRE048​	Add more Cosite​
SVA010​	Add more 1 Antenna​	Remove 1 Antenna​	Remove 1 RRU​

 

[phulien1902]

Nếu Sp có bao nhiêu dữ liệu bao nhiêu dấu phẩy thì tách ra bao nhiêu cột thì code điều chỉnh sao bạn

	Dữ liệu trước khi tách​
PRE008​	Add more 1 Antenna, Remove 1 Antenna, Remove 1 RRU​
PRE038​	Add more 1 Antenna, Remove 1 Antenna​
PRE048​	Add more Cosite​
SVA010​	Add more 1 Antenna, Remove 1 Antenna, Remove 1 RRU​

	Dữ liệu sau khi tách​
PRE008​	Add more 1 Antenna​	Remove 1 Antenna​	Remove 1 RRU​
PRE038​	Add more 1 Antenna​	Remove 1 Antenna​
PRE048​	Add more Cosite​
SVA010​	Add more 1 Antenna​	Remove 1 Antenna​	Remove 1 RRU​

Tham khảo:

Sub Test2()
    Dim Cll As Range, Sp, i%
    For Each Cll In Range("A1:B" & Range("B" & Rows.Count).End(xlUp).Row)
        If Len(Cll) <> 0 Then
                Sp = Split(Cll, ",")
                For i = LBound(Sp) To UBound(Sp)
                    Cells(Cll.Row + 22, Columns.Count).End(xlToLeft).Resize(, 2).Value = Sp(i)
                Next i
        End If
   Next
End Sub

 

[phucnguyen1993]

Tham khảo:

Sub Test2()
    Dim Cll As Range, Sp, i%
    For Each Cll In Range("A1:B" & Range("B" & Rows.Count).End(xlUp).Row)
        If Len(Cll) <> 0 Then
                Sp = Split(Cll, ",")
                For i = LBound(Sp) To UBound(Sp)
                    Cells(Cll.Row + 22, Columns.Count).End(xlToLeft).Resize(, 2).Value = Sp(i)
                Next i
        End If
   Next
End Sub

hì thanks pro, nhung minh muôn du lieu chi trai dai tren 1 cot thoi ạ, cam on ban nhieu

 

[be_09]

hì Cảm ơn pro, nhung minh muôn du lieu chi trai dai tren 1 cot thoi ạ, cam on ban nhieu

Góp ý cho bạn:
1/ Muốn như thế nào thì phải có 1 sheet kết quả để người giúp xem và hiểu thì mới chuẩn được.
2/ Cần đọc lại nội quy để tránh vi phạm.

 

[phucnguyen1993]

Góp ý cho bạn:
1/ Muốn như thế nào thì phải có 1 sheet kết quả để người giúp xem và hiểu thì mới chuẩn được.
2/ Cần đọc lại nội quy để tránh vi phạm.

View attachment 226147

Dạ vâng, em rút kinh nghiệm ạ , Em cám ơn Diễn đàn ạ

 

[khanhnguyen113]

kết quả như cái phần mình tô xanh đúng không bạn