Chia 1 dòng thành nhiều dòng (1 người xem)

[kegiaumat055]

Xin chào các bạn,

Mình muốn chia 1 dòng thành nhiều dòng nhưng số từ mỗi dòng không bằng nhau mà dựa vào input.
Ví dụ:

Input:

Dòng cần chia:

when you back back back back back it up and you drop it down low and you pick pick pick pick pick it up girl, i'm ready to blow i'ma stack stack stack stack stack it up and i'm spending it all when i throw throw throw throw it up

và ô thông tin:

[TABLE="width: 338"]
[TR]
[TD="class: xl65, width: 338"]Buổi sáng hôm ấy thấy em chợt khóc
Rồi vội vàng lau thật nhanh nước mắt
Vẫn biết ta đã sai khi gặp[/TD]
[/TR]
[/TABLE]

Output:

[TABLE="width: 365"]
[TR]
[TD]when you back back back back back it
up and you drop it down low and
you pick pick pick pick pick it[/TD]
[/TR]
[/TABLE]

Vì ở trong ô thông tin, dòng 1 có 8 từ, dòng 2 có 8 từ, dòng 3 có 7 từ nên ouput cũng như vậy. Các từ của output được lấy từ dòng cần chia và số từ cần chia được lấy từ ô thông tin. Các bạn giúp mình nhé ! Cảm ơn các bạn

 

[patygate591]

Bạn thử tham khảo bài này xem sao
http://www.giaiphapexcel.com/forum/...ổng-hợp-các-phương-pháp-tách-họ-và-tên

 

[kegiaumat055]

Mình không hiểu lắm, các bạn giúp mình với

 

[arexthena]

Xin chào các bạn,

Mình muốn chia 1 dòng thành nhiều dòng nhưng số từ mỗi dòng không bằng nhau mà dựa vào input.
Ví dụ:

Input:

Dòng cần chia:


và ô thông tin:

Output:

Vì ở trong ô thông tin, dòng 1 có 8 từ, dòng 2 có 8 từ, dòng 3 có 7 từ nên ouput cũng như vậy. Các từ của output được lấy từ dòng cần chia và số từ cần chia được lấy từ ô thông tin. Các bạn giúp mình nhé ! Cảm ơn các bạn

Bài toán này tương tự với bài toán tách họ tên có khá nhiều trên diễn đàn rồi bạn search xem sao nhé. chỉ khác có 1 chỗ là số từ trong ô thông tin, giải quyết bằng cách đếm kí tự " " là xong nhé.

 

[TheThienChu]

Xin chào các bạn,

Mình muốn chia 1 dòng thành nhiều dòng nhưng số từ mỗi dòng không bằng nhau mà dựa vào input.
Ví dụ:

Input:

Dòng cần chia:


và ô thông tin:

Output:

Vì ở trong ô thông tin, dòng 1 có 8 từ, dòng 2 có 8 từ, dòng 3 có 7 từ nên ouput cũng như vậy. Các từ của output được lấy từ dòng cần chia và số từ cần chia được lấy từ ô thông tin. Các bạn giúp mình nhé ! Cảm ơn các bạn

Bạn chạy thử hàm tự tạo này xem sao
Nhập =Chia(Ô cần chia, Ô thông tin)
Sau khi dùng hàm, phải format về wrap text

Public Function Chia(Goc, Mau)
Dim i As Long

Goc = Split(Application.Trim(Goc), Space(1))
Mau = Split(Mau, ChrW(10))
Mau = Join(Mau, "# ")
Mau = Split(Mau)

For i = 0 To UBound(Mau)
If i < UBound(Goc) Then
If InStr(Mau(i), "#") = 0 Then
Chia = Chia & Space(1) & Goc(i)
Else
Chia = Chia & Space(1) & Goc(i) & ChrW(10)
End If
End If
Next i

Chia = Trim(Chia)
End Function

 

[kegiaumat055]

Bạn chạy thử hàm tự tạo này xem sao
Nhập =Chia(Ô cần chia, Ô thông tin)
Sau khi dùng hàm, phải format về wrap text

Public Function Chia(Goc, Mau)
Dim i As Long

Goc = Split(Application.Trim(Goc), Space(1))
Mau = Split(Mau, ChrW(10))
Mau = Join(Mau, "# ")
Mau = Split(Mau)

For i = 0 To UBound(Mau)
If i < UBound(Goc) Then
If InStr(Mau(i), "#") = 0 Then
Chia = Chia & Space(1) & Goc(i)
Else
Chia = Chia & Space(1) & Goc(i) & ChrW(10)
End If
End If
Next i

Chia = Trim(Chia)
End Function

Code hoạt động quá tuyệt vời ! Cảm ơn TheThienChu nhé