Tách 1 Ô thành nhiều dòng (cố định cột đầu tiên)

[LTCQB]

Các bác hướng dẫn em xử lý cái này với ạ. Em cảm ơn các bác

 

[Hai Lúa Miền Tây]

Các bác hướng dẫn em xử lý cái này với ạ. Em cảm ơn các bác

View attachment 247059

Bạn thử code sau nhé:

Sub SplitChar10()
    Dim arr As Variant, cll As Range
    For Each cll In Range("B2:B3")
        If InStr(1, cll, Chr(10)) <> 0 Then
            arr = Split(cll, Chr(10))
            cll.EntireRow.Copy
            cll.Offset(1, 0).Resize(UBound(arr), 1).EntireRow.Insert (xlShiftDown)
            cll.Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
        End If
    Next
    Application.CutCopyMode = False
End Sub

 

[be_09]

Các bác hướng dẫn em xử lý cái này với ạ. Em cảm ơn các bác

Góp ý cho bạn:
1/ Nên Copy Sheet1 sang Sheet2 rồi tách để có cái mà đối chiếu hoặc kiểm tra lại.
2/ Dữ liệu thực tế của bạn có thể có nhiều cột, nhiều dòng, nhưng File bạn chỉ có 2 cột và 2 dòng thì tôi e rằng code bài 2 sẽ không đáp ứng được yêu cầu thực tế của bạn.

 

[LTCQB]

Bạn thử code sau nhé:

Sub SplitChar10()
    Dim arr As Variant, cll As Range
    For Each cll In Range("B2:B3")
        If InStr(1, cll, Chr(10)) <> 0 Then
            arr = Split(cll, Chr(10))
            cll.EntireRow.Copy
            cll.Offset(1, 0).Resize(UBound(arr), 1).EntireRow.Insert (xlShiftDown)
            cll.Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
        End If
    Next
    Application.CutCopyMode = False
End Sub

ĐC RỒI BÁC ƠI, CẢM ƠN BÁC NHIỀU Ạ

 

[Hai Lúa Miền Tây]

Góp ý cho bạn:
1/ Nên Copy Sheet1 sang Sheet2 rồi tách để có cái mà đối chiếu hoặc kiểm tra lại.
2/ Dữ liệu thực tế của bạn có thể có nhiều cột, nhiều dòng, nhưng File bạn chỉ có 2 cột và 2 dòng thì tôi e rằng code bài 2 sẽ không đáp ứng được yêu cầu thực tế của bạn.

Nó copy nguyên cả dòng đưa xuống mà anh. Đâu ảnh hưởng đến cột khác.

 

[LTCQB]

Nó copy nguyên cả dòng đưa xuống mà anh. Đâu ảnh hưởng đến cột khác.

cảm ơn bác. đã làm được ạ

 

[huuthang_bd]

Đây là chủ đề tương tự, có code và hàm có thể sử dụng linh hoạt.

Tách dữ liệu trong ô thành nhiều dòng.

Thân gửi: Anh/chị/em trên GPE Hiện tại, mình đang có 1 file dữ liệu mà trong 1 ô có rất nhiều dòng nhưng nếu làm thao tác thủ công rất tốn thời gian nên có nhờ mọi người có thể giúp em giải quyết vấn đề vấn với ạ. Rất mong được sự giúp đỡ. Trân trọng.

www.giaiphapexcel.com

 

[VetMini]

Đây là chủ đề tương tự, có code và hàm có thể sử dụng linh hoạt.
...

Thớt có nhiều bài về số điện thoại lắm.
Hình như đang làm nhiệm vụ data mining, tách số điện thoại từng người, từng tổ chức, cơ quan ra để gọi chào hàng.

 

[Hoàng Tuấn 868]

ĐC RỒI BÁC ƠI, CẢM ƠN BÁC NHIỀU Ạ

VetMini đã viết:
@thớt: Viết hoa cả cụm là kém lịch sự nhé. Nó giống như cầm loa giữa chợ la toang "hãy ghé vào thớt của tôi trước"